Mercurial > emacs
diff lisp/pcvs.el @ 52669:2db8fbd2339c
(cvs-mode-unmark-up): Move to goal column when done.
author | Thien-Thi Nguyen <ttn@gnuvola.org> |
---|---|
date | Mon, 29 Sep 2003 14:40:28 +0000 |
parents | dab2424315f1 |
children | 43c8c6b5656b |
line wrap: on
line diff
--- a/lisp/pcvs.el Mon Sep 29 13:44:26 2003 +0000 +++ b/lisp/pcvs.el Mon Sep 29 14:40:28 2003 +0000 @@ -1256,7 +1256,8 @@ (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 @@ (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))))