Mercurial > emacs

changeset 86903:c2cad5807c15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(bb-up, bb-down): Revert 2007-10-21 change and wrap next-/previous-line in with-no-warnings.
author Martin Rudalics <rudalics@gmx.at>
date Sat, 01 Dec 2007 09:06:35 +0000
parents 6787c1b3cc6e
children 10e2ab2aa93a
files lisp/play/blackbox.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/blackbox.el	Sat Dec 01 06:59:12 2007 +0000
+++ b/lisp/play/blackbox.el	Sat Dec 01 09:06:35 2007 +0000
@@ -296,14 +296,14 @@
 (defun bb-up (count)
   (interactive "p")
   (while (and (> count 0) (> bb-y -1))
-    (forward-line -1)
+    (with-no-warnings (previous-line))
     (setq bb-y (1- bb-y))
     (setq count (1- count))))
 
 (defun bb-down (count)
   (interactive "p")
   (while (and (> count 0) (< bb-y 8))
-    (forward-line 1)
+    (with-no-warnings (next-line))
     (setq bb-y (1+ bb-y))
     (setq count (1- count))))