[Emacs-diffs] Changes to emacs/lisp/cus-edit.el

[Kim F. Storm]

Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.153 emacs/lisp/cus-edit.el:1.154
*** emacs/lisp/cus-edit.el:1.153        Sat Apr 27 23:24:20 2002
--- emacs/lisp/cus-edit.el      Fri May  3 18:50:08 2002
***************
*** 1242,1247 ****
--- 1242,1252 ----
    :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,1267 ****
  (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 ".
  %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
--- 1263,1274 ----
  (defun custom-buffer-create-internal (options &optional description)
    (message "Creating customization buffer...")
    (custom-mode)
!   (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,1281 ****
  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 'push-button
                 :tag "Set for Current Session"
                 :help-echo "\
--- 1276,1289 ----
  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-insert " "))
    (widget-create 'push-button
                 :tag "Set for Current Session"
                 :help-echo "\
***************
*** 1316,1321 ****
--- 1324,1336 ----
                   :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"