diff options
author | Kim F. Storm <storm@cua.dk> | 2002-05-03 22:50:08 +0000 |
---|---|---|
committer | Kim F. Storm <storm@cua.dk> | 2002-05-03 22:50:08 +0000 |
commit | c42c5c7c1b9a7235efba057ca7448f747e31193f (patch) | |
tree | e88c417990f860d0e5083931cb8e0a98d0fd7b6d /lisp/cus-edit.el | |
parent | ade3d7fc7de2d2931f3537c44264cbb9ec6ac3dd (diff) | |
download | emacs-c42c5c7c1b9a7235efba057ca7448f747e31193f.tar.gz |
(custom-buffer-verbose-help): New variable.
(custom-buffer-create-internal): Remove verbose introduction
in customization buffer when it is nil.
Diffstat (limited to 'lisp/cus-edit.el')
-rw-r--r-- | lisp/cus-edit.el | 37 |
1 files changed, 26 insertions, 11 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 91a9fdde91d..54f5614df82 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1242,6 +1242,11 @@ This button will have a menu with all three reset operations." :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 @@ Otherwise use brackets." (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 @@ choose the Set operation to set the option value. 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 @@ Reset all values in this buffer to their saved settings." :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" |