diff options
| author | Kenichi Handa <handa@m17n.org> | 2003-09-08 11:56:09 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2003-09-08 11:56:09 +0000 |
| commit | 463f5630a5e7cbe7f042bc1175d1fa1c4e98860f (patch) | |
| tree | 3287d0c628fea2249abf4635b3a4f45bedd6f8c4 /lisp/pcvs.el | |
| parent | 4256310de631bd57c78b88b5131caa073315b3d7 (diff) | |
| download | emacs-463f5630a5e7cbe7f042bc1175d1fa1c4e98860f.tar.gz | |
New directory
Diffstat (limited to 'lisp/pcvs.el')
| -rw-r--r-- | lisp/pcvs.el | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index c1cc83150bb..1fd4d90d60b 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -2043,12 +2043,7 @@ Returns a list of FIS that should be `cvs remove'd." (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)))) + (yes-or-no-p (format "Delete %d files? " (length files))) (cvs-bury-buffer tmpbuf cvs-buffer)))) (progn (message "Aborting") nil) (dolist (fi files) @@ -2316,5 +2311,4 @@ The exact behavior is determined also by `cvs-dired-use-hook'." (provide 'pcvs) -;;; arch-tag: 8e3a7494-0453-4389-9ab3-a557ce9fab61 ;;; pcvs.el ends here |