1242 |
:type 'boolean |
:type 'boolean |
1243 |
:group 'custom-buffer) |
:group 'custom-buffer) |
1244 |
|
|
1245 |
|
(defcustom custom-buffer-verbose-help t |
1246 |
|
"If non-nil, include explanatory text in the customization buffer." |
1247 |
|
:type 'boolean |
1248 |
|
:group 'custom-buffer) |
1249 |
|
|
1250 |
(defun Custom-buffer-done (&rest ignore) |
(defun Custom-buffer-done (&rest ignore) |
1251 |
"Remove current buffer by calling `custom-buffer-done-function'." |
"Remove current buffer by calling `custom-buffer-done-function'." |
1252 |
(interactive) |
(interactive) |
1263 |
(defun custom-buffer-create-internal (options &optional description) |
(defun custom-buffer-create-internal (options &optional description) |
1264 |
(message "Creating customization buffer...") |
(message "Creating customization buffer...") |
1265 |
(custom-mode) |
(custom-mode) |
1266 |
(widget-insert "This is a customization buffer") |
(if custom-buffer-verbose-help |
1267 |
(if description |
(progn |
1268 |
(widget-insert description)) |
(widget-insert "This is a customization buffer") |
1269 |
(widget-insert (format ". |
(if description |
1270 |
|
(widget-insert description)) |
1271 |
|
(widget-insert (format ". |
1272 |
%s show active fields; type RET or click mouse-1 |
%s show active fields; type RET or click mouse-1 |
1273 |
on an active field to invoke its action. Editing an option value |
on an active field to invoke its action. Editing an option value |
1274 |
changes the text in the buffer; invoke the State button and |
changes the text in the buffer; invoke the State button and |
1276 |
Invoke " (if custom-raised-buttons |
Invoke " (if custom-raised-buttons |
1277 |
"`Raised' buttons" |
"`Raised' buttons" |
1278 |
"Square brackets"))) |
"Square brackets"))) |
1279 |
(widget-create 'info-link |
(widget-create 'info-link |
1280 |
:tag "Help" |
:tag "Help" |
1281 |
:help-echo "Read the online help." |
:help-echo "Read the online help." |
1282 |
"(emacs)Easy Customization") |
"(emacs)Easy Customization") |
1283 |
(widget-insert " for more information.\n\n") |
(widget-insert " for more information.\n\n") |
1284 |
(message "Creating customization buttons...") |
(message "Creating customization buttons...") |
1285 |
(widget-insert "Operate on everything in this buffer:\n ") |
(widget-insert "Operate on everything in this buffer:\n ")) |
1286 |
|
(widget-insert " ")) |
1287 |
(widget-create 'push-button |
(widget-create 'push-button |
1288 |
:tag "Set for Current Session" |
:tag "Set for Current Session" |
1289 |
:help-echo "\ |
:help-echo "\ |
1324 |
:help-echo "\ |
:help-echo "\ |
1325 |
Un-customize all values in this buffer. They get their standard settings." |
Un-customize all values in this buffer. They get their standard settings." |
1326 |
:action 'Custom-reset-standard)) |
:action 'Custom-reset-standard)) |
1327 |
|
(if (not custom-buffer-verbose-help) |
1328 |
|
(progn |
1329 |
|
(widget-insert " ") |
1330 |
|
(widget-create 'info-link |
1331 |
|
:tag "Help" |
1332 |
|
:help-echo "Read the online help." |
1333 |
|
"(emacs)Easy Customization"))) |
1334 |
(widget-insert " ") |
(widget-insert " ") |
1335 |
(widget-create 'push-button |
(widget-create 'push-button |
1336 |
:tag "Finish" |
:tag "Finish" |