[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/man.el
From: |
Kim F . Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/man.el |
Date: |
Thu, 06 Jan 2005 17:42:42 -0500 |
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")