custom-make-dependencies tweaks

* lisp/cus-dep.el (custom-make-dependencies): Ignore dotfiles (dir-locals).
Don't mistakenly ignore files whose basenames match a basename
from preloaded-file-list (eg cedet/ede/simple.el).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8b8cb8204286ab8b23babfae0e606fa0bf6b608d..c14a81b9bb05e3fca4781d33ece9a854672380d6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2013-05-15  Glenn Morris  <rgm@gnu.org>
+
+       * cus-dep.el (custom-make-dependencies): Ignore dotfiles (dir-locals).
+       Don't mistakenly ignore files whose basenames match a basename
+       from preloaded-file-list (eg cedet/ede/simple.el).
+
 2013-05-15  Juri Linkov  <juri@jurta.org>
 
        * isearch.el (isearch-char-by-name): Rename from

diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el
index 12a3211a0b007f4daf2187c64c94b949c0cfab54..d31568bb52347d0196fca2869ebbb48be83ad7b9 100644 (file)
--- a/lisp/cus-dep.el
+++ b/lisp/cus-dep.el
@@ -61,16 +61,14 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
       ;; the args as directories after we are done.
       (while (setq subdir (pop command-line-args-left))
         (message "Directory %s" subdir)
-        (let ((files (directory-files subdir nil "\\`[^=].*\\.el\\'"))
+        (let ((files (directory-files subdir nil "\\`[^=.].*\\.el\\'"))
               (default-directory (expand-file-name subdir))
-              (preloaded (concat "\\`"
-                                 (regexp-opt (mapcar
-                                              'file-name-base
-                                              preloaded-file-list) t)
+              (preloaded (concat "\\`\\(\\./+\\)?"
+                                 (regexp-opt preloaded-file-list t)
                                  "\\.el\\'")))
           (dolist (file files)
             (unless (or (string-match custom-dependencies-no-scan-regexp file)
-                        (string-match preloaded file)
+                        (string-match preloaded (format "%s/%s" subdir file))
                         (not (file-exists-p file)))
               (erase-buffer)
               (kill-all-local-variables)