From 5a5b0a68fb3d7b0296f882a56cc6774a9df185d3 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 26 Sep 2007 00:22:45 +0000 Subject: [PATCH] (solitaire-check, solitaire-solve): Use `mapc' rather than `mapcar'. --- lisp/play/solitaire.el | 16 ++++++++-------- 1 file 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) -- 2.39.2