diff options
| author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2003-09-29 14:40:28 +0000 |
|---|---|---|
| committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2003-09-29 14:40:28 +0000 |
| commit | 00b0001f1bc0e9ef997dfefbf0452ae75de2ff65 (patch) | |
| tree | 6bd02e3ed11c48bba19cd032ef870fe4941f06a4 /lisp/pcvs.el | |
| parent | 1e76412fcf180e070dd77f7127c1ba4bdb49c3cf (diff) | |
| download | emacs-00b0001f1bc0e9ef997dfefbf0452ae75de2ff65.tar.gz | |
(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 fe19de66047..eea0e541043 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)))) |