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

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Juanma Barranquero <lektu>      08/08/12 22:23:35

Index: play/solitaire.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/play/solitaire.el,v
retrieving revision 1.19.2.2
retrieving revision 1.19.2.3
diff -u -b -r1.19.2.2 -r1.19.2.3
--- play/solitaire.el   7 Jan 2008 02:00:44 -0000       1.19.2.2
+++ play/solitaire.el   12 Aug 2008 22:23:35 -0000      1.19.2.3
@@ -431,6 +431,8 @@
   "Spoil solitaire by solving the game for you - nearly ...
 ... stops with five stones left ;)"
   (interactive)
+  (when (< solitaire-stones 32)
+    (error "Cannot solve game in progress"))
   (let ((allmoves [up up S-down up left left S-right up up left S-down
                      up up right right S-left down down down S-up up
                      S-down down down down S-up left left down