[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
prompt of cvs-do-removal
From: |
Masatake YAMATO |
Subject: |
prompt of cvs-do-removal |
Date: |
Fri, 22 Aug 2003 19:13:44 +0900 (JST) |
When I delete multiple files at once on *cvs* buffer, I can know
which files will be deleted easily because files are marked with `*'
and font-lock puts different color on the lines started from `*'.
In other hand, When I delete one file by `r(cvs-mode-remove)',
sometime I cannot know which file will be deleted easily because
the file is not marked with `*'.
With next patch, the file name is shown in the prompt when pcl-cvs user
tries to delete a file with `r'.
Masatake
P.S. Thank you for reviewing my patch every time.
2003-08-05 Masatake YAMATO <address@hidden>
* pcvs.el (cvs-do-removal): Show the deleted file name
on the prompt.
cvs diff: warning: unrecognized response `access control disabled, clients can
connect from any host' from cvs server
Warning: Remote host denied X11 forwarding.
Index: lisp/pcvs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/pcvs.el,v
retrieving revision 1.59
diff -u -r1.59 pcvs.el
--- lisp/pcvs.el 23 May 2003 19:31:02 -0000 1.59
+++ lisp/pcvs.el 22 Aug 2003 10:00:44 -0000
@@ -2043,7 +2043,9 @@
(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)
- prompt of cvs-do-removal,
Masatake YAMATO <=