Commit 9f4b7963 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(update-directory-autoloads): Ignore files

whose names start with =.  Bind enable-local-eval to nil.
parent 5ece1728
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment