Update from author.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bdcdd81585f092d11f2a78fca4cc3cf5186950cf..10d3413a6d3b1bed001b15aacb69b20decaed120 100644 (file)
--- 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 7fb1ff1b346f53b2c29c305ca7824c4380ab5f93..490beff86cca6401db2d8f1a38e83ba8ccf9c22a 100644 (file)
--- 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.