[Emacs-diffs] Changes to emacs/lisp/man.el

[Kim F . Storm]

Index: emacs/lisp/man.el
diff -c emacs/lisp/man.el:1.141 emacs/lisp/man.el:1.142
*** emacs/lisp/man.el:1.141     Tue Jan  4 20:36:28 2005
--- emacs/lisp/man.el   Thu Jan  6 22:00:56 2005
***************
*** 415,427 ****
  ;; 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")
  
  (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))))
      'help-echo "mouse-2: display this header file")
  
  (define-button-type 'Man-xref-normal-file
--- 415,429 ----
  ;; buttons
  (define-button-type 'Man-xref-man-page
    'action (lambda (button) (man-follow (button-label button)))
!   '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,438 ****
--- 435,441 ----
                      (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")