diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-11-19 14:52:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-11-19 14:52:57 +0000 |
| commit | 65091471be2bf598c3719a828ddf61e57b5b1b45 (patch) | |
| tree | 8e21219150c0d706298fc7c8934acda796487deb /lisp/play/gomoku.el | |
| parent | b59f6d7a689c5a4bc703918aca0a67b1492aea32 (diff) | |
| download | emacs-65091471be2bf598c3719a828ddf61e57b5b1b45.tar.gz | |
(gomoku-click): New function.
(gomoku-mode-map): Put it on Mouse-2.
Diffstat (limited to 'lisp/play/gomoku.el')
| -rw-r--r-- | lisp/play/gomoku.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el index 314a7de4592..5bb0f110fef 100644 --- a/lisp/play/gomoku.el +++ b/lisp/play/gomoku.el @@ -113,6 +113,7 @@ (define-key gomoku-mode-map [left] 'gomoku-move-left) (define-key gomoku-mode-map [right] 'gomoku-move-right) (define-key gomoku-mode-map [kp-enter] 'gomoku-human-plays) + (define-key gomoku-mode-map [mouse-2] 'gomoku-click) (define-key gomoku-mode-map [insert] 'gomoku-human-plays)) (defun gomoku-mode () @@ -737,6 +738,12 @@ Use \\[describe-mode] for more info." (t (gomoku-prompt-for-move))))))))) +(defun gomoku-click (click) + "Play at the square where you click." + (interactive "e") + (mouse-set-point click) + (gomoku-human-plays)) + (defun gomoku-human-plays () "Signal to the Gomoku program that you have played. You must have put the cursor on the square where you want to play. |