# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1235386876 0
# Node ID d7624c39682bd8e9b5087220f29b5ec8578c0aff
# Parent  14fd6b368bb8f94296f7d3d13b7ebbb664a99f53
* ibuffer.el (ibuffer-redisplay-engine): Avoid "Mark set" message clobbering
  the useful message from `ibuffer-toggle-sorting-mode'.  (Bug#2439)

diff -r 14fd6b368bb8 -r d7624c39682b lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Feb 23 10:56:29 2009 +0000
+++ b/lisp/ChangeLog	Mon Feb 23 11:01:16 2009 +0000
@@ -1,3 +1,9 @@
+2009-02-23  Geoff Gole  <geoffgole@gmail.com>  (tiny change)
+
+	* ibuffer.el (ibuffer-redisplay-engine): Avoid "Mark set" message
+	clobbering the useful message from `ibuffer-toggle-sorting-mode'.
+	(Bug#2439)
+
 2009-02-23  Miles Bader  <miles@gnu.org>
 
 	* proced.el (proced-process-attributes):
diff -r 14fd6b368bb8 -r d7624c39682b lisp/ibuffer.el
--- a/lisp/ibuffer.el	Mon Feb 23 10:56:29 2009 +0000
+++ b/lisp/ibuffer.el	Mon Feb 23 11:01:16 2009 +0000
@@ -54,10 +54,10 @@
 (defvar ibuffer-tmp-hide-regexps)
 (defvar ibuffer-tmp-show-regexps)
 
-(declare-function ibuffer-mark-on-buffer "ibuf-ext" 
+(declare-function ibuffer-mark-on-buffer "ibuf-ext"
 		  (func &optional ibuffer-mark-on-buffer-mark group))
 (declare-function ibuffer-format-qualifier "ibuf-ext" (qualifier))
-(declare-function ibuffer-generate-filter-groups "ibuf-ext" 
+(declare-function ibuffer-generate-filter-groups "ibuf-ext"
 		  (bmarklist &optional noempty nodefault))
 (declare-function ibuffer-format-filter-group-data "ibuf-ext" (filter))
 
@@ -1239,7 +1239,7 @@
   (ibuffer-map-on-mark ibuffer-deletion-char func))
 
 (defsubst ibuffer-assert-ibuffer-mode ()
-  (assert (derived-mode-p 'ibuffer-mode))) 
+  (assert (derived-mode-p 'ibuffer-mode)))
 
 (defun ibuffer-buffer-file-name ()
   (or buffer-file-name
@@ -2066,7 +2066,7 @@
 				  name)))
 		  (when hmap
 		    (setq
-		     strname 
+		     strname
 		     (propertize strname 'mouse-face 'highlight 'keymap hmap)))
 		  strname)))))
 	 (add-text-properties opos (point) `(ibuffer-title-header t))
@@ -2280,7 +2280,8 @@
       (setq buffer-read-only t)
       (set-buffer-modified-p ibuffer-did-modification)
       (setq ibuffer-did-modification nil)
-      (goto-line (1+ orig)))))
+      (goto-char 1)
+      (forward-line orig))))
 
 (defun ibuffer-quit ()
   "Quit this `ibuffer' session.