Mercurial > emacs
diff lisp/play/landmark.el @ 38076:30c899dc34c4
(lm-plot-square, lm-init-display): Add help-echo to mouse-highlighted text.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sun, 17 Jun 2001 11:19:50 +0000 |
parents | 1e7b34ebbb0a |
children | c6e12c6b1498 |
line wrap: on
line diff
--- a/lisp/play/landmark.el Sun Jun 17 11:19:11 2001 +0000 +++ b/lisp/play/landmark.el Sun Jun 17 11:19:50 2001 +0000 @@ -892,7 +892,10 @@ ((= 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 @@ (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))