From 395bbcd318e03f1651b5057932d7713a5592acd6 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Sat, 1 Dec 2007 09:07:04 +0000 Subject: [PATCH] (bb-up, bb-down): Revert 2007-10-21 change and wrap next-/previous-line in with-no-warnings. --- lisp/ChangeLog | 5 +++++ lisp/play/blackbox.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 + + * 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 * 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)))) -- 2.11.4.GIT