Mercurial > emacs
changeset 67745:1c2cd41aeda7
(customize-browse): Reword the top-of-buffer help intro.
(custom-buffer-create-internal): Fix previous change.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 23 Dec 2005 01:21:08 +0000 |
parents | 1c62bde28518 |
children | 76fdc265f329 |
files | lisp/cus-edit.el |
diffstat | 1 files changed, 12 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Fri Dec 23 01:18:08 2005 +0000 +++ b/lisp/cus-edit.el Fri Dec 23 01:21:08 2005 +0000 @@ -1430,14 +1430,14 @@ (if description (widget-insert description)) (widget-insert (format ". -%s indicate buttons; type RET or click mouse-1 to actuate one. +%s buttons; type RET or click mouse-1 to actuate one. Editing a setting changes only the text in the buffer. Use the setting's State button to set it or save changes in it. Saving a change normally works by editing your Emacs init file. See " (if custom-raised-buttons - "`Raised' buttons" - "Square brackets"))) + "`Raised' text indicates" + "Square brackets indicate"))) (widget-create 'info-link :tag "Custom file" "(emacs)Saving Customizations") @@ -1562,10 +1562,15 @@ (let ((name "*Customize Browser*")) (pop-to-buffer (custom-get-fresh-buffer name))) (custom-mode) - (widget-insert "\ -Square brackets show active fields; type RET or click mouse-1 -on an active field to invoke its action. -Invoke [+] below to expand a group, and [-] to collapse an expanded group.\n") + (widget-insert (format "\ +%s buttons; type RET or click mouse-1 +on a button to invoke its action. +Invoke [+] to expand a group, and [-] to collapse an expanded group.\n" + (if custom-raised-buttons + "`Raised' text indicates" + "Square brackets indicate"))) + + (if custom-browse-only-groups (widget-insert "\ Invoke the [Group] button below to edit that item in another window.\n\n")