* menu-bar.el (menu-bar-help-menu): Rename "psychiatrist", in line

[gnu-emacs] / lisp / woman.el

diff --git a/lisp/woman.el b/lisp/woman.el
index 315a0a3bbe5878ccb28781071d055957b49f2a2c..5e8aff75e7f70cfc6e83059d0bd12a96b97b3e05 100644 (file)
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -424,6 +424,11 @@
 (defvar woman-version "0.551 (beta)" "WoMan version information.")
 
 (require 'man)
+(require 'button)
+(define-button-type 'WoMan-xref-man-page 
+  :supertype 'Man-abstract-xref-man-page
+  'func 'woman)
+
 (eval-when-compile                     ; to avoid compiler warnings
   (require 'dired)
   (require 'apropos))
@@ -1229,7 +1234,7 @@ cache to be re-read."
                         word-at-point)))
                (completing-read
                 (if default
-                    (format "Manual entry [default: %s]: " default)
+                    (format "Manual entry (default %s): " default)
                   "Manual entry: ")
                 woman-topic-all-completions nil 1
                 nil
@@ -1864,7 +1869,7 @@ See `Man-mode' for additional details."
   (setq woman-imenu-done nil)
   (if woman-imenu (woman-imenu))
   (let (buffer-read-only)
-    (Man-highlight-references))
+    (Man-highlight-references 'WoMan-xref-man-page))
   (set-buffer-modified-p nil)
   (run-mode-hooks 'woman-mode-hook))