[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r116759: * lisp/finder.el: Tweak previous change.
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] trunk r116759: * lisp/finder.el: Tweak previous change. |
Date: |
Fri, 14 Mar 2014 18:00:10 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r116759: * lisp/finder.el: Tweak previous change.,
Glenn Morris <=