(gomoku-plot-square, gomoku-init-display): Add help-echo to mouse-highlighted

text.

1 files changed, 7 insertions, 3 deletions

diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el
index 59ef472834c..d360b1d8a4b 100644
--- a/lisp/play/gomoku.el
+++ b/lisp/play/gomoku.el
@@ -988,7 +988,9 @@ If the game is finished, this command requests for another game."
                               ((= value 6) ?O)
                               (?.)))
     (and (zerop value)
-         (put-text-property (1- (point)) (point) 'mouse-face 'highlight))
+         (add-text-properties
+          (1- (point)) (point)
+          '(mouse-face highlight help-echo "mouse-2: play at this square")))
     (delete-char 1)
     (backward-char 1))
   (sit-for 0))  ; Display NOW
@@ -1027,8 +1029,10 @@ If the game is finished, this command requests for another game."
                       (goto-char (point-max))))
                (setq point (point))
                (insert ?.)
-               (put-text-property point (point)
-                                  'mouse-face 'highlight))
+               (add-text-properties
+                point (point)
+                '(mouse-face highlight
+                  help-echo "mouse-2: play at this square")))
              (> (setq i (1- i)) 0))
       (if (= i (1- m))
           (setq opoint point))