From 2bac7f1784d7c13f60089b81e60cc64634759842 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Thu, 6 Jan 2005 22:00:56 +0000 Subject: [PATCH] (Man-xref-man-page, Man-xref-header-file) (Man-xref-normal-file): Add follow-link property. --- lisp/man.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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") -- 2.39.5