/[emacs]/emacs/lisp/cus-edit.el
ViewVC logotype

Diff of /emacs/lisp/cus-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.153 by rms, Sun Apr 28 03:24:20 2002 UTC revision 1.154 by kfstorm, Fri May 3 22:50:08 2002 UTC
# Line 1242  This button will have a menu with all th Line 1242  This button will have a menu with all th
1242    :type 'boolean    :type 'boolean
1243    :group 'custom-buffer)    :group 'custom-buffer)
1244    
1245    (defcustom custom-buffer-verbose-help t
1246      "If non-nil, include explanatory text in the customization buffer."
1247      :type 'boolean
1248      :group 'custom-buffer)
1249    
1250  (defun Custom-buffer-done (&rest ignore)  (defun Custom-buffer-done (&rest ignore)
1251    "Remove current buffer by calling `custom-buffer-done-function'."    "Remove current buffer by calling `custom-buffer-done-function'."
1252    (interactive)    (interactive)
# Line 1258  Otherwise use brackets." Line 1263  Otherwise use brackets."
1263  (defun custom-buffer-create-internal (options &optional description)  (defun custom-buffer-create-internal (options &optional description)
1264    (message "Creating customization buffer...")    (message "Creating customization buffer...")
1265    (custom-mode)    (custom-mode)
1266    (widget-insert "This is a customization buffer")    (if custom-buffer-verbose-help
1267    (if description        (progn
1268        (widget-insert description))          (widget-insert "This is a customization buffer")
1269    (widget-insert (format ".          (if description
1270                (widget-insert description))
1271            (widget-insert (format ".
1272  %s show active fields; type RET or click mouse-1  %s show active fields; type RET or click mouse-1
1273  on an active field to invoke its action.  Editing an option value  on an active field to invoke its action.  Editing an option value
1274  changes the text in the buffer; invoke the State button and  changes the text in the buffer; invoke the State button and
# Line 1269  choose the Set operation to set the opti Line 1276  choose the Set operation to set the opti
1276  Invoke " (if custom-raised-buttons  Invoke " (if custom-raised-buttons
1277               "`Raised' buttons"               "`Raised' buttons"
1278               "Square brackets")))               "Square brackets")))
1279    (widget-create 'info-link          (widget-create 'info-link
1280                   :tag "Help"                         :tag "Help"
1281                   :help-echo "Read the online help."                         :help-echo "Read the online help."
1282                   "(emacs)Easy Customization")                         "(emacs)Easy Customization")
1283    (widget-insert " for more information.\n\n")          (widget-insert " for more information.\n\n")
1284    (message "Creating customization buttons...")          (message "Creating customization buttons...")
1285    (widget-insert "Operate on everything in this buffer:\n ")          (widget-insert "Operate on everything in this buffer:\n "))
1286        (widget-insert " "))
1287    (widget-create 'push-button    (widget-create 'push-button
1288                   :tag "Set for Current Session"                   :tag "Set for Current Session"
1289                   :help-echo "\                   :help-echo "\
# Line 1316  Reset all values in this buffer to their Line 1324  Reset all values in this buffer to their
1324                     :help-echo "\                     :help-echo "\
1325  Un-customize all values in this buffer.  They get their standard settings."  Un-customize all values in this buffer.  They get their standard settings."
1326                     :action 'Custom-reset-standard))                     :action 'Custom-reset-standard))
1327      (if (not custom-buffer-verbose-help)
1328          (progn
1329            (widget-insert " ")
1330            (widget-create 'info-link
1331                           :tag "Help"
1332                           :help-echo "Read the online help."
1333                           "(emacs)Easy Customization")))
1334    (widget-insert "   ")    (widget-insert "   ")
1335    (widget-create 'push-button    (widget-create 'push-button
1336                   :tag "Finish"                   :tag "Finish"

Legend:
Removed from v.1.153  
changed lines
  Added in v.1.154

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26