diff options
| author | Masatake YAMATO <jet@gyve.org> | 2003-08-23 02:40:47 +0000 |
|---|---|---|
| committer | Masatake YAMATO <jet@gyve.org> | 2003-08-23 02:40:47 +0000 |
| commit | 9f39e551a226f592e736cba30e5d4674e26c082e (patch) | |
| tree | d53a05d51cac94a63d325df0052ea1a521767d34 /lisp/pcvs.el | |
| parent | 231d6cfb0c65a7ece2455e7fd0a488851a634778 (diff) | |
| download | emacs-9f39e551a226f592e736cba30e5d4674e26c082e.tar.gz | |
(cvs-do-removal): Show the deleted file name on the prompt.
Diffstat (limited to 'lisp/pcvs.el')
| -rw-r--r-- | lisp/pcvs.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 1fd4d90d60b..300ed10c9cd 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -2043,7 +2043,10 @@ Returns a list of FIS that should be `cvs remove'd." (shrink-window-if-larger-than-buffer)))) (if (not (or silent (unwind-protect - (yes-or-no-p (format "Delete %d files? " (length files))) + (if (eq 1 (length files)) + (yes-or-no-p (format "Delete file: \"%s\" ? " + (cvs-fileinfo->file (car files)))) + (yes-or-no-p (format "Delete %d files? " (length files)))) (cvs-bury-buffer tmpbuf cvs-buffer)))) (progn (message "Aborting") nil) (dolist (fi files) |