Mercurial > emacs

changeset 24198:ee8046b6187d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command-line-1): Up-date copyright.
author Richard M. Stallman <rms@gnu.org>
date Tue, 26 Jan 1999 22:10:15 +0000
parents 604baa356d2a
children 204d0a24ddf5
files lisp/startup.el
diffstat 1 files changed, 18 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/startup.el	Tue Jan 26 22:09:40 1999 +0000
+++ b/lisp/startup.el	Tue Jan 26 22:10:15 1999 +0000
@@ -347,29 +347,36 @@
 
 (defvar init-file-had-error nil)
 
+(defvar normal-top-level-add-subdirs-inode-list nil)
+
 (defun normal-top-level-add-subdirs-to-load-path ()
   "Add all subdirectories of current directory to `load-path'.
 More precisely, this uses only the subdirectories whose names
 start with letters or digits; it excludes any subdirectory named `RCS'
 or `CVS', and any subdirectory that contains a file named `.nosearch'."
   (let (dirs 
+	attrs
 	(pending (list default-directory)))
     ;; This loop does a breadth-first tree walk on DIR's subtree,
     ;; putting each subdir into DIRS as its contents are examined.
     (while pending
       (setq dirs (cons (car pending) dirs))
       (setq pending (cdr pending))
+      (setq attrs (nthcdr 10 (file-attributes (car dirs))))
       (let ((contents (directory-files (car dirs)))
 	    (default-directory (car dirs)))
-	(while contents
-	  (unless (member (car contents) '("." ".." "RCS" "CVS"))
-	    (when (and (string-match "\\`[a-zA-Z0-9]" (car contents))
-		       (file-directory-p (car contents)))
-	      (let ((expanded (expand-file-name (car contents))))
-		(unless (file-exists-p (expand-file-name ".nosearch"
-							 expanded))
-		  (setq pending (nconc pending (list expanded)))))))
-	  (setq contents (cdr contents)))))
+	(unless (member attrs normal-top-level-add-subdirs-inode-list)
+	  (setq normal-top-level-add-subdirs-inode-list
+		(cons attrs normal-top-level-add-subdirs-inode-list))
+	  (while contents
+	    (unless (member (car contents) '("." ".." "RCS" "CVS"))
+	      (when (and (string-match "\\`[a-zA-Z0-9]" (car contents))
+			 (file-directory-p (car contents)))
+		(let ((expanded (expand-file-name (car contents))))
+		  (unless (file-exists-p (expand-file-name ".nosearch"
+							   expanded))
+		    (setq pending (nconc pending (list expanded)))))))
+	    (setq contents (cdr contents))))))
     (normal-top-level-add-to-load-path (cdr (nreverse dirs)))))
 
 ;; This function is called from a subdirs.el file.
@@ -871,7 +878,7 @@
 ")
 			     (insert "\n\n" (emacs-version)
 				     "
-Copyright (C) 1998 Free Software Foundation, Inc."))
+Copyright (C) 1999 Free Software Foundation, Inc."))
 			 ;; If keys have their default meanings,
 			 ;; use precomputed string to save lots of time.
 			 (if (and (eq (key-binding "\C-h") 'help-command)
@@ -928,7 +935,7 @@
 
 			 (insert "\n\n" (emacs-version)
 				 "
-Copyright (C) 1998 Free Software Foundation, Inc.")
+Copyright (C) 1999 Free Software Foundation, Inc.")
 			 (if (and (eq (key-binding "\C-h\C-c") 'describe-copying)
 				  (eq (key-binding "\C-h\C-d") 'describe-distribution)
 				  (eq (key-binding "\C-h\C-w") 'describe-no-warranty))