Mercurial > emacs
changeset 52388:b851ebbed6d8
* 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>.
| author | Masatake YAMATO <jet@gyve.org> |
|---|---|
| date | Sun, 31 Aug 2003 02:11:21 +0000 |
| parents | 2415f47f227a |
| children | 3627ac63d5a9 |
| files | lisp/ChangeLog lisp/pcvs.el |
| diffstat | 2 files changed, 12 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)