Mercurial > emacs
changeset 102219:13a81d1fb442
* bs.el (bs--down): When wrapping around, use `forward-line',
not `goto-line', to avoid distracting "Mark set" message.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 23 Feb 2009 15:27:40 +0000 |
| parents | be9950e4177e |
| children | fdc43daf966d |
| files | lisp/ChangeLog lisp/bs.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)