From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 6 May 1994 08:11:04 +0000 (+0000)
Subject: (update-directory-autoloads): Ignore files
X-Git-Tag: emacs-19.34~8499
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f4b7963c9f50e8e90e8b1849b09ef2a7d5d5786;p=emacs.git

(update-directory-autoloads): Ignore files
whose names start with =.  Bind enable-local-eval to nil.
---

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