diff options
| author | Richard M. Stallman <rms@gnu.org> | 2004-10-27 17:41:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2004-10-27 17:41:24 +0000 |
| commit | a1f22e47ab89de001fd8fa9d09e72501252e42db (patch) | |
| tree | 2f7b00e7ea01e8f1b01bde0c025088fbc2b194ff /lisp/shadowfile.el | |
| parent | fe81730004e133a4ed6f868cafb857d4038bb9e3 (diff) | |
| download | emacs-a1f22e47ab89de001fd8fa9d09e72501252e42db.tar.gz | |
(shadow-copy-files): Use interactive-p
only to control whether to print a message.
Diffstat (limited to 'lisp/shadowfile.el')
| -rw-r--r-- | lisp/shadowfile.el | 5 |
1 files changed, 3 insertions, 2 deletions
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) |