Mercurial > emacs

diff lisp/pcvs.el @ 88123:375f2633d815

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New directory
author Kenichi Handa <handa@m17n.org>
date Mon, 08 Sep 2003 11:56:09 +0000
parents 695cf19ef79e
children 68c22ea6027c
line wrap: on
line diff
--- a/lisp/pcvs.el	Thu Sep 04 04:00:49 2003 +0000
+++ b/lisp/pcvs.el	Mon Sep 08 11:56:09 2003 +0000
@@ -2043,12 +2043,7 @@
 	  (shrink-window-if-larger-than-buffer))))
     (if (not (or silent
 		 (unwind-protect
-		     (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))))
+		     (yes-or-no-p (format "Delete %d files? " (length files)))
 		   (cvs-bury-buffer tmpbuf cvs-buffer))))
 	(progn (message "Aborting") nil)
       (dolist (fi files)
@@ -2316,5 +2311,4 @@
 
 (provide 'pcvs)
 
-;;; arch-tag: 8e3a7494-0453-4389-9ab3-a557ce9fab61
 ;;; pcvs.el ends here