diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:22:45 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-09-26 00:22:45 +0000 |
| commit | 5a5b0a68fb3d7b0296f882a56cc6774a9df185d3 (patch) | |
| tree | 19713045132d9fb9817803c92f38591ed49a723f /lisp/play/solitaire.el | |
| parent | 3b0f9f620626ad8c13bbfc9b86b1292212f522f5 (diff) | |
| download | emacs-5a5b0a68fb3d7b0296f882a56cc6774a9df185d3.tar.gz | |
(solitaire-check, solitaire-solve): Use `mapc' rather than `mapcar'.
Diffstat (limited to 'lisp/play/solitaire.el')
| -rw-r--r-- | lisp/play/solitaire.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el index b027db88ad6..e5dde1fe79c 100644 --- a/lisp/play/solitaire.el +++ b/lisp/play/solitaire.el @@ -400,7 +400,7 @@ which a stone will be taken away) and target." (<= (current-column) solitaire-end-x) (>= (solitaire-current-line) solitaire-start-y) (<= (solitaire-current-line) solitaire-end-y) - (mapcar + (mapc (lambda (movesymbol) (if (listp (solitaire-possible-move movesymbol)) (setq count (1+ count)))) @@ -446,13 +446,13 @@ Seen in info on text lines." ;; right S-left (solitaire-auto-eval nil)) (solitaire-center-point) - (mapcar (lambda (op) - (if (memq op '(S-left S-right S-up S-down)) - (sit-for 0.2)) - (execute-kbd-macro (vector op)) - (if (memq op '(S-left S-right S-up S-down)) - (sit-for 0.4))) - allmoves)) + (mapc (lambda (op) + (if (memq op '(S-left S-right S-up S-down)) + (sit-for 0.2)) + (execute-kbd-macro (vector op)) + (if (memq op '(S-left S-right S-up S-down)) + (sit-for 0.4))) + allmoves)) (solitaire-do-check)) (provide 'solitaire) |