Mercurial > emacs

diff lisp/man.el @ 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 07f5b835edb6
children 71d8a58f6f27 cb67264d6096
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")