# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1016486517 0
# Node ID b2462b8e1cf24723f7bfaa62dc7ec6e58da058e1
# Parent  784c6f7e7ed32615e81f139e7e2350fd25386e92
(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 -r 784c6f7e7ed3 -r b2462b8e1cf2 lisp/ibuffer.el
--- a/lisp/ibuffer.el	Mon Mar 18 21:21:31 2002 +0000
+++ b/lisp/ibuffer.el	Mon Mar 18 21:21:57 2002 +0000
@@ -1161,7 +1161,8 @@
   (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 @@
 			    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)