# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1105048856 0
# Node ID c47c12607f0872401032cdffae026302c6b68b7d
# Parent  fcfd5e8c8e7741e5d81269dd0454af4eee90ff2b
(Man-xref-man-page, Man-xref-header-file)
(Man-xref-normal-file): Add follow-link property.

diff -r fcfd5e8c8e77 -r c47c12607f08 lisp/man.el
--- 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")