Mercurial > emacs

changeset 59398:c47c12607f08

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Man-xref-man-page, Man-xref-header-file) (Man-xref-normal-file): Add follow-link property.
author Kim F. Storm <storm@cua.dk>
date Thu, 06 Jan 2005 22:00:56 +0000
parents fcfd5e8c8e77
children 643d850694b5
files lisp/man.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/man.el	Thu Jan 06 22:00:36 2005 +0000
+++ b/lisp/man.el	Thu Jan 06 22:00:56 2005 +0000
@@ -415,13 +415,15 @@
 ;; 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 @@
 		      (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")