andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(bb-right): Respect prefix argument.

Browse source 
(bb-left, bb-up, bb-down): Likewise.
This commit is contained in:
Richard M. Stallman 2002-09-20 18:34:12 +00:00
parent 3adec967d3
commit 4bd2c0134a
2 changed files with 26 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2002-09-19 Tom Tromey <tromey@redhat.com>
* play/blackbox.el (bb-right): Respect prefix argument.
(bb-left, bb-up, bb-down): Likewise.
2002-09-19 Richard M. Stallman <rms@gnu.org>
* cus-dep.el (custom-make-dependencies): Fix previous change.

42
lisp/play/blackbox.el
View file

@ -1,6 +1,6 @@
;;; blackbox.el --- blackbox game in Emacs Lisp
;; Copyright (C) 1985, 1986, 1987, 1992, 2001 Free Software Foundation, Inc.
;; Copyright (C) 1985, 1986, 1987, 1992, 2001, 2002 Free Software Foundation, Inc.
;; Author: F. Thomas May <uw-nsr!uw-warp!tom@beaver.cs.washington.edu>
;; Adapted-By: ESR
@ -275,33 +275,33 @@ a reflection."
(insert (format "\nThere are %d balls in the box" (length bb-board)))
))
(defun bb-right ()
(interactive)
(if (= bb-x 8)
()
(defun bb-right (count)
(interactive "p")
(while (and (> count 0) (< bb-x 8))
(forward-char 2)
(setq bb-x (1+ bb-x))))
(setq bb-x (1+ bb-x))
(setq count (1- count))))
(defun bb-left ()
(interactive)
(if (= bb-x -1)
()
(defun bb-left (count)
(interactive "p")
(while (and (> count 0) (> bb-x -1))
(backward-char 2)
(setq bb-x (1- bb-x))))
(setq bb-x (1- bb-x))
(setq count (1- count))))
(defun bb-up ()
(interactive)
(if (= bb-y -1)
()
(defun bb-up (count)
(interactive "p")
(while (and (> count 0) (> bb-y -1))
(previous-line 1)
(setq bb-y (1- bb-y))))
(setq bb-y (1- bb-y))
(setq count (1- count))))
(defun bb-down ()
(interactive)
(if (= bb-y 8)
()
(defun bb-down (count)
(interactive "p")
(while (and (> count 0) (< bb-y 8))
(next-line 1)
(setq bb-y (1+ bb-y))))
(setq bb-y (1+ bb-y))
(setq count (1- count))))
(defun bb-eol ()
(interactive)