76 |
(button-get button 'help-function) |
(button-get button 'help-function) |
77 |
(button-get button 'help-args))) |
(button-get button 'help-args))) |
78 |
|
|
79 |
;; Make some button types that all use the same naming conventions |
;; These 6 calls to define-button-type were generated in a dolist |
80 |
(dolist (help-type '("function" "variable" "face" |
;; loop, but that is bad because it means these button types don't |
81 |
"coding-system" "input-method" "character-set")) |
;; have an easily found definition. |
82 |
(define-button-type (intern (purecopy (concat "help-" help-type))) |
|
83 |
:supertype 'help-xref |
(define-button-type 'help-function |
84 |
'help-function (intern (concat "describe-" help-type)) |
:supertype 'help-xref |
85 |
'help-echo (purecopy (concat "mouse-2, RET: describe this " help-type)))) |
'help-function 'describe-function |
86 |
|
'help-echo (purecopy "mouse-2, RET: describe this function")) |
87 |
|
|
88 |
|
(define-button-type 'help-variable |
89 |
|
:supertype 'help-xref |
90 |
|
'help-function 'describe-variable |
91 |
|
'help-echo (purecopy "mouse-2, RET: describe this variable")) |
92 |
|
|
93 |
|
(define-button-type 'help-face |
94 |
|
:supertype 'help-xref |
95 |
|
'help-function 'describe-face |
96 |
|
'help-echo (purecopy "mouse-2, RET: describe this face")) |
97 |
|
|
98 |
|
(define-button-type 'help-coding-system |
99 |
|
:supertype 'help-xref |
100 |
|
'help-function 'describe-coding-system |
101 |
|
'help-echo (purecopy "mouse-2, RET: describe this coding system")) |
102 |
|
|
103 |
|
(define-button-type 'help-input-method |
104 |
|
:supertype 'help-xref |
105 |
|
'help-function 'describe-input-method |
106 |
|
'help-echo (purecopy "mouse-2, RET: describe this input method")) |
107 |
|
|
108 |
|
(define-button-type 'help-character-set |
109 |
|
:supertype 'help-xref |
110 |
|
'help-function 'describe-character-set |
111 |
|
'help-echo (purecopy "mouse-2, RET: describe this character set")) |
112 |
|
|
113 |
;; make some more ideosyncratic button types |
;; make some more ideosyncratic button types |
114 |
|
|