From 366be0de5e1b058a58d157c342a05f7c608edba7 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sun, 17 Jun 2001 11:19:50 +0000 Subject: [PATCH] (lm-plot-square, lm-init-display): Add help-echo to mouse-highlighted text. --- lisp/play/landmark.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/play/landmark.el b/lisp/play/landmark.el index 02a6dbc6942..3b4734a641e 100644 --- a/lisp/play/landmark.el +++ b/lisp/play/landmark.el @@ -892,7 +892,10 @@ If the game is finished, this command requests for another game." ((= value 6) ?^))) (and (zerop value) - (put-text-property (1- (point)) (point) 'mouse-face 'highlight)) + (add-text-properties (1- (point)) (point) + '(mouse-face highlight + help-echo "\ +mouse-1: get robot moving, mouse-2: play on this square"))) (delete-char 1) (backward-char 1)) (sit-for 0)) ; Display NOW @@ -931,8 +934,9 @@ 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-1: get robot moving, mouse-2: play on this square"))) (> (setq i (1- i)) 0)) (if (= i (1- m)) (setq opoint point)) -- 2.39.2