From 9f39e551a226f592e736cba30e5d4674e26c082e Mon Sep 17 00:00:00 2001 From: Masatake YAMATO Date: Sat, 23 Aug 2003 02:40:47 +0000 Subject: [PATCH] (cvs-do-removal): Show the deleted file name on the prompt. --- lisp/ChangeLog | 5 +++++ lisp/pcvs.el | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3a7112dbf04..800db5bdc50 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-08-23 Masatake YAMATO + + * pcvs.el (cvs-do-removal): Show the deleted file name + on the prompt. + 2003-08-20 Dave Love * international/mule.el (make-coding-system) diff --git a/lisp/pcvs.el b/lisp/pcvs.el index 1fd4d90d60b..300ed10c9cd 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -2043,7 +2043,10 @@ 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 (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) -- 2.39.2