diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2009-02-23 15:27:40 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2009-02-23 15:27:40 +0000 |
commit | b7f8182d2e6a4c2dd18b7404c92c82f3cf924802 (patch) | |
tree | 436b6bd8bc9e4b0d4f01108b97a620f1f5e2e02b | |
parent | f7bb498c83d58c193c4087f34631f2e9de1a28c5 (diff) | |
download | emacs-b7f8182d2e6a4c2dd18b7404c92c82f3cf924802.tar.gz |
* bs.el (bs--down): When wrapping around, use `forward-line',
not `goto-line', to avoid distracting "Mark set" message.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/bs.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3930b5b36ff..2312155b42e 100644 --- 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 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) |