Index: lisp/bs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/bs.el,v
retrieving revision 1.30
diff -c -r1.30 bs.el
*** lisp/bs.el	10 Nov 2006 01:34:35 -0000	1.30
--- lisp/bs.el	20 Dec 2006 15:01:16 -0000
***************
*** 999,1005 ****
  (defun bs--up ()
    "Move cursor vertically up one line.
  If on top of buffer list go to last line."
-   (interactive "p")
    (if (> (count-lines 1 (point)) bs-header-lines-length)
        (forward-line -1)
      (goto-char (point-max))
--- 999,1004 ----
Index: lisp/ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.10462
diff -C0 -r1.10462 ChangeLog
*** lisp/ChangeLog	20 Dec 2006 05:57:40 -0000	1.10462
--- lisp/ChangeLog	20 Dec 2006 15:01:28 -0000
***************
*** 0 ****
--- 1,4 ----
+ 2006-12-20  Michaël Cadilhac  <michael.cadilhac@lrde.org>
+ 
+ 	* bs.el (bs--up): Remove the `interactive' part.
+