(update-directory-autoloads): Ignore files

whose names start with =. Bind enable-local-eval to nil.

(update-directory-autoloads): Ignore files
whose names start with =. Bind enable-local-eval to nil.
9f4b7963 · Richard M. Stallman · 5ece1728 · 9f4b7963
Commit 9f4b7963 authored May 06, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

lisp/emacs-lisp/autoload.el lisp/emacs-lisp/autoload.el +3 -2

No files found.
--- 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))