Mercurial > emacs

changeset 47850:6a654788d913

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(custom-make-dependencies): Ignore preloaded files.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 12 Oct 2002 20:58:12 +0000
parents 7d0ce3907ecc
children 4c3bd5a753a1
files lisp/cus-dep.el
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-dep.el	Sat Oct 12 20:33:46 2002 +0000
+++ b/lisp/cus-dep.el	Sat Oct 12 20:58:12 2002 +0000
@@ -40,9 +40,18 @@
       (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))