X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/94cc397c541f50af6b049af6c42806daa2be2709..587e4b13796f78ed582f36ff8b2ea261c6902b6f:/lisp/play/5x5.el

diff --git a/lisp/play/5x5.el b/lisp/play/5x5.el
index 735c956306..5263cf11bc 100644
--- a/lisp/play/5x5.el
+++ b/lisp/play/5x5.el
@@ -1,7 +1,7 @@
 ;;; 5x5.el --- simple little puzzle game
 
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008, 2009, 2010  Free Software Foundation, Inc.
 
 ;; Author: Dave Pearson <davep@davep.org>
 ;; Maintainer: Dave Pearson <davep@davep.org>
@@ -10,10 +10,10 @@
 
 ;; This file is part of GNU Emacs.
 
-;; GNU Emacs is free software; you can redistribute it and/or modify
+;; GNU Emacs is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 3, or (at your option)
-;; any later version.
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -21,9 +21,7 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
+;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;; Commentary:
 
@@ -35,7 +33,7 @@
 ;; o The code for updating the grid needs to be re-done. At the moment it
 ;;   simply re-draws the grid every time a move is made.
 ;;
-;; o Look into tarting up the display with colour. gamegrid.el looks
+;; o Look into tarting up the display with color. gamegrid.el looks
 ;;   interesting, perhaps that is the way to go?
 
 ;;; Thanks:
@@ -61,32 +59,32 @@
   :prefix "5x5-")
 
 (defcustom 5x5-grid-size 5
-  "*Size of the playing area."
+  "Size of the playing area."
   :type  'integer
   :group '5x5)
 
 (defcustom 5x5-x-scale 4
-  "*X scaling factor for drawing the grid."
+  "X scaling factor for drawing the grid."
   :type  'integer
   :group '5x5)
 
 (defcustom 5x5-y-scale 3
-  "*Y scaling factor for drawing the grid."
+  "Y scaling factor for drawing the grid."
   :type  'integer
   :group '5x5)
 
 (defcustom 5x5-animate-delay .01
-  "*Delay in seconds when animating a solution crack."
+  "Delay in seconds when animating a solution crack."
   :type  'number
   :group '5x5)
 
 (defcustom 5x5-hassle-me t
-  "*Should 5x5 ask you when you want to do a destructive operation?"
+  "Should 5x5 ask you when you want to do a destructive operation?"
   :type  'boolean
   :group '5x5)
 
 (defcustom 5x5-mode-hook nil
-  "*Hook run on starting 5x5."
+  "Hook run on starting 5x5."
   :type  'hook
   :group '5x5)
 
@@ -213,7 +211,8 @@ Quit current game         \\[5x5-quit-game]"
 (defun 5x5-new-game ()
   "Start a new game of `5x5'."
   (interactive)
-  (when (if (interactive-p) (5x5-y-or-n-p "Start a new game? ") t)
+  (when (if (called-interactively-p 'interactive)
+	    (5x5-y-or-n-p "Start a new game? ") t)
     (setq 5x5-x-pos (/ 5x5-grid-size 2)
           5x5-y-pos (/ 5x5-grid-size 2)
           5x5-moves 0
@@ -302,7 +301,8 @@ Quit current game         \\[5x5-quit-game]"
 
 (defun 5x5-position-cursor ()
   "Position the cursor on the grid."
-  (goto-line (+ (* 5x5-y-pos 5x5-y-scale) 2))
+  (goto-char (point-min))
+  (forward-line (1+ (* 5x5-y-pos 5x5-y-scale)))
   (goto-char (+ (point) (* 5x5-x-pos 5x5-x-scale) (+ 5x5-x-pos 1) 1)))
 
 (defun 5x5-made-move ()
@@ -516,5 +516,5 @@ in progress because it is an animated attempt."
 
 (provide '5x5)
 
-;;; arch-tag: ec4dabd5-572d-41ea-b48c-ec5ce0d68fa9
+;; arch-tag: ec4dabd5-572d-41ea-b48c-ec5ce0d68fa9
 ;;; 5x5.el ends here