Mercurial > emacs
comparison lisp/play/gomoku.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | dfa1de5c19ef |
| children | 23dfa4b79c21 d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 78 "If non-nil, its value is called on entry to Gomoku mode. | 78 "If non-nil, its value is called on entry to Gomoku mode. |
| 79 One useful value to include is `turn-on-font-lock' to highlight the pieces." | 79 One useful value to include is `turn-on-font-lock' to highlight the pieces." |
| 80 :type 'hook | 80 :type 'hook |
| 81 :group 'gomoku) | 81 :group 'gomoku) |
| 82 | 82 |
| 83 ;;; | 83 ;;; |
| 84 ;;; CONSTANTS FOR BOARD | 84 ;;; CONSTANTS FOR BOARD |
| 85 ;;; | 85 ;;; |
| 86 | 86 |
| 87 ;; You may change these values if you have a small screen or if the squares | 87 ;; You may change these values if you have a small screen or if the squares |
| 88 ;; look rectangular, but spacings SHOULD be at least 2 (MUST BE at least 1). | 88 ;; look rectangular, but spacings SHOULD be at least 2 (MUST BE at least 1). |
| 838 (% gomoku-square-height 2) | 838 (% gomoku-square-height 2) |
| 839 (/ gomoku-square-height 2)) | 839 (/ gomoku-square-height 2)) |
| 840 gomoku-square-height) | 840 gomoku-square-height) |
| 841 1) | 841 1) |
| 842 gomoku-board-height)))) | 842 gomoku-board-height)))) |
| 843 | 843 |
| 844 (defun gomoku-mouse-play (click) | 844 (defun gomoku-mouse-play (click) |
| 845 "Play at the square where you click." | 845 "Play at the square where you click." |
| 846 (interactive "e") | 846 (interactive "e") |
| 847 (if (gomoku-click click) | 847 (if (gomoku-click click) |
| 848 (gomoku-human-plays))) | 848 (gomoku-human-plays))) |