[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/pcvs.el
From: |
Masatake YAMATO |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/pcvs.el |
Date: |
Sat, 30 Aug 2003 22:11:22 -0400 |
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)