From d3ffebbcea391354b7bcc86386cc955467a3636f Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Mon, 29 Sep 2003 14:40:28 +0000 Subject: (cvs-mode-unmark-up): Move to goal column when done. --- lisp/pcvs.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lisp/pcvs.el') diff --git a/lisp/pcvs.el b/lisp/pcvs.el index fe19de6604..eea0e54104 100644 --- a/lisp/pcvs.el +++ b/lisp/pcvs.el @@ -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)))) -- cgit v1.2.3