Function: solitaire-move

solitaire-move is an interactive and byte-compiled function defined in solitaire.el.gz.

Signature

(solitaire-move DIR)

Documentation

Pseudo-prefix command to move a stone in Solitaire.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/play/solitaire.el.gz
(defun solitaire-move (dir)
  "Pseudo-prefix command to move a stone in Solitaire."
  (interactive "kMove where? " solitaire-mode)
  (let* ((class (solitaire-possible-move (lookup-key solitaire-mode-map dir)))
	 (buffer-read-only nil))
    (if (stringp class)
	(error class)
      (let ((start (car class))
	    (skip (car (cdr class)))
	    (target (car (cdr (cdr class)))))
	(goto-char start)
	(delete-char 1)
	(insert ?.)
	(goto-char skip)
	(delete-char 1)
	(insert ?.)
	(goto-char target)
	(delete-char 1)
	(insert ?o)
	(goto-char target)
	(setq solitaire-stones (1- solitaire-stones))
	(solitaire-build-mode-line)
	(if solitaire-auto-eval (solitaire-do-check))))))