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

[Kim F . Storm]

Index: emacs/lisp/apropos.el
diff -c emacs/lisp/apropos.el:1.99 emacs/lisp/apropos.el:1.100
*** emacs/lisp/apropos.el:1.99  Thu Dec 16 07:16:58 2004
--- emacs/lisp/apropos.el       Fri Dec 17 15:17:22 2004
***************
*** 163,168 ****
--- 163,169 ----
  (define-button-type 'apropos-symbol
    'face apropos-symbol-face
    'help-echo "mouse-2, RET: Display more help on this symbol"
+   'follow-link t
    'action #'apropos-symbol-button-display-help
    'skip t)
  
***************
*** 174,192 ****
  
  (define-button-type 'apropos-function
    'apropos-label "Function"
    'action (lambda (button)
!           (describe-function (button-get button 'apropos-symbol)))
!   'help-echo "mouse-2, RET: Display more help on this function")
  (define-button-type 'apropos-macro
    'apropos-label "Macro"
    'action (lambda (button)
!           (describe-function (button-get button 'apropos-symbol)))
!   'help-echo "mouse-2, RET: Display more help on this macro")
  (define-button-type 'apropos-command
    'apropos-label "Command"
    'action (lambda (button)
!           (describe-function (button-get button 'apropos-symbol)))
!   'help-echo "mouse-2, RET: Display more help on this command")
  
  ;; We used to use `customize-variable-other-window' instead for a
  ;; customizable variable, but that is slow.  It is better to show an
--- 175,198 ----
  
  (define-button-type 'apropos-function
    'apropos-label "Function"
+   'help-echo "mouse-2, RET: Display more help on this function"
+   'follow-link t
    'action (lambda (button)
!           (describe-function (button-get button 'apropos-symbol))))
! 
  (define-button-type 'apropos-macro
    'apropos-label "Macro"
+   'help-echo "mouse-2, RET: Display more help on this macro"
+   'follow-link t
    'action (lambda (button)
!           (describe-function (button-get button 'apropos-symbol))))
! 
  (define-button-type 'apropos-command
    'apropos-label "Command"
+   'help-echo "mouse-2, RET: Display more help on this command"
+   'follow-link t
    'action (lambda (button)
!           (describe-function (button-get button 'apropos-symbol))))
  
  ;; We used to use `customize-variable-other-window' instead for a
  ;; customizable variable, but that is slow.  It is better to show an
***************
*** 196,213 ****
--- 202,222 ----
  (define-button-type 'apropos-variable
    'apropos-label "Variable"
    'help-echo "mouse-2, RET: Display more help on this variable"
+   'follow-link t
    'action (lambda (button)
            (describe-variable (button-get button 'apropos-symbol))))
  
  (define-button-type 'apropos-face
    'apropos-label "Face"
    'help-echo "mouse-2, RET: Display more help on this face"
+   'follow-link t
    'action (lambda (button)
            (describe-face (button-get button 'apropos-symbol))))
  
  (define-button-type 'apropos-group
    'apropos-label "Group"
    'help-echo "mouse-2, RET: Display more help on this group"
+   'follow-link t
    'action (lambda (button)
            (customize-group-other-window
             (button-get button 'apropos-symbol))))
***************
*** 215,226 ****
--- 224,237 ----
  (define-button-type 'apropos-widget
    'apropos-label "Widget"
    'help-echo "mouse-2, RET: Display more help on this widget"
+   'follow-link t
    'action (lambda (button)
            (widget-browse-other-window (button-get button 'apropos-symbol))))
  
  (define-button-type 'apropos-plist
    'apropos-label "Plist"
    'help-echo "mouse-2, RET: Display more help on this plist"
+   'follow-link t
    'action (lambda (button)
            (apropos-describe-plist (button-get button 'apropos-symbol))))