From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sat, 12 Oct 2002 20:58:12 +0000 (+0000)
Subject: (custom-make-dependencies): Ignore preloaded files.
X-Git-Tag: ttn-vms-21-2-B4~12858
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a9338083f52b706be9d967f7cb4d3fa71b99b007;p=emacs.git

(custom-make-dependencies): Ignore preloaded files.
---

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))