# HG changeset patch
# User Masatake YAMATO <jet@gyve.org>
# Date 1061606447 0
# Node ID 127d2248385e2721e8031a79cbde4287e35a28c2
# Parent  1a4bd2bec8613f2ced5cd569340454dc211566cd
(cvs-do-removal): Show the deleted file name on the prompt.

diff -r 1a4bd2bec861 -r 127d2248385e lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Aug 21 19:54:47 2003 +0000
+++ b/lisp/ChangeLog	Sat Aug 23 02:40:47 2003 +0000
@@ -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 -r 1a4bd2bec861 -r 127d2248385e lisp/pcvs.el
--- a/lisp/pcvs.el	Thu Aug 21 19:54:47 2003 +0000
+++ b/lisp/pcvs.el	Sat Aug 23 02:40:47 2003 +0000
@@ -2043,7 +2043,10 @@
 	  (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)