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 | a9338083f52b706be9d967f7cb4d3fa71b99b007 (patch) | |
| tree | 57eaa9f15846617eebc249fce6a733b378ae6237 /lisp/cus-dep.el | |
| parent | 997c3eb129c6bc43d82796893b489239f6d47fa6 (diff) | |
| download | emacs-a9338083f52b706be9d967f7cb4d3fa71b99b007.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)) |