From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 8 Aug 1997 21:32:50 +0000 (+0000)
Subject: (find-emacs-lisp-shadows): Don't mention `subdirs.el'.
X-Git-Tag: emacs-20.1~721
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5017dcaa27e1770a49f25126e8ff54c5f3e12ca0;p=emacs.git

(find-emacs-lisp-shadows): Don't mention `subdirs.el'.
(list-load-path-shadows): When noninteractive, if there are shadows,
start with a message explaining what this is a problem.
---

diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el
index 73650de88c8..7e49c8b6f17 100644
--- a/lisp/emacs-lisp/shadow.el
+++ b/lisp/emacs-lisp/shadow.el
@@ -106,10 +106,10 @@ See the documentation for `list-load-path-shadows' for further information."
 	  (setq file (substring
 		      file 0 (if (string= (substring file -1) "c") -4 -3)))
 
-	  ;; 'file' now contains the current file name, with no suffix.
-	  (if (member file files-seen-this-dir)
-	      nil
-	  	    
+	  ;; FILE now contains the current file name, with no suffix.
+	  (unless (or (member file files-seen-this-dir)
+		      ;; Ignore these files.
+		      (member file '("subdirs")))
 	    ;; File has not been seen yet in this directory.
 	    ;; This test prevents us declaring that XXX.el shadows
 	    ;; XXX.elc (or vice-versa) when they are in the same directory.
@@ -134,7 +134,6 @@ See the documentation for `list-load-path-shadows' for further information."
 
 ;;;###autoload
 (defun list-load-path-shadows ()
-  
   "Display a list of Emacs Lisp files that shadow other files.
 
 This function lists potential load-path problems.  Directories in the
@@ -193,6 +192,11 @@ buffer called `*Shadows*'.  Shadowings are located by calling the
 	      (setq shadows (cdr (cdr shadows))))
 	    (insert msg "\n")))
       ;; We are non-interactive, print shadows via message.
+      (when shadows
+	(message "This site has duplicate Lisp libraries with the same name.
+If a locally-installed Lisp library overrides a library in the Emacs release,
+that can cause trouble, and you should probably remove the locally-installed
+version unless you know what you are doing.\n"))
       (while shadows
 	(message "%s hides %s" (car shadows) (car (cdr shadows)))
 	(setq shadows (cdr (cdr shadows))))