diff options
| author | Luc Teirlinck | 2006-01-04 02:52:41 +0000 |
|---|---|---|
| committer | Luc Teirlinck | 2006-01-04 02:52:41 +0000 |
| commit | 4b1e820dc009830d21e2845e4d5f804ba4df36e2 (patch) | |
| tree | 2aa9efa96f2c4651471a91849952c2d9ff4e28c0 | |
| parent | d5837ed32f59de8034c00e0d79664650bd51d8b0 (diff) | |
| download | emacs-4b1e820dc009830d21e2845e4d5f804ba4df36e2.tar.gz emacs-4b1e820dc009830d21e2845e4d5f804ba4df36e2.zip | |
(custom-buffer-create-internal): Move whole buffer "Erase Customization"
button back to same position it occupies in the individual State menus.
| -rw-r--r-- | lisp/cus-edit.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index e8ad8551f46..37350920751 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -1491,13 +1491,6 @@ This updates your Emacs initialization file or creates a new one." | |||
| 1491 | :mouse-down-action (lambda (&rest junk) t) | 1491 | :mouse-down-action (lambda (&rest junk) t) |
| 1492 | :action (lambda (widget &optional event) | 1492 | :action (lambda (widget &optional event) |
| 1493 | (custom-reset event)))) | 1493 | (custom-reset event)))) |
| 1494 | (widget-insert " ") | ||
| 1495 | (when (or custom-file user-init-file) | ||
| 1496 | (widget-create 'push-button | ||
| 1497 | :tag "Erase Customization" | ||
| 1498 | :help-echo "\ | ||
| 1499 | Un-customize all settings in this buffer--save them with standard values." | ||
| 1500 | :action 'Custom-reset-standard))) | ||
| 1501 | (widget-insert "\n ") | 1494 | (widget-insert "\n ") |
| 1502 | (widget-create 'push-button | 1495 | (widget-create 'push-button |
| 1503 | :tag "Reset to Current" | 1496 | :tag "Reset to Current" |
| @@ -1510,6 +1503,13 @@ Reset all edited text in this buffer to reflect current values." | |||
| 1510 | :help-echo "\ | 1503 | :help-echo "\ |
| 1511 | Reset all settings in this buffer to their saved values." | 1504 | Reset all settings in this buffer to their saved values." |
| 1512 | :action 'Custom-reset-saved) | 1505 | :action 'Custom-reset-saved) |
| 1506 | (widget-insert " ") | ||
| 1507 | (when (or custom-file user-init-file) | ||
| 1508 | (widget-create 'push-button | ||
| 1509 | :tag "Erase Customization" | ||
| 1510 | :help-echo "\ | ||
| 1511 | Un-customize all settings in this buffer--save them with standard values." | ||
| 1512 | :action 'Custom-reset-standard))) | ||
| 1513 | (if (not custom-buffer-verbose-help) | 1513 | (if (not custom-buffer-verbose-help) |
| 1514 | (progn | 1514 | (progn |
| 1515 | (widget-insert " ") | 1515 | (widget-insert " ") |