[Emacs-diffs] Changes to emacs/lisp/pcvs.el

[Masatake YAMATO]

Index: emacs/lisp/pcvs.el
diff -c emacs/lisp/pcvs.el:1.60 emacs/lisp/pcvs.el:1.61
*** emacs/lisp/pcvs.el:1.60     Fri Aug 22 22:40:47 2003
--- emacs/lisp/pcvs.el  Sat Aug 30 22:11:21 2003
***************
*** 2043,2052 ****
          (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))))
                   (cvs-bury-buffer tmpbuf cvs-buffer))))
        (progn (message "Aborting") nil)
        (dolist (fi files)
--- 2043,2054 ----
          (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))))
                   (cvs-bury-buffer tmpbuf cvs-buffer))))
        (progn (message "Aborting") nil)
        (dolist (fi files)