# HG changeset patch
# User Masatake YAMATO <jet@gyve.org>
# Date 1062295881 0
# Node ID b851ebbed6d899d1a9f2a4e9d28faa5b3cb9fa50
# Parent  2415f47f227abad5ce9140b22b7c9d27e8c07c63
* pcvs.el (cvs-do-removal): Use = instead of eq to check
the numbre of files. Bind the numbre of files to a a local
variable. Suggestd by Kevin Rodgers <ihs_4664@yahoo.com>.

diff -r 2415f47f227a -r b851ebbed6d8 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Aug 30 17:44:40 2003 +0000
+++ b/lisp/ChangeLog	Sun Aug 31 02:11:21 2003 +0000
@@ -1,3 +1,9 @@
+2003-08-31  Masatake YAMATO  <jet@gyve.org>
+
+	* pcvs.el (cvs-do-removal): Use = instead of eq to check
+	the numbre of files. Bind the numbre of files to a a local
+	variable. Suggestd by Kevin Rodgers <ihs_4664@yahoo.com>.
+
 2003-08-30  Eli Zaretskii  <eliz@elta.co.il>
 
 	* vc-hooks.el (vc-make-version-backup): Fix the change made on
diff -r 2415f47f227a -r b851ebbed6d8 lisp/pcvs.el
--- a/lisp/pcvs.el	Sat Aug 30 17:44:40 2003 +0000
+++ b/lisp/pcvs.el	Sun Aug 31 02:11:21 2003 +0000
@@ -2043,10 +2043,12 @@
 	  (shrink-window-if-larger-than-buffer))))
     (if (not (or silent
 		 (unwind-protect
-		     (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))))
+		     (yes-or-no-p 
+		      (let ((nfiles (length files)))
+			(if (= 1 nfiles)
+			    (format "Delete file: \"%s\" ? " 
+				    (cvs-fileinfo->file (car files)))
+			  (format "Delete %d files? " nfiles))))
 		   (cvs-bury-buffer tmpbuf cvs-buffer))))
 	(progn (message "Aborting") nil)
       (dolist (fi files)