Mercurial > emacs
changeset 19226:c160218de690
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 08 Aug 1997 21:32:50 +0000 |
| parents | b7e0b35c59d0 |
| children | 84c681e58fd5 |
| files | lisp/emacs-lisp/shadow.el |
| diffstat | 1 files changed, 9 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/shadow.el Fri Aug 08 20:09:27 1997 +0000 +++ b/lisp/emacs-lisp/shadow.el Fri Aug 08 21:32:50 1997 +0000 @@ -106,10 +106,10 @@ (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 @@ ;;;###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 @@ (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))))