# HG changeset patch # User Eli Zaretskii # Date 992944777 0 # Node ID a188ef02f4dafa0cb6894f0d36692295b9e08fd5 # Parent 737e1a913c78ed461dec0308146760b0784d245c (WoMan-highlight-references): Add help-echo to mouse-highlighted text. diff -r 737e1a913c78 -r a188ef02f4da lisp/woman.el --- a/lisp/woman.el Mon Jun 18 20:03:33 2001 +0000 +++ b/lisp/woman.el Tue Jun 19 09:59:37 2001 +0000 @@ -1945,8 +1945,9 @@ ;; Highlight reference when mouse is over it. ;; (NB: WoMan does not hyphenate!) ;; [See (elisp)Clickable Text] - (put-text-property (match-beginning 1) (match-end 1) - 'mouse-face 'highlight) + (add-text-properties (match-beginning 1) (match-end 1) + '(mouse-face highlight + help-echo "mouse-2: display this man page")) ))))