From 3723063530471df09f28b419a472959be8363642 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 14 Mar 2014 14:00:08 -0400 Subject: [PATCH] * lisp/finder.el: Tweak previous change. --- lisp/finder.el | 6 +++--- 1 file 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. -- 2.39.2