Mercurial > emacs

changeset 52669:2db8fbd2339c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 54529275b2ef
children fe581ca9f3b4
files lisp/pcvs.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
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))))