diff options
| author | Richard M. Stallman | 1994-05-06 08:11:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-06 08:11:04 +0000 |
| commit | 9f4b7963c9f50e8e90e8b1849b09ef2a7d5d5786 (patch) | |
| tree | 22d603b7609800803ad8fe8cc04ec2474cea8aab | |
| parent | 5ece1728e2a47c56a22475affab317bdc4dccee6 (diff) | |
| download | emacs-9f4b7963c9f50e8e90e8b1849b09ef2a7d5d5786.tar.gz emacs-9f4b7963c9f50e8e90e8b1849b09ef2a7d5d5786.zip | |
(update-directory-autoloads): Ignore files
whose names start with =. Bind enable-local-eval to nil.
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index b610444fd11..b24dfd50b84 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el | |||
| @@ -354,8 +354,9 @@ file \"%s\") doesn't exist. Remove its autoload section? " | |||
| 354 | (defun update-directory-autoloads (dir) | 354 | (defun update-directory-autoloads (dir) |
| 355 | "Run \\[update-file-autoloads] on each .el file in DIR." | 355 | "Run \\[update-file-autoloads] on each .el file in DIR." |
| 356 | (interactive "DUpdate autoloads for directory: ") | 356 | (interactive "DUpdate autoloads for directory: ") |
| 357 | (mapcar 'update-file-autoloads | 357 | (let ((enable-local-eval nil)) |
| 358 | (directory-files dir t "\\.el$")) | 358 | (mapcar 'update-file-autoloads |
| 359 | (directory-files dir t "^[^=].*\\.el$"))) | ||
| 359 | (if (interactive-p) | 360 | (if (interactive-p) |
| 360 | (save-excursion | 361 | (save-excursion |
| 361 | (set-buffer (find-file-noselect generated-autoload-file)) | 362 | (set-buffer (find-file-noselect generated-autoload-file)) |