mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(shadow-copy-files): Use interactive-p

Browse Source 
only to control whether to print a message.
This commit is contained in:
Richard M. Stallman 2004-10-27 17:41:24 +00:00
parent bea824fdf3
commit 4f8e58ec5f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/shadowfile.el
View File

@ -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)