Mercurial > emacs

changeset 38076:30c899dc34c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 437623e4fe1c
children 7137508c16aa
files lisp/play/landmark.el
diffstat 1 files changed, 7 insertions(+), 3 deletions(-) [+]
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))