[Emacs-diffs] Changes to emacs/lisp/play/solitaire.el,v

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      07/09/26 00:22:45

Index: solitaire.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/play/solitaire.el,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- solitaire.el        26 Jul 2007 05:27:22 -0000      1.20
+++ solitaire.el        26 Sep 2007 00:22:45 -0000      1.21
@@ -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,7 +446,7 @@
        ;; right S-left
        (solitaire-auto-eval nil))
     (solitaire-center-point)
-    (mapcar (lambda (op)
+    (mapc (lambda (op)
              (if (memq op '(S-left S-right S-up S-down))
                  (sit-for 0.2))
              (execute-kbd-macro (vector op))