diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-06 08:11:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-06 08:11:04 +0000 |
| commit | 9f4b7963c9f50e8e90e8b1849b09ef2a7d5d5786 (patch) | |
| tree | 22d603b7609800803ad8fe8cc04ec2474cea8aab /lisp/emacs-lisp | |
| parent | 5ece1728e2a47c56a22475affab317bdc4dccee6 (diff) | |
| download | emacs-9f4b7963c9f50e8e90e8b1849b09ef2a7d5d5786.tar.gz emacs-9f4b7963c9f50e8e90e8b1849b09ef2a7d5d5786.tar.bz2 emacs-9f4b7963c9f50e8e90e8b1849b09ef2a7d5d5786.zip | |
(update-directory-autoloads): Ignore files
whose names start with =. Bind enable-local-eval to nil.
Diffstat (limited to 'lisp/emacs-lisp')
| -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? " (defun update-directory-autoloads (dir) "Run \\[update-file-autoloads] on each .el file in DIR." (interactive "DUpdate autoloads for directory: ") - (mapcar 'update-file-autoloads - (directory-files dir t "\\.el$")) + (let ((enable-local-eval nil)) + (mapcar 'update-file-autoloads + (directory-files dir t "^[^=].*\\.el$"))) (if (interactive-p) (save-excursion (set-buffer (find-file-noselect generated-autoload-file)) |