summaryrefslogtreecommitdiff
path: root/lisp/cus-dep.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2013-05-15 19:31:16 -0400
committerGlenn Morris <rgm@gnu.org>2013-05-15 19:31:16 -0400
commitf5ba00a6cad3b8ab8bd94e3ba566f3608f1dc02e (patch)
tree296f04f21c9d445b0ff8fa4c3ed7959dc4748e8e /lisp/cus-dep.el
parentda547b32a6c45494ccbd2073f0491383e8864ea9 (diff)
downloademacs-f5ba00a6cad3b8ab8bd94e3ba566f3608f1dc02e.tar.gz
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).
Diffstat (limited to 'lisp/cus-dep.el')
-rw-r--r--lisp/cus-dep.el10
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el
index 12a3211a0b0..d31568bb523 100644
--- 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)