diff options
| author | Masatake YAMATO <jet@gyve.org> | 2003-09-19 18:43:16 +0000 |
|---|---|---|
| committer | Masatake YAMATO <jet@gyve.org> | 2003-09-19 18:43:16 +0000 |
| commit | 9ceda1bb2270990eb3ae39e835f6db7a9bad0ce8 (patch) | |
| tree | 1badd2fb60e960757f8ad30019ff12e388824458 /lisp/pcvs.el | |
| parent | 9f8b58091cdbf898457c7184d99a67b5543dce65 (diff) | |
| download | emacs-9ceda1bb2270990eb3ae39e835f6db7a9bad0ce8.tar.gz | |
Change the prompt depending on `filter' value.
Diffstat (limited to 'lisp/pcvs.el')
| -rw-r--r-- | lisp/pcvs.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/pcvs.el b/lisp/pcvs.el index c1cc83150bb..fe19de66047 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -2044,11 +2044,15 @@ Returns a list of FIS that should be `cvs remove'd." (if (not (or silent (unwind-protect (yes-or-no-p - (let ((nfiles (length files))) + (let ((nfiles (length files)) + (verb (if (eq filter 'undo) "Undo" "Delete"))) (if (= 1 nfiles) - (format "Delete file: \"%s\" ? " + (format "%s file: \"%s\" ? " + verb (cvs-fileinfo->file (car files))) - (format "Delete %d files? " nfiles)))) + (format "%s %d files? " + verb + nfiles)))) (cvs-bury-buffer tmpbuf cvs-buffer)))) (progn (message "Aborting") nil) (dolist (fi files) |