Mercurial > emacs

diff lisp/shadowfile.el @ 57748:a5bb249b0f3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 9eb4eed0a14c
children b89461946700 e24e2e78deda
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)