# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 785256777 0
# Node ID 09392b4de856e56253f6f069c802a3b2d26f67b1
# Parent  3b058e13d1777914f9e7f85b171c4cbc57c08d25
(gomoku-click): New function.
(gomoku-mode-map): Put it on Mouse-2.

diff -r 3b058e13d177 -r 09392b4de856 lisp/play/gomoku.el
--- a/lisp/play/gomoku.el	Sat Nov 19 14:06:09 1994 +0000
+++ b/lisp/play/gomoku.el	Sat Nov 19 14:52:57 1994 +0000
@@ -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 @@
 		   (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.