Mercurial > emacs
changeset 40859:c9b14656dfc4
Move definitions of constants to the beginning of file, before their use.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Sat, 10 Nov 2001 08:14:13 +0000 |
| parents | 0517a2e0f908 |
| children | ee1addc05858 |
| files | lisp/play/gomoku.el |
| diffstat | 1 files changed, 20 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- 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))