/[emacs]/emacs/lisp/apropos.el
ViewVC logotype

Diff of /emacs/lisp/apropos.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.99 by jurta, Thu Dec 16 07:16:58 2004 UTC revision 1.100 by kfstorm, Fri Dec 17 15:17:22 2004 UTC
# Line 163  term, and the rest of the words are alte Line 163  term, and the rest of the words are alte
163  (define-button-type 'apropos-symbol  (define-button-type 'apropos-symbol
164    'face apropos-symbol-face    'face apropos-symbol-face
165    'help-echo "mouse-2, RET: Display more help on this symbol"    'help-echo "mouse-2, RET: Display more help on this symbol"
166      'follow-link t
167    'action #'apropos-symbol-button-display-help    'action #'apropos-symbol-button-display-help
168    'skip t)    'skip t)
169    
# Line 174  term, and the rest of the words are alte Line 175  term, and the rest of the words are alte
175    
176  (define-button-type 'apropos-function  (define-button-type 'apropos-function
177    'apropos-label "Function"    'apropos-label "Function"
178      'help-echo "mouse-2, RET: Display more help on this function"
179      'follow-link t
180    'action (lambda (button)    'action (lambda (button)
181              (describe-function (button-get button 'apropos-symbol)))              (describe-function (button-get button 'apropos-symbol))))
182    'help-echo "mouse-2, RET: Display more help on this function")  
183  (define-button-type 'apropos-macro  (define-button-type 'apropos-macro
184    'apropos-label "Macro"    'apropos-label "Macro"
185      'help-echo "mouse-2, RET: Display more help on this macro"
186      'follow-link t
187    'action (lambda (button)    'action (lambda (button)
188              (describe-function (button-get button 'apropos-symbol)))              (describe-function (button-get button 'apropos-symbol))))
189    'help-echo "mouse-2, RET: Display more help on this macro")  
190  (define-button-type 'apropos-command  (define-button-type 'apropos-command
191    'apropos-label "Command"    'apropos-label "Command"
192      'help-echo "mouse-2, RET: Display more help on this command"
193      'follow-link t
194    'action (lambda (button)    'action (lambda (button)
195              (describe-function (button-get button 'apropos-symbol)))              (describe-function (button-get button 'apropos-symbol))))
   'help-echo "mouse-2, RET: Display more help on this command")  
196    
197  ;; We used to use `customize-variable-other-window' instead for a  ;; We used to use `customize-variable-other-window' instead for a
198  ;; customizable variable, but that is slow.  It is better to show an  ;; customizable variable, but that is slow.  It is better to show an
# Line 196  term, and the rest of the words are alte Line 202  term, and the rest of the words are alte
202  (define-button-type 'apropos-variable  (define-button-type 'apropos-variable
203    'apropos-label "Variable"    'apropos-label "Variable"
204    'help-echo "mouse-2, RET: Display more help on this variable"    'help-echo "mouse-2, RET: Display more help on this variable"
205      'follow-link t
206    'action (lambda (button)    'action (lambda (button)
207              (describe-variable (button-get button 'apropos-symbol))))              (describe-variable (button-get button 'apropos-symbol))))
208    
209  (define-button-type 'apropos-face  (define-button-type 'apropos-face
210    'apropos-label "Face"    'apropos-label "Face"
211    'help-echo "mouse-2, RET: Display more help on this face"    'help-echo "mouse-2, RET: Display more help on this face"
212      'follow-link t
213    'action (lambda (button)    'action (lambda (button)
214              (describe-face (button-get button 'apropos-symbol))))              (describe-face (button-get button 'apropos-symbol))))
215    
216  (define-button-type 'apropos-group  (define-button-type 'apropos-group
217    'apropos-label "Group"    'apropos-label "Group"
218    'help-echo "mouse-2, RET: Display more help on this group"    'help-echo "mouse-2, RET: Display more help on this group"
219      'follow-link t
220    'action (lambda (button)    'action (lambda (button)
221              (customize-group-other-window              (customize-group-other-window
222               (button-get button 'apropos-symbol))))               (button-get button 'apropos-symbol))))
# Line 215  term, and the rest of the words are alte Line 224  term, and the rest of the words are alte
224  (define-button-type 'apropos-widget  (define-button-type 'apropos-widget
225    'apropos-label "Widget"    'apropos-label "Widget"
226    'help-echo "mouse-2, RET: Display more help on this widget"    'help-echo "mouse-2, RET: Display more help on this widget"
227      'follow-link t
228    'action (lambda (button)    'action (lambda (button)
229              (widget-browse-other-window (button-get button 'apropos-symbol))))              (widget-browse-other-window (button-get button 'apropos-symbol))))
230    
231  (define-button-type 'apropos-plist  (define-button-type 'apropos-plist
232    'apropos-label "Plist"    'apropos-label "Plist"
233    'help-echo "mouse-2, RET: Display more help on this plist"    'help-echo "mouse-2, RET: Display more help on this plist"
234      'follow-link t
235    'action (lambda (button)    'action (lambda (button)
236              (apropos-describe-plist (button-get button 'apropos-symbol))))              (apropos-describe-plist (button-get button 'apropos-symbol))))
237    

Legend:
Removed from v.1.99  
changed lines
  Added in v.1.100

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26