# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 992776751 0
# Node ID 437623e4fe1c6c6c119b1500e436804afe081e03
# Parent  7ca7def9af014177d89ee06f0580e5dd4b3f9702
(gomoku-plot-square, gomoku-init-display): Add help-echo to mouse-highlighted
text.

diff -r 7ca7def9af01 -r 437623e4fe1c lisp/play/gomoku.el
--- a/lisp/play/gomoku.el	Sun Jun 17 11:18:16 2001 +0000
+++ b/lisp/play/gomoku.el	Sun Jun 17 11:19:11 2001 +0000
@@ -988,7 +988,9 @@
 			      ((= 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 @@
 		      (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))