summaryrefslogtreecommitdiff
path: root/lisp/bs.el
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2009-02-23 15:27:40 +0000
committerJuanma Barranquero <lekktu@gmail.com>2009-02-23 15:27:40 +0000
commit936934f5e0c72c1427eb783a5746ddbec519bfda (patch)
tree4c11bb7eeff3b0159008cef25f0b600f237ca1dc /lisp/bs.el
parent3deb93c663738615ef54366eef53162fd4fa6c2a (diff)
downloademacs-936934f5e0c72c1427eb783a5746ddbec519bfda.tar.gz
* bs.el (bs--down): When wrapping around, use `forward-line',
not `goto-line', to avoid distracting "Mark set" message.
Diffstat (limited to 'lisp/bs.el')
-rw-r--r--lisp/bs.el4
1 files changed, 3 insertions, 1 deletions
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)