diff options
Diffstat (limited to 'lisp/play')
| -rw-r--r-- | lisp/play/gomoku.el | 10 |
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)) |