[Emacs-diffs] trunk r116759: * lisp/finder.el: Tweak previous change.

[Glenn Morris]

------------------------------------------------------------
revno: 116759
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2014-03-14 14:00:08 -0400
message:
  * lisp/finder.el: Tweak previous change.
modified:
  lisp/finder.el                 finder.el-20091113204419-o5vbwnq5f7feedwu-499

=== modified file 'lisp/finder.el'
--- a/lisp/finder.el    2014-03-14 17:54:12 +0000
+++ b/lisp/finder.el    2014-03-14 18:00:08 +0000
@@ -177,7 +177,7 @@
   (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 @@
          (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.