# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1064846428 0
# Node ID 2db8fbd2339c28b281ed833b8e97d46666e37656
# Parent  54529275b2ef9050cf42d0c87ea626da66a58845
(cvs-mode-unmark-up): Move to goal column when done.

diff -r 54529275b2ef -r 2db8fbd2339c lisp/pcvs.el
--- 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))))