# HG changeset patch # User Pavel Jank # Date 1005380053 0 # Node ID c9b14656dfc4cf9e87acc05f5e3bd330ec3cadd2 # Parent 0517a2e0f908bd1b6ecd67f8666a185e651ac9c5 Move definitions of constants to the beginning of file, before their use. diff -r 0517a2e0f908 -r c9b14656dfc4 lisp/play/gomoku.el --- a/lisp/play/gomoku.el Sat Nov 10 01:20:22 2001 +0000 +++ b/lisp/play/gomoku.el Sat Nov 10 08:14:13 2001 +0000 @@ -80,6 +80,26 @@ :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 @@ ;;; 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))