mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(solitaire-check, solitaire-solve): Use mapc' rather than mapcar'.

Browse source
This commit is contained in:
Juanma Barranquero 2007-09-26 00:22:45 +00:00
parent 3b0f9f6206
commit 5a5b0a68fb
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/play/solitaire.el
View file

@ -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)