Mercurial > emacs
comparison lisp/shadowfile.el @ 57748:a5bb249b0f3b
(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 |
comparison
equal
deleted
inserted
replaced
| 57747:97a3201f82ef | 57748:a5bb249b0f3b |
|---|---|
| 516 Pending copies are stored in variable `shadow-files-to-copy', and in | 516 Pending copies are stored in variable `shadow-files-to-copy', and in |
| 517 `shadow-todo-file' if necessary. This function is invoked by | 517 `shadow-todo-file' if necessary. This function is invoked by |
| 518 `shadow-save-buffers-kill-emacs', so it is not usually necessary to | 518 `shadow-save-buffers-kill-emacs', so it is not usually necessary to |
| 519 call it manually." | 519 call it manually." |
| 520 (interactive "P") | 520 (interactive "P") |
| 521 (if (and (not shadow-files-to-copy) (interactive-p)) | 521 (if (not shadow-files-to-copy) |
| 522 (message "No files need to be shadowed.") | 522 (if (interactive-p) |
| 523 (message "No files need to be shadowed.")) | |
| 523 (save-excursion | 524 (save-excursion |
| 524 (map-y-or-n-p (function | 525 (map-y-or-n-p (function |
| 525 (lambda (pair) | 526 (lambda (pair) |
| 526 (or arg shadow-noquery | 527 (or arg shadow-noquery |
| 527 (format "Copy shadow file %s? " (cdr pair))))) | 528 (format "Copy shadow file %s? " (cdr pair))))) |