mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-06 08:54:05 +00:00
Code Issues Releases Activity

Do command markup in blackbox.el

Browse Source
This commit is contained in:
Lars Ingebrigtsen 2021-02-14 18:14:36 +01:00
parent c339691772
commit d6bfa30860
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/play/blackbox.el
View File

@ -274,45 +274,45 @@ a reflection."
))
(defun bb-right (count)
(interactive "p")
(interactive "p" blackbox-mode)
(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")
(interactive "p" blackbox-mode)
(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")
(interactive "p" blackbox-mode)
(while (and (> count 0) (> bb-y -1))
(with-no-warnings (previous-line))
(setq bb-y (1- bb-y))
(setq count (1- count))))
(defun bb-down (count)
(interactive "p")
(interactive "p" blackbox-mode)
(while (and (> count 0) (< bb-y 8))
(with-no-warnings (next-line))
(setq bb-y (1+ bb-y))
(setq count (1- count))))
(defun bb-eol ()
(interactive)
(interactive nil blackbox-mode)
(setq bb-x 8)
(bb-goto (cons bb-x bb-y)))
(defun bb-bol ()
(interactive)
(interactive nil blackbox-mode)
(setq bb-x -1)
(bb-goto (cons bb-x bb-y)))
(defun bb-romp ()
(interactive)
(interactive nil blackbox-mode)
(cond
((and
(or (= bb-x -1) (= bb-x 8))
@ -379,7 +379,7 @@ a reflection."
(defun bb-done ()
"Finish the game and report score."
(interactive)
(interactive nil blackbox-mode)
(let (bogus-balls)
(cond
((not (= (length bb-balls-placed) (length bb-board)))