Mercurial > emacs

changeset 84915:4baa88b428f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(solitaire-check, solitaire-solve): Use `mapc' rather than `mapcar'.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 26 Sep 2007 00:22:45 +0000
parents 0306d3c580c6
children e41433198a1b
files lisp/play/solitaire.el
diffstat 1 files changed, 8 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/play/solitaire.el	Wed Sep 26 00:22:15 2007 +0000
+++ b/lisp/play/solitaire.el	Wed Sep 26 00:22:45 2007 +0000
@@ -400,7 +400,7 @@
 	       (<= (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 @@
 	;; 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)