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

[Masatake YAMATO]

Index: emacs/lisp/pcvs.el
diff -c emacs/lisp/pcvs.el:1.62 emacs/lisp/pcvs.el:1.63
*** emacs/lisp/pcvs.el:1.62     Mon Sep  1 11:45:14 2003
--- emacs/lisp/pcvs.el  Fri Sep 19 14:43:16 2003
***************
*** 2044,2054 ****
      (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)
--- 2044,2058 ----
      (if (not (or silent
                 (unwind-protect
                     (yes-or-no-p 
!                     (let ((nfiles (length files))
!                           (verb (if (eq filter 'undo) "Undo" "Delete")))
                        (if (= 1 nfiles)
!                           (format "%s file: \"%s\" ? " 
!                                   verb
                                    (cvs-fileinfo->file (car files)))
!                         (format "%s %d files? " 
!                                 verb
!                                 nfiles))))
                   (cvs-bury-buffer tmpbuf cvs-buffer))))
        (progn (message "Aborting") nil)
        (dolist (fi files)