* bs.el (bs--down): When wrapping around, use `forward-line',

  not `goto-line', to avoid distracting "Mark set" message.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 154e91e3c64fa673f1576786db63f42aef70d3d8..80fc866aa2786dd39b93b1a457b4177c40df5143 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/bs.el b/lisp/bs.el
index 96bad48cf2acdba7a9c74bbb4c317ef457b63a7b..9b818e58a6e54cf78bbb984b7eded271e268cfc9 100644 (file)
--- a/lisp/bs.el
+++ b/lisp/bs.el
@@ -1008,7 +1008,9 @@ If on top of buffer list go to last line."
   "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)