[Emacs-diffs] emacs/lisp ChangeLog bs.el

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/02/23 15:27:42

Modified files:
        lisp           : ChangeLog bs.el 

Log message:
        * bs.el (bs--down): When wrapping around, use `forward-line',
          not `goto-line', to avoid distracting "Mark set" message.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15384&r2=1.15385
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/bs.el?cvsroot=emacs&r1=1.47&r2=1.48

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15384
retrieving revision 1.15385
diff -u -b -r1.15384 -r1.15385
--- ChangeLog   23 Feb 2009 11:49:25 -0000      1.15384
+++ ChangeLog   23 Feb 2009 15:27:40 -0000      1.15385
@@ -1,3 +1,8 @@
+2009-02-23  Juanma Barranquero  <address@hidden>
+
+       * bs.el (bs--down): When wrapping around, use `forward-line',
+       not `goto-line', to avoid distracting "Mark set" message.
+
 2009-02-23  Geoff Gole  <address@hidden>  (tiny change)
 
        * ibuffer.el (ibuffer-redisplay-engine): Avoid "Mark set" message

Index: bs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/bs.el,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -b -r1.47 -r1.48
--- bs.el       5 Jan 2009 03:18:45 -0000       1.47
+++ bs.el       23 Feb 2009 15:27:42 -0000      1.48
@@ -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)