summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPavel Janík <Pavel@Janik.cz>2001-11-10 08:14:13 +0000
committerPavel Janík <Pavel@Janik.cz>2001-11-10 08:14:13 +0000
commit0017164551bb91a16fc1411480ebeee21d2a547c (patch)
tree71316a4f44eda7088541feea5ee52d00831931a6
parent0dd10e625589b0e5015316474e0d7ba2036c9801 (diff)
downloademacs-0017164551bb91a16fc1411480ebeee21d2a547c.tar.gz
Move definitions of constants to the beginning of file, before their use.
-rw-r--r--lisp/play/gomoku.el36
1 files changed, 20 insertions, 16 deletions
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el
index fef7546760f..7b2a9bd42d9 100644
--- a/lisp/play/gomoku.el
+++ b/lisp/play/gomoku.el
@@ -80,6 +80,26 @@ One useful value to include is `turn-on-font-lock' to highlight the pieces."
:type 'hook
:group 'gomoku)
+;;;
+;;; CONSTANTS FOR BOARD
+;;;
+
+;; You may change these values if you have a small screen or if the squares
+;; look rectangular, but spacings SHOULD be at least 2 (MUST BE at least 1).
+
+(defconst gomoku-square-width 4
+ "*Horizontal spacing between squares on the Gomoku board.")
+
+(defconst gomoku-square-height 2
+ "*Vertical spacing between squares on the Gomoku board.")
+
+(defconst gomoku-x-offset 3
+ "*Number of columns between the Gomoku board and the side of the window.")
+
+(defconst gomoku-y-offset 1
+ "*Number of lines between the Gomoku board and the top of the window.")
+
+
(defvar gomoku-mode-map nil
"Local keymap to use in Gomoku mode.")
@@ -927,22 +947,6 @@ If the game is finished, this command requests for another game."
;;; DISPLAYING THE BOARD.
;;;
-;; You may change these values if you have a small screen or if the squares
-;; look rectangular, but spacings SHOULD be at least 2 (MUST BE at least 1).
-
-(defconst gomoku-square-width 4
- "*Horizontal spacing between squares on the Gomoku board.")
-
-(defconst gomoku-square-height 2
- "*Vertical spacing between squares on the Gomoku board.")
-
-(defconst gomoku-x-offset 3
- "*Number of columns between the Gomoku board and the side of the window.")
-
-(defconst gomoku-y-offset 1
- "*Number of lines between the Gomoku board and the top of the window.")
-
-
(defun gomoku-max-width ()
"Largest possible board width for the current window."
(1+ (/ (- (window-width (selected-window))