procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(custom-buffer-verbose-help): New variable.

Browse source 
(custom-buffer-create-internal): Remove verbose introduction
in customization buffer when it is nil.
This commit is contained in:
Kim F. Storm 2002-05-03 22:50:08 +00:00
parent ade3d7fc7d
commit c42c5c7c1b
1 changed files with 26 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
lisp/cus-edit.el
View file

@ -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"