diff options
| author | Kim F. Storm <storm@cua.dk> | 2005-01-06 22:00:56 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2005-01-06 22:00:56 +0000 |
| commit | 7b34c4b535e41cd398981cbb3ca8b33b17e37924 (patch) | |
| tree | 12599935b20287a9aa4fe759134d8b0143aa2553 /lisp/man.el | |
| parent | f42bf2d71a4af67a06e3973d347db091a275960d (diff) | |
| download | emacs-7b34c4b535e41cd398981cbb3ca8b33b17e37924.tar.gz | |
(Man-xref-man-page, Man-xref-header-file)
(Man-xref-normal-file): Add follow-link property.
Diffstat (limited to 'lisp/man.el')
| -rw-r--r-- | lisp/man.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/man.el b/lisp/man.el index a384bf34e29..e9503ca883a 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -415,13 +415,15 @@ Otherwise, the value is whatever the function ;; buttons (define-button-type 'Man-xref-man-page 'action (lambda (button) (man-follow (button-label button))) - 'help-echo "RET, mouse-2: display this man page") + 'follow-link t + 'help-echo "mouse-2, RET: display this man page") (define-button-type 'Man-xref-header-file 'action (lambda (button) (let ((w (button-get button 'Man-target-string))) (unless (Man-view-header-file w) (error "Cannot find header file: %s" w)))) + 'follow-link t 'help-echo "mouse-2: display this header file") (define-button-type 'Man-xref-normal-file @@ -433,6 +435,7 @@ Otherwise, the value is whatever the function (view-file f) (error "Cannot read a file: %s" f)) (error "Cannot find a file: %s" f)))) + 'follow-link t 'help-echo "mouse-2: display this file") |