diff options
author | Eli Zaretskii <eliz@gnu.org> | 2001-06-17 11:19:11 +0000 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2001-06-17 11:19:11 +0000 |
commit | 74364ba8976d4a7125d6c26b800da118b1258a3a (patch) | |
tree | 7fcc5556f7b1d18a733643ddda4d8a0064823c62 /lisp/play/gomoku.el | |
parent | 5d3094263ef812a32dc228df8ddcf22ac3555427 (diff) | |
download | emacs-74364ba8976d4a7125d6c26b800da118b1258a3a.tar.gz |
(gomoku-plot-square, gomoku-init-display): Add help-echo to mouse-highlighted
text.
Diffstat (limited to 'lisp/play/gomoku.el')
-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)) |