Mercurial > emacs
changeset 7354:0611d70ad480
(update-directory-autoloads): Ignore files
whose names start with =. Bind enable-local-eval to nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 06 May 1994 08:11:04 +0000 |
| parents | 334cececa42d |
| children | 2e1388fa0119 |
| files | lisp/emacs-lisp/autoload.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/autoload.el Fri May 06 06:45:18 1994 +0000 +++ b/lisp/emacs-lisp/autoload.el Fri May 06 08:11:04 1994 +0000 @@ -354,8 +354,9 @@ (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))