# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1020466208 0
# Node ID 387844a1f7036fd85ed6d438af13bce587891ba9
# Parent  414803a8cca7c533819c758b19e76d0f7d55eccd
(custom-buffer-verbose-help): New variable.
(custom-buffer-create-internal): Remove verbose introduction
in customization buffer when it is nil.

diff -r 414803a8cca7 -r 387844a1f703 lisp/cus-edit.el
--- 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"