Minor fixes for text of help-echo in some options.

[gnu-emacs] / lisp / woman.el

diff --git a/lisp/woman.el b/lisp/woman.el
index 1a3d7e8b75c10db03398204926a1c7a38611e11e..c837e5306da9e801473560e24ea3f7a88adfad61 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -2,12 +2,12 @@
 
 ;; Copyright (C) 2000 Free Software Foundation, Inc.
 
-;; Author:             Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk>
-;; Maintainer:         Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk>
-;; Keywords:           help, man, UN*X, manual
-;; Adapted-By:         Eli Zaretskii <eliz@is.elta.co.il>
-;; Version:            see `woman-version'
-;; URL:                        http://centaur.maths.qmw.ac.uk/Emacs/WoMan/
+;; Author: Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk>
+;; Maintainer: Francis J. Wright <F.J.Wright@Maths.QMW.ac.uk>
+;; Keywords: help, man, UN*X, manual
+;; Adapted-By: Eli Zaretskii <eliz@is.elta.co.il>
+;; Version: see `woman-version'
+;; URL: http://centaur.maths.qmw.ac.uk/Emacs/WoMan/
 
 ;; This file is part of GNU Emacs.
 
@@ -1945,8 +1945,9 @@ Otherwise use Man and record start of formatting time."
        ;; 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"))
        ))))
 
 \f