From 65091471be2bf598c3719a828ddf61e57b5b1b45 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 19 Nov 1994 14:52:57 +0000 Subject: [PATCH] (gomoku-click): New function. (gomoku-mode-map): Put it on Mouse-2. --- lisp/play/gomoku.el | 7 +++++++ 1 file changed, 7 insertions(+) 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. -- 2.39.5