From a9338083f52b706be9d967f7cb4d3fa71b99b007 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 12 Oct 2002 20:58:12 +0000 Subject: [PATCH] (custom-make-dependencies): Ignore preloaded files. --- lisp/cus-dep.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) 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)) -- 2.39.2