(cvs-do-removal): Show the deleted file name on the prompt.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3a7112dbf040f1d882ee85c1a4cedbf58c563dde..800db5bdc501d2e7bba98dcc5320279005ae52c3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-23  Masatake YAMATO  <jet@gyve.org>
+
+       * pcvs.el (cvs-do-removal): Show the deleted file name
+       on the prompt.
+
 2003-08-20  Dave Love  <fx@gnu.org>
 
        * international/mule.el (make-coding-system) 

diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index 1fd4d90d60b06f95849798bcf7138a43cc17b6c7..300ed10c9cda65aefa65d4a0d4990d76dd280946 100644 (file)
--- 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)