mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

(cvs-mode-unmark-up): Move to goal column when done.

Browse source
This commit is contained in:
Thien-Thi Nguyen 2003-09-29 14:40:28 +00:00
parent 9074f5fbb8
commit d3ffebbcea
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/pcvs.el
View file

@ -1256,7 +1256,8 @@ they should always be unmarked."
(let ((tin (ewoc-goto-prev cvs-cookies 1)))
(when tin
(setf (cvs-fileinfo->marked (ewoc-data tin)) nil)
(ewoc-invalidate cvs-cookies tin))))
(ewoc-invalidate cvs-cookies tin)))
(cvs-move-to-goal-column))
(defconst cvs-ignore-marks-alternatives
'(("toggle-marks" . "/TM")
@ -2043,14 +2044,14 @@ 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
(yes-or-no-p
(let ((nfiles (length files))
(verb (if (eq filter 'undo) "Undo" "Delete")))
(if (= 1 nfiles)
(format "%s file: \"%s\" ? "
(format "%s file: \"%s\" ? "
verb
(cvs-fileinfo->file (car files)))
(format "%s %d files? "
(format "%s %d files? "
verb
nfiles))))
(cvs-bury-buffer tmpbuf cvs-buffer))))