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 | 4f8e58ec5f5762dcd79e944ee135c4bb150b425c (patch) | |
| tree | 782c470c8a12af4ef6a8e5fadbab7bd6dfb73f8c /lisp/shadowfile.el | |
| parent | bea824fdf3bb58d11c883c3656d2bbaf23ea109c (diff) | |
| download | emacs-4f8e58ec5f5762dcd79e944ee135c4bb150b425c.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) |