Function: solitaire-undo

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

Signature

(solitaire-undo ARG)

Documentation

Undo a move in Solitaire.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/play/solitaire.el.gz
(defun solitaire-undo (arg)
  "Undo a move in Solitaire."
  (interactive "P" solitaire-mode)
  (let ((buffer-read-only nil))
    (undo arg))
  (save-excursion
    (setq solitaire-stones
	  (let ((count 0))
	    (goto-char solitaire-end)
	    (while (search-backward "o" solitaire-start 'done)
	      (and (>= (current-column) solitaire-start-x)
		   (<= (current-column) solitaire-end-x)
		   (>= (solitaire-current-line) solitaire-start-y)
		   (<= (solitaire-current-line) solitaire-end-y)
		   (setq count (1+ count))))
	    count)))
  (solitaire-build-mode-line)
  (when solitaire-auto-eval (solitaire-do-check)))