From dafef0a3eae468774cf56f0afa55a54ec1d51f4a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 17 Jun 2001 11:19:11 +0000 Subject: [PATCH] (gomoku-plot-square, gomoku-init-display): Add help-echo to mouse-highlighted text. --- lisp/play/gomoku.el | 10 +++++++--- 1 file 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)) -- 2.39.2