diff options
| author | Thien-Thi Nguyen <[email protected]> | 2003-09-29 14:40:28 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <[email protected]> | 2003-09-29 14:40:28 +0000 |
| commit | d3ffebbcea391354b7bcc86386cc955467a3636f (patch) | |
| tree | 14736d2afae7a864ad1903f376c28aa3d7841872 /lisp/pcvs.el | |
| parent | 9074f5fbb83a1e892a45b5b01105dc297a9f0a42 (diff) | |
(cvs-mode-unmark-up): Move to goal column when done.
Diffstat (limited to 'lisp/pcvs.el')
| -rw-r--r-- | lisp/pcvs.el | 9 |
1 files changed, 5 insertions, 4 deletions
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)))) |