From c42c5c7c1b9a7235efba057ca7448f747e31193f Mon Sep 17 00:00:00 2001
From: "Kim F. Storm" <storm@cua.dk>
Date: Fri, 3 May 2002 22:50:08 +0000
Subject: [PATCH] (custom-buffer-verbose-help): New variable.
 (custom-buffer-create-internal): Remove verbose introduction in customization
 buffer when it is nil.

---
 lisp/cus-edit.el | 37 ++++++++++++++++++++++++++-----------
 1 file 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"
-- 
2.39.5