changeset 57748:a5bb249b0f3b

(shadow-copy-files): Use interactive-p only to control whether to print a message.
author Richard M. Stallman <rms@gnu.org>
date Wed, 27 Oct 2004 17:41:24 +0000
parents 97a3201f82ef
children 08eb19d9ee4b
files lisp/shadowfile.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)