mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -08:00
Code Issues Projects Releases Wiki Activity

(solitaire-possible-move): Use funcall to invoke movesymbol.

Browse source
This commit is contained in:
Richard M. Stallman 1998-05-24 16:49:00 +00:00
parent e81d27c2cf
commit 20a6d217c3
1 changed files with 12 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/play/solitaire.el
View file

@ -333,20 +333,18 @@ list containing three numbers: starting field, skipped field (from
which a stone will be taken away) and target."
(save-excursion
(let (move)
(fset 'move movesymbol)
(if (memq movesymbol solitaire-valid-directions)
(let ((start (point))
(skip (progn (move) (point)))
(target (progn (move) (point))))
(if (= skip target)
"Off Board!"
(if (or (/= ?o (char-after start))
(/= ?o (char-after skip))
(/= ?. (char-after target)))
"Wrong move!"
(list start skip target))))
"Not a valid direction"))))
(if (memq movesymbol solitaire-valid-directions)
(let ((start (point))
(skip (progn (funcall movesymbol) (point)))
(target (progn (funcall movesymbol) (point))))
(if (= skip target)
"Off Board!"
(if (or (/= ?o (char-after start))
(/= ?o (char-after skip))
(/= ?. (char-after target)))
"Wrong move!"
(list start skip target))))
"Not a valid direction")))
(defun solitaire-move (dir)
"Pseudo-prefix command to move a stone in Solitaire."