From: Martin Rudalics <rudalics@gmx.at>
Date: Sat, 1 Dec 2007 09:07:04 +0000 (+0000)
Subject: (bb-up, bb-down): Revert 2007-10-21 change and
X-Git-Tag: emacs-pretest-23.0.90~9201
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=395bbcd318e03f1651b5057932d7713a5592acd6;p=emacs.git

(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 592015b467a..6b976d8b8e4 100644
--- 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 699aa91abcf..48a6e4bd046 100644
--- 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))))