From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 27 Oct 2004 17:41:24 +0000 (+0000)
Subject: (shadow-copy-files): Use interactive-p
X-Git-Tag: ttn-vms-21-2-B4~4356
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f8e58ec5f5762dcd79e944ee135c4bb150b425c;p=emacs.git

(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 f047223cbae..b3149500ae5 100644
--- 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)