From: Masatake YAMATO Date: Sun, 31 Aug 2003 02:11:21 +0000 (+0000) Subject: * pcvs.el (cvs-do-removal): Use = instead of eq to check X-Git-Tag: ttn-vms-21-2-B4~8942 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb61abb8a10b460c78483cc802277a5d2b36ad92;p=emacs.git * 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 . --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7024544dc24..7dbe7425530 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2003-08-31 Masatake YAMATO + + * 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 . + 2003-08-30 Eli Zaretskii * vc-hooks.el (vc-make-version-backup): Fix the change made on diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 300ed10c9cd..51bbafd8d3c 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -2043,10 +2043,12 @@ Returns a list of FIS that should be `cvs remove'd." (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)