diff options
| author | Glenn Morris <rgm@gnu.org> | 2014-03-14 14:00:08 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2014-03-14 14:00:08 -0400 |
| commit | 3723063530471df09f28b419a472959be8363642 (patch) | |
| tree | 790097c5e71a987855bee785f9683fd36e63fc79 /lisp/finder.el | |
| parent | 459d74ef997f15db864b0ff97cddb8c7b5b3d847 (diff) | |
| download | emacs-3723063530471df09f28b419a472959be8363642.tar.gz | |
* lisp/finder.el: Tweak previous change.
Diffstat (limited to 'lisp/finder.el')
| -rw-r--r-- | lisp/finder.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/finder.el b/lisp/finder.el index ad4fda355ec..85db692f87e 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -177,7 +177,7 @@ from; the default is `load-path'." (setq package--builtins nil) (setq finder-keywords-hash (make-hash-table :test 'eq)) (let ((el-file-regexp "^\\([^=].*\\)\\.el\\(\\.\\(gz\\|Z\\)\\)?$") - package-override files base-name processed + package-override files base-name ; processed summary keywords package version entry desc) (dolist (d (or dirs load-path)) (when (file-exists-p (directory-file-name d)) @@ -192,8 +192,8 @@ from; the default is `load-path'." (unless (or (string-match finder-no-scan-regexp f) (null (setq base-name (and (string-match el-file-regexp f) - (intern (match-string 1 f))))) - (memq base-name processed)) + (intern (match-string 1 f)))))) +;; (memq base-name processed)) ;; There are multiple files in the tree with the same basename. ;; So skipping files based on basename means you randomly (depending ;; on which order the files are traversed in) miss some packages. |