From 936934f5e0c72c1427eb783a5746ddbec519bfda Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 23 Feb 2009 15:27:40 +0000 Subject: [PATCH] * bs.el (bs--down): When wrapping around, use `forward-line', not `goto-line', to avoid distracting "Mark set" message. --- lisp/ChangeLog | 5 +++++ lisp/bs.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 154e91e3c64..80fc866aa27 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-02-23 Juanma Barranquero + + * bs.el (bs--down): When wrapping around, use `forward-line', + not `goto-line', to avoid distracting "Mark set" message. + 2009-02-23 Geoff Gole (tiny change) * ibuffer.el (ibuffer-redisplay-engine): Avoid "Mark set" message diff --git a/lisp/bs.el b/lisp/bs.el index 96bad48cf2a..9b818e58a6e 100644 --- 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) -- 2.39.5