diff options
| author | Richard M. Stallman | 1997-06-21 23:36:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-06-21 23:36:32 +0000 |
| commit | 0eef62d5459d56b0ce7ccdc0546ff4013785af0e (patch) | |
| tree | e5f7cc052f79ee2c36abfb7baece684f3c3d5abf | |
| parent | f1231b8e0c1a9ed14732981eb6ca1b753659a218 (diff) | |
| download | emacs-0eef62d5459d56b0ce7ccdc0546ff4013785af0e.tar.gz emacs-0eef62d5459d56b0ce7ccdc0546ff4013785af0e.zip | |
(custom-buffer-create-internal):
Insert an explanation of the [Set] [Save]... line.
Rename Done to Bury Buffer.
| -rw-r--r-- | lisp/cus-edit.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 05e3f36d33e..baa2e82a65a 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -987,6 +987,7 @@ on an active field to invoke its action. Invoke ") | |||
| 987 | "(emacs)Easy Customization") | 987 | "(emacs)Easy Customization") |
| 988 | (widget-insert " for more information.\n\n") | 988 | (widget-insert " for more information.\n\n") |
| 989 | (message "Creating customization buttons...") | 989 | (message "Creating customization buttons...") |
| 990 | (widget-insert "Operate on everything in this buffer:\n ") | ||
| 990 | (widget-create 'push-button | 991 | (widget-create 'push-button |
| 991 | :tag "Set" | 992 | :tag "Set" |
| 992 | :help-echo "Set all modifications for this session." | 993 | :help-echo "Set all modifications for this session." |
| @@ -1024,9 +1025,9 @@ Reset all visible items in this buffer to their saved settings." | |||
| 1024 | :help-echo "\ | 1025 | :help-echo "\ |
| 1025 | Reset all visible items in this buffer to their standard settings." | 1026 | Reset all visible items in this buffer to their standard settings." |
| 1026 | :action 'custom-reset-standard)) | 1027 | :action 'custom-reset-standard)) |
| 1027 | (widget-insert " ") | 1028 | (widget-insert " ") |
| 1028 | (widget-create 'push-button | 1029 | (widget-create 'push-button |
| 1029 | :tag "Done" | 1030 | :tag "Bury Buffer" |
| 1030 | :help-echo "Bury the buffer." | 1031 | :help-echo "Bury the buffer." |
| 1031 | :action (lambda (widget &optional event) | 1032 | :action (lambda (widget &optional event) |
| 1032 | (bury-buffer))) | 1033 | (bury-buffer))) |