procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(update-directory-autoloads): Ignore files

Browse source 
whose names start with =.  Bind enable-local-eval to nil.
This commit is contained in:
Richard M. Stallman 1994-05-06 08:11:04 +00:00
parent 5ece1728e2
commit 9f4b7963c9
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/autoload.el
View file

@ -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))