mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 10:50:49 -08:00
Code Issues Projects Releases Wiki Activity

custom-make-dependencies tweaks

Browse source 
* 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).
This commit is contained in:
Glenn Morris 2013-05-15 19:31:16 -04:00
parent da547b32a6
commit f5ba00a6ca
2 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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> 2013-05-15 Juri Linkov <juri@jurta.org>
* isearch.el (isearch-char-by-name): Rename from * isearch.el (isearch-char-by-name): Rename from

10
lisp/cus-dep.el
View file

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