diff options
| author | Masatake YAMATO <jet@gyve.org> | 2005-10-18 04:21:51 +0000 |
|---|---|---|
| committer | Masatake YAMATO <jet@gyve.org> | 2005-10-18 04:21:51 +0000 |
| commit | 50071f01ec3b93c87656bc88b9ae796585912855 (patch) | |
| tree | e9dadb9c1327607053e32f048cc1f407b98d6101 /lisp/woman.el | |
| parent | ae3d4650babcdc8d08b688c3ef76e3b78fa6e84e (diff) | |
| download | emacs-50071f01ec3b93c87656bc88b9ae796585912855.tar.gz | |
* woman.el (WoMan-xref-man-page): New button type derived
from `Man-abstract-xref-man-page'.
(woman-mode): Pass `WoMan-xref-man-page' to
`Man-highlight-references'.
* man.el (Man-abstract-xref-man-page): New button type.
(Man-xref-man-page): Make it derived from `Man-abstract-xref-man-page'.
(Man-highlight-references): Add new optiolnal argument `xref-man-type'.
Diffstat (limited to 'lisp/woman.el')
| -rw-r--r-- | lisp/woman.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/woman.el b/lisp/woman.el index bc7ec86e4a7..5e8aff75e7f 100644 --- 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)) @@ -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)) |