(shadow-copy-files): Use interactive-p

only to control whether to print a message.

diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el
index f047223cbaed24529606bd9e1f3e7844ff1919e4..b3149500ae5369569f3f55b4362cdad76ff94c2b 100644 (file)
--- a/lisp/shadowfile.el
+++ b/lisp/shadowfile.el
@@ -518,8 +518,9 @@ Pending copies are stored in variable `shadow-files-to-copy', and in
 `shadow-save-buffers-kill-emacs', so it is not usually necessary to
 call it manually."
   (interactive "P")
-  (if (and (not shadow-files-to-copy) (interactive-p))
-      (message "No files need to be shadowed.")
+  (if (not shadow-files-to-copy)
+      (if (interactive-p)
+         (message "No files need to be shadowed."))
     (save-excursion
       (map-y-or-n-p (function
                     (lambda (pair)