Mercurial > emacs
changeset 52299:127d2248385e
(cvs-do-removal): Show the deleted file name on the prompt.
| author | Masatake YAMATO <jet@gyve.org> |
|---|---|
| date | Sat, 23 Aug 2003 02:40:47 +0000 |
| parents | 1a4bd2bec861 |
| children | 2672198e6a12 |
| files | lisp/ChangeLog lisp/pcvs.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Aug 21 19:54:47 2003 +0000 +++ b/lisp/ChangeLog Sat Aug 23 02:40:47 2003 +0000 @@ -1,3 +1,8 @@ +2003-08-23 Masatake YAMATO <jet@gyve.org> + + * pcvs.el (cvs-do-removal): Show the deleted file name + on the prompt. + 2003-08-20 Dave Love <fx@gnu.org> * international/mule.el (make-coding-system)
--- a/lisp/pcvs.el Thu Aug 21 19:54:47 2003 +0000 +++ b/lisp/pcvs.el Sat Aug 23 02:40:47 2003 +0000 @@ -2043,7 +2043,10 @@ (shrink-window-if-larger-than-buffer)))) (if (not (or silent (unwind-protect - (yes-or-no-p (format "Delete %d files? " (length files))) + (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)