Mercurial > emacs
changeset 45102:387844a1f703
(custom-buffer-verbose-help): New variable.
(custom-buffer-create-internal): Remove verbose introduction
in customization buffer when it is nil.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Fri, 03 May 2002 22:50:08 +0000 |
| parents | 414803a8cca7 |
| children | 0fb0ba55467e |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 26 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Fri May 03 22:49:35 2002 +0000 +++ b/lisp/cus-edit.el Fri May 03 22:50:08 2002 +0000 @@ -1242,6 +1242,11 @@ :type 'boolean :group 'custom-buffer) +(defcustom custom-buffer-verbose-help t + "If non-nil, include explanatory text in the customization buffer." + :type 'boolean + :group 'custom-buffer) + (defun Custom-buffer-done (&rest ignore) "Remove current buffer by calling `custom-buffer-done-function'." (interactive) @@ -1258,10 +1263,12 @@ (defun custom-buffer-create-internal (options &optional description) (message "Creating customization buffer...") (custom-mode) - (widget-insert "This is a customization buffer") - (if description - (widget-insert description)) - (widget-insert (format ". + (if custom-buffer-verbose-help + (progn + (widget-insert "This is a customization buffer") + (if description + (widget-insert description)) + (widget-insert (format ". %s show active fields; type RET or click mouse-1 on an active field to invoke its action. Editing an option value changes the text in the buffer; invoke the State button and @@ -1269,13 +1276,14 @@ Invoke " (if custom-raised-buttons "`Raised' buttons" "Square brackets"))) - (widget-create 'info-link - :tag "Help" - :help-echo "Read the online help." - "(emacs)Easy Customization") - (widget-insert " for more information.\n\n") - (message "Creating customization buttons...") - (widget-insert "Operate on everything in this buffer:\n ") + (widget-create 'info-link + :tag "Help" + :help-echo "Read the online help." + "(emacs)Easy Customization") + (widget-insert " for more information.\n\n") + (message "Creating customization buttons...") + (widget-insert "Operate on everything in this buffer:\n ")) + (widget-insert " ")) (widget-create 'push-button :tag "Set for Current Session" :help-echo "\ @@ -1316,6 +1324,13 @@ :help-echo "\ Un-customize all values in this buffer. They get their standard settings." :action 'Custom-reset-standard)) + (if (not custom-buffer-verbose-help) + (progn + (widget-insert " ") + (widget-create 'info-link + :tag "Help" + :help-echo "Read the online help." + "(emacs)Easy Customization"))) (widget-insert " ") (widget-create 'push-button :tag "Finish"