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 | 2bac7f1784d7c13f60089b81e60cc64634759842 (patch) | |
| tree | 947c3df56c3de5a1302945cfe182a875cdfed2fa /lisp/man.el | |
| parent | 771069f89db38f115d56b41e3f60465b779be2a4 (diff) | |
| download | emacs-2bac7f1784d7c13f60089b81e60cc64634759842.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") |