diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-10-12 20:58:12 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-10-12 20:58:12 +0000 |
commit | 2f422e8ccd7798af14f2b8fe936245b16dd58c68 (patch) | |
tree | 18c881849b6f2dab12df7d89afd562f6bf3d6e97 /lisp/cus-dep.el | |
parent | 42ff39493695487aba914a7d8b634d51dec5ab30 (diff) | |
download | emacs-2f422e8ccd7798af14f2b8fe936245b16dd58c68.tar.gz |
(custom-make-dependencies): Ignore preloaded files.
Diffstat (limited to 'lisp/cus-dep.el')
-rw-r--r-- | lisp/cus-dep.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el index 5574cca82b9..03185661a2e 100644 --- a/lisp/cus-dep.el +++ b/lisp/cus-dep.el @@ -40,9 +40,18 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS" (message "Directory %s" subdir) (let ((files (directory-files subdir nil "\\`[^=].*\\.el\\'")) (default-directory (expand-file-name subdir)) + (preloaded (concat "\\`" + (regexp-opt (mapcar + (lambda (f) + (file-name-sans-extension + (file-name-nondirectory f))) + preloaded-file-list) t) + "\\.el\\'")) is-autoloaded) (dolist (file files) - (when (file-exists-p file) + (when (and (file-exists-p file) + ;; Ignore files that are preloaded. + (not (string-match preloaded file))) (erase-buffer) (insert-file-contents file) (goto-char (point-min)) |