(bb-up, bb-down): Revert 2007-10-21 change and

wrap next-/previous-line in with-no-warnings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 592015b467aca100f4062218d8a6c9720fd0cb1f..6b976d8b8e44fbe9734e2c22f491c435a26ef5c8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-12-01  Martin Rudalics  <rudalics@gmx.at>
+
+       * play/blackbox.el (bb-up, bb-down): Revert 2007-10-21 change and
+       wrap next-/previous-line in with-no-warnings.
+
 2007-12-01  Glenn Morris  <rgm@gnu.org>
 
        * progmodes/gdb-ui.el (gud-remove, gud-break):

diff --git a/lisp/play/blackbox.el b/lisp/play/blackbox.el
index 699aa91abcf44a7ef9b651ccd0443a924c097f31..48a6e4bd046e4bebe6b7828b16181148ed4179b3 100644 (file)
--- a/lisp/play/blackbox.el
+++ b/lisp/play/blackbox.el
@@ -296,14 +296,14 @@ a reflection."
 (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))))