emacs-devel
[Top][All Lists]
Advanced

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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]