518 |
`shadow-save-buffers-kill-emacs', so it is not usually necessary to |
`shadow-save-buffers-kill-emacs', so it is not usually necessary to |
519 |
call it manually." |
call it manually." |
520 |
(interactive "P") |
(interactive "P") |
521 |
(if (and (not shadow-files-to-copy) (interactive-p)) |
(if (not shadow-files-to-copy) |
522 |
(message "No files need to be shadowed.") |
(if (interactive-p) |
523 |
|
(message "No files need to be shadowed.")) |
524 |
(save-excursion |
(save-excursion |
525 |
(map-y-or-n-p (function |
(map-y-or-n-p (function |
526 |
(lambda (pair) |
(lambda (pair) |