[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/play/solitaire.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/play/solitaire.el |
Date: |
Fri, 12 Apr 2002 15:07:23 -0400 |
Index: emacs/lisp/play/solitaire.el
diff -c emacs/lisp/play/solitaire.el:1.8 emacs/lisp/play/solitaire.el:1.9
*** emacs/lisp/play/solitaire.el:1.8 Wed May 20 21:54:43 1998
--- emacs/lisp/play/solitaire.el Sun May 24 12:49:00 1998
***************
*** 333,352 ****
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"))))
(defun solitaire-move (dir)
"Pseudo-prefix command to move a stone in Solitaire."
--- 333,350 ----
which a stone will be taken away) and target."
(save-excursion
! (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."
- [Emacs-diffs] Changes to emacs/lisp/play/solitaire.el,
Eli Zaretskii <=