# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1235402860 0
# Node ID 13a81d1fb442a73f07fb1eb2bd0dd5cde5e6c934
# Parent  be9950e4177e8803be04bc4593689a6a3ef3892d
* bs.el (bs--down): When wrapping around, use `forward-line',
  not `goto-line', to avoid distracting "Mark set" message.

diff -r be9950e4177e -r 13a81d1fb442 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Feb 23 13:17:21 2009 +0000
+++ b/lisp/ChangeLog	Mon Feb 23 15:27:40 2009 +0000
@@ -1,3 +1,8 @@
+2009-02-23  Juanma Barranquero  <lekktu@gmail.com>
+
+	* bs.el (bs--down): When wrapping around, use `forward-line',
+	not `goto-line', to avoid distracting "Mark set" message.
+
 2009-02-23  Geoff Gole  <geoffgole@gmail.com>  (tiny change)
 
 	* ibuffer.el (ibuffer-redisplay-engine): Avoid "Mark set" message
diff -r be9950e4177e -r 13a81d1fb442 lisp/bs.el
--- a/lisp/bs.el	Mon Feb 23 13:17:21 2009 +0000
+++ b/lisp/bs.el	Mon Feb 23 15:27:40 2009 +0000
@@ -1008,7 +1008,9 @@
   "Move cursor vertically down one line.
 If at end of buffer list go to first line."
   (if (eq (line-end-position) (point-max))
-      (goto-line (1+ bs-header-lines-length))
+      (progn
+	(goto-char 1)
+	(forward-line bs-header-lines-length))
     (forward-line 1)))
 
 (defun bs-visits-non-file (buffer)