Mercurial > emacs
changeset 52552:dab2424315f1
Change the prompt depending on `filter' value.
| author | Masatake YAMATO <jet@gyve.org> |
|---|---|
| date | Fri, 19 Sep 2003 18:43:16 +0000 |
| parents | 63e754c53eb8 |
| children | c9d6b407c93b |
| files | lisp/ChangeLog lisp/pcvs.el |
| diffstat | 2 files changed, 12 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Sep 19 17:13:23 2003 +0000 +++ b/lisp/ChangeLog Fri Sep 19 18:43:16 2003 +0000 @@ -1,3 +1,8 @@ +2003-09-19 Masatake YAMATO <jet@gyve.org> + + * pcvs.el (cvs-do-removal): Change the prompt depending on + `filter' value. + 2003-09-19 Glenn Morris <gmorris@ast.cam.ac.uk> * startup.el (command-line-1): Stop startup-echo-area-message
--- a/lisp/pcvs.el Fri Sep 19 17:13:23 2003 +0000 +++ b/lisp/pcvs.el Fri Sep 19 18:43:16 2003 +0000 @@ -2044,11 +2044,15 @@ (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)