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 |
|
|
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 |
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)))) |
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 |
|
|