# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1098898884 0
# Node ID a5bb249b0f3bf45e0396b154ddaee13913f3a42a
# Parent  97a3201f82ef712c523a1c2dd4f5bf8f32553e03
(shadow-copy-files): Use interactive-p
only to control whether to print a message.

diff -r 97a3201f82ef -r a5bb249b0f3b lisp/shadowfile.el
--- a/lisp/shadowfile.el	Wed Oct 27 17:40:19 2004 +0000
+++ b/lisp/shadowfile.el	Wed Oct 27 17:41:24 2004 +0000
@@ -518,8 +518,9 @@
 `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)