mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki 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
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)