# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 870801360 0
# Node ID ecc4375537e3fd734e679b37ca1b12d5a98ee102
# Parent  0ffc25f09344ab46f0aa4e6400ac75a29d37f170
(update-autoloads-from-directories):
Don't process file names that start with `.'.

diff -r 0ffc25f09344 -r ecc4375537e3 lisp/emacs-lisp/autoload.el
--- a/lisp/emacs-lisp/autoload.el	Tue Aug 05 17:10:16 1997 +0000
+++ b/lisp/emacs-lisp/autoload.el	Tue Aug 05 17:16:00 1997 +0000
@@ -31,6 +31,32 @@
 
 ;;; Code:
 
+(defvar generated-autoload-file "loaddefs.el"
+   "*File \\[update-file-autoloads] puts autoloads into.
+A `.el' file can set this in its local variables section to make its
+autoloads go somewhere else.")
+
+(defconst generate-autoload-cookie ";;;###autoload"
+  "Magic comment indicating the following form should be autoloaded.
+Used by \\[update-file-autoloads].  This string should be
+meaningless to Lisp (e.g., a comment).
+
+This string is used:
+
+;;;###autoload
+\(defun function-to-be-autoloaded () ...)
+
+If this string appears alone on a line, the following form will be
+read and an autoload made for it.  If there is further text on the line,
+that text will be copied verbatim to `generated-autoload-file'.")
+
+(defconst generate-autoload-section-header "\f\n;;;### "
+  "String inserted before the form identifying
+the section of autoloads for a file.")
+
+(defconst generate-autoload-section-trailer "\n;;;***\n"
+  "String which indicates the end of the section of autoloads for a file.")
+
 (defun make-autoload (form file)
   "Turn FORM into an autoload or defvar for source file FILE.
 Returns nil if FORM is not a defun, define-skeleton, defmacro or defcustom."
@@ -71,27 +97,6 @@
 
 (put 'define-skeleton 'doc-string-elt 3)
 
-(defconst generate-autoload-cookie ";;;###autoload"
-  "Magic comment indicating the following form should be autoloaded.
-Used by \\[update-file-autoloads].  This string should be
-meaningless to Lisp (e.g., a comment).
-
-This string is used:
-
-;;;###autoload
-\(defun function-to-be-autoloaded () ...)
-
-If this string appears alone on a line, the following form will be
-read and an autoload made for it.  If there is further text on the line,
-that text will be copied verbatim to `generated-autoload-file'.")
-
-(defconst generate-autoload-section-header "\f\n;;;### "
-  "String inserted before the form identifying
-the section of autoloads for a file.")
-
-(defconst generate-autoload-section-trailer "\n;;;***\n"
-  "String which indicates the end of the section of autoloads for a file.")
-
 ;;; Forms which have doc-strings which should be printed specially.
 ;;; A doc-string-elt property of ELT says that (nth ELT FORM) is
 ;;; the doc-string in FORM.
@@ -287,11 +292,6 @@
 	  (insert generate-autoload-section-trailer)))
     (message "Generating autoloads for %s...done" file)))
 
-(defvar generated-autoload-file "loaddefs.el"
-   "*File \\[update-file-autoloads] puts autoloads into.
-A `.el' file can set this in its local variables section to make its
-autoloads go somewhere else.")
-
 ;;;###autoload
 (defun update-file-autoloads (file)
   "Update the autoloads for FILE in `generated-autoload-file'
@@ -398,7 +398,7 @@
 		      (mapcar (function (lambda (dir)
 					  (directory-files (expand-file-name dir)
 							   t
-							   "^[^=].*\\.el$")))
+							   "^[^=.].*\\.el$")))
 			      dirs)))
 	autoloads-file
 	top-dir)