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

[Eli Zaretskii]

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."