mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

Change the prompt depending on `filter' value.

Browse Source
This commit is contained in:
Masatake YAMATO 2003-09-19 18:43:16 +00:00
parent 9f8b58091c
commit 9ceda1bb22
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

10
lisp/pcvs.el
View File

@ -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)