(list-load-path-shadows): Fix ambiguous wording.

1 files changed, 21 insertions, 20 deletions

diff --git a/lisp/emacs-lisp/shadow.el b/lisp/emacs-lisp/shadow.el
index 686fa9851e6..cf87c648451 100644
--- a/lisp/emacs-lisp/shadow.el
+++ b/lisp/emacs-lisp/shadow.el
@@ -88,7 +88,7 @@ See the documentation for `list-load-path-shadows' for further information."
           (or noninteractive
               (and (car path)
                    (not (string= (car path) "."))
-                   (message "Ignoring redundant directory '%s'." (car path))))
+                   (message "Ignoring redundant directory %s" (car path))))
         
         (setq true-names (append true-names (list dir)))
         (setq dir (or (car path) "."))
@@ -96,7 +96,7 @@ See the documentation for `list-load-path-shadows' for further information."
                                (directory-files dir nil ".\\.elc?$" t)))
         (and curr-files
              (not noninteractive)
-             (message "Checking %d files in '%s' ..." (length curr-files) dir))
+             (message "Checking %d files in %s..." (length curr-files) dir))
         
         (setq files-seen-this-dir nil)
 
@@ -176,26 +176,27 @@ buffer called `*Shadows*'.  Shadowings are located by calling the
   (interactive)
   (let* ((shadows (find-emacs-lisp-shadows))
          (n (/ (length shadows) 2))
-         (msg (format "%s Emacs Lisp load-path shadowing%s found."
+         (msg (format "%s Emacs Lisp load-path shadowing%s found"
                       (if (zerop n) "No" (concat "\n" (number-to-string n)))
                       (if (= n 1) " was" "s were"))))
-        (if (interactive-p)
-          (save-excursion
-            ;; We are interactive.
-            ;; Create the *Shadows* buffer and display shadowings there.
-            (let ((output-buffer (get-buffer-create "*Shadows*")))
-              (display-buffer output-buffer)
-              (set-buffer output-buffer)
-              (erase-buffer)
-              (while shadows
-                (insert (format "%s shadows %s\n" (car shadows) (car (cdr shadows))))
-                (setq shadows (cdr (cdr shadows))))
-              (insert msg "\n")))
-          ;; We are non-interactive, print shadows via message.
-          (while shadows
-            (message "%s shadows %s" (car shadows) (car (cdr shadows)))
-            (setq shadows (cdr (cdr shadows))))
-          (message "%s" msg))))
+    (if (interactive-p)
+        (save-excursion
+          ;; We are interactive.
+          ;; Create the *Shadows* buffer and display shadowings there.
+          (let ((output-buffer (get-buffer-create "*Shadows*")))
+            (display-buffer output-buffer)
+            (set-buffer output-buffer)
+            (erase-buffer)
+            (while shadows
+              (insert (format "%s hides %s\n" (car shadows)
+                              (car (cdr shadows))))
+              (setq shadows (cdr (cdr shadows))))
+            (insert msg "\n")))
+      ;; We are non-interactive, print shadows via message.
+      (while shadows
+        (message "%s hides %s" (car shadows) (car (cdr shadows)))
+        (setq shadows (cdr (cdr shadows))))
+      (message "%s" msg))))
 
 (provide 'shadow)