[Emacs-diffs] Changes to emacs/lisp/play/blackbox.el

[Richard M. Stallman]

Index: emacs/lisp/play/blackbox.el
diff -c emacs/lisp/play/blackbox.el:1.12 emacs/lisp/play/blackbox.el:1.13
*** emacs/lisp/play/blackbox.el:1.12    Thu Dec 20 01:50:42 2001
--- emacs/lisp/play/blackbox.el Fri Sep 20 14:33:35 2002
***************
*** 1,6 ****
  ;;; blackbox.el --- blackbox game in Emacs Lisp
  
! ;; Copyright (C) 1985, 1986, 1987, 1992, 2001 Free Software Foundation, Inc.
  
  ;; Author: F. Thomas May <address@hidden>
  ;; Adapted-By: ESR
--- 1,6 ----
  ;;; blackbox.el --- blackbox game in Emacs Lisp
  
! ;; Copyright (C) 1985, 1986, 1987, 1992, 2001, 2002 Free Software Foundation, 
Inc.
  
  ;; Author: F. Thomas May <address@hidden>
  ;; Adapted-By: ESR
***************
*** 275,307 ****
      (insert (format "\nThere are %d balls in the box" (length bb-board)))
      ))
  
! (defun bb-right ()
!   (interactive)
!   (if (= bb-x 8)
!       ()
      (forward-char 2)
!     (setq bb-x (1+ bb-x))))
  
! (defun bb-left ()
!   (interactive)
!   (if (= bb-x -1)
!       ()
      (backward-char 2)
!     (setq bb-x (1- bb-x))))
  
! (defun bb-up ()
!   (interactive)
!   (if (= bb-y -1)
!       ()
      (previous-line 1)
!     (setq bb-y (1- bb-y))))
  
! (defun bb-down ()
!   (interactive)
!   (if (= bb-y 8)
!       ()
      (next-line 1)
!     (setq bb-y (1+ bb-y))))
  
  (defun bb-eol ()
    (interactive)
--- 275,307 ----
      (insert (format "\nThere are %d balls in the box" (length bb-board)))
      ))
  
! (defun bb-right (count)
!   (interactive "p")
!   (while (and (> count 0) (< bb-x 8))
      (forward-char 2)
!     (setq bb-x (1+ bb-x))
!     (setq count (1- count))))
  
! (defun bb-left (count)
!   (interactive "p")
!   (while (and (> count 0) (> bb-x -1))
      (backward-char 2)
!     (setq bb-x (1- bb-x))
!     (setq count (1- count))))
  
! (defun bb-up (count)
!   (interactive "p")
!   (while (and (> count 0) (> bb-y -1))
      (previous-line 1)
!     (setq bb-y (1- bb-y))
!     (setq count (1- count))))
  
! (defun bb-down (count)
!   (interactive "p")
!   (while (and (> count 0) (< bb-y 8))
      (next-line 1)
!     (setq bb-y (1+ bb-y))
!     (setq count (1- count))))
  
  (defun bb-eol ()
    (interactive)