From: Colin Walters <walters@gnu.org>
Date: Mon, 18 Mar 2002 21:21:57 +0000 (+0000)
Subject: (ibuffer-set-mark): Go back to the beginning of the line after setting
X-Git-Tag: ttn-vms-21-2-B4~16083
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=559ac4c15da993e016c25b1810a35646e9b463e5;p=emacs.git

(ibuffer-set-mark): Go back to the beginning of the line after setting
the mark.
(ibuffer-insert-buffers-and-marks): Invert the test for
`ibuffer-sorting-reversep'.
---

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index afcd35370de..bee8701ef8c 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1161,7 +1161,8 @@ become unmarked."
   (let ((inhibit-read-only t))
     (ibuffer-set-mark-1 mark)
     (setq ibuffer-did-modification t)
-    (ibuffer-redisplay-current)))
+    (ibuffer-redisplay-current)
+    (beginning-of-line)))
 
 (defun ibuffer-set-mark-1 (mark)
   (let ((beg (line-beginning-position))
@@ -1951,8 +1952,8 @@ Do not display messages if SILENT is non-nil."
 			    bmarklist)))
 		     ;; perhaps reverse the sorted buffer list
 		     (if ibuffer-sorting-reversep
-			 result
-		       (nreverse result))))))
+			 (nreverse result)
+		       result)))))
 	    (dolist (entry entries)
 	      (ibuffer-insert-buffer-line
 	       (car entry)