diff options
| author | Richard M. Stallman | 1997-08-05 17:10:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-05 17:10:16 +0000 |
| commit | 6656e09937e06bb9a570efe4df5fedab38581b82 (patch) | |
| tree | 8f2e151de708b1ef82fafe4397978cd51bbfdb11 | |
| parent | 1d0d784f0399f47a86ee3accc570827555483e35 (diff) | |
| download | emacs-6656e09937e06bb9a570efe4df5fedab38581b82.tar.gz emacs-6656e09937e06bb9a570efe4df5fedab38581b82.zip | |
(finder-compile-keywords): Don't process file names that start with `.'.
| -rw-r--r-- | lisp/finder.el | 2 |
1 files changed, 1 insertions, 1 deletions
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'." | |||
| 117 | (lambda (d) | 117 | (lambda (d) |
| 118 | (mapcar | 118 | (mapcar |
| 119 | (lambda (f) | 119 | (lambda (f) |
| 120 | (if (and (string-match "^[^=].*\\.el$" f) | 120 | (if (and (string-match "^[^=.].*\\.el$" f) |
| 121 | (not (member f processed))) | 121 | (not (member f processed))) |
| 122 | (let (summary keystart keywords) | 122 | (let (summary keystart keywords) |
| 123 | (setq processed (cons f processed)) | 123 | (setq processed (cons f processed)) |