From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 5 Aug 1997 17:10:16 +0000 (+0000)
Subject: (finder-compile-keywords): Don't process file names that start with `.'.
X-Git-Tag: emacs-20.1~777
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6656e09937e06bb9a570efe4df5fedab38581b82;p=emacs.git

(finder-compile-keywords): Don't process file names that start with `.'.
---

diff --git a/lisp/finder.el b/lisp/finder.el
index 915d88f34b9..57f5d331b0e 100644
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -117,7 +117,7 @@ arguments compiles from `load-path'."
        (lambda (d)
 	 (mapcar
 	  (lambda (f) 
-	    (if (and (string-match "^[^=].*\\.el$" f)
+	    (if (and (string-match "^[^=.].*\\.el$" f)
 		     (not (member f processed)))
 		(let (summary keystart keywords)
 		  (setq processed (cons f processed))