From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 27 Nov 2000 13:36:57 +0000 (+0000)
Subject: Update from author.
X-Git-Tag: emacs-pretest-21.0.92~53
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=26a8d08da569179a52828c2bf321908826e9c633;p=emacs.git

Update from author.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bdcdd81585f..10d3413a6d3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-27  Gerd Moellmann  <gerd@gnu.org>
+
+	* play/5x5.el: Update from author.
+
 2000-11-27  Andrew Innes  <andrewi@gnu.org>
 
 	* makefile.nt (.SUFFIXES): Add .SUFFIXES.
diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el
index 7fb1ff1b346..490beff86cc 100644
--- a/lisp/play/5x5.el
+++ b/lisp/play/5x5.el
@@ -1,11 +1,11 @@
 ;;; 5x5.el -- Simple little puzzle game.
 
-;; Copyright (C) 1999 Free Software Foundation, Inc.
+;; Copyright (C) 1999,2000 Free Software Foundation, Inc.
 
-;; Author: Dave Pearson <davep@hagbard.demon.co.uk>
-;; Maintainer: Dave Pearson <davep@hagbard.demon.co.uk>
+;; Author: Dave Pearson <davep@davep.org>
+;; Maintainer: Dave Pearson <davep@davep.org>
 ;; Created: 1998-10-03
-;; Version: $Revision: 1.2 $
+;; Version: $Revision: 1.20 $
 ;; Keywords: games puzzles
 
 ;; This file is part of GNU Emacs.
@@ -414,15 +414,16 @@ should return a grid vector array that is the new solution."
   "Play a solution on an empty grid. This destroys the current game in
 progress because it is an animated attempt."
   (5x5-new-game)
-  (loop for y from 0 to (1- 5x5-grid-size) do
-        (loop for x from 0 to (1- 5x5-grid-size) do
-              (setq 5x5-y-pos y
-                    5x5-x-pos x)
-              (if (5x5-cell solution y x)
-                  (5x5-flip-current))
-              (5x5-draw-grid (list 5x5-grid solution best))
-              (5x5-position-cursor)
-              (sit-for 5x5-animate-delay)))
+  (let ((inhibit-quit t))
+    (loop for y from 0 to (1- 5x5-grid-size) do
+          (loop for x from 0 to (1- 5x5-grid-size) do
+                (setq 5x5-y-pos y
+                      5x5-x-pos x)
+                (if (5x5-cell solution y x)
+                    (5x5-flip-current))
+                (5x5-draw-grid (list 5x5-grid solution best))
+                (5x5-position-cursor)
+                (sit-for 5x5-animate-delay))))
   5x5-grid)
   
 ;; Keyboard response functions.