diff options
Diffstat (limited to 'lisp/cus-theme.el')
| -rw-r--r-- | lisp/cus-theme.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/cus-theme.el b/lisp/cus-theme.el index 53f530505ae..b4fe1e4b0bf 100644 --- a/lisp/cus-theme.el +++ b/lisp/cus-theme.el | |||
| @@ -99,7 +99,7 @@ the directory " custom-theme-directory "\n\n") | |||
| 99 | (widget-insert " ") | 99 | (widget-insert " ") |
| 100 | (widget-create 'push-button | 100 | (widget-create 'push-button |
| 101 | :notify (lambda (&rest ignore) | 101 | :notify (lambda (&rest ignore) |
| 102 | (when (y-or-n-p "Discard current changes?") | 102 | (when (y-or-n-p "Discard current changes? ") |
| 103 | (kill-buffer (current-buffer)) | 103 | (kill-buffer (current-buffer)) |
| 104 | (customize-create-theme))) | 104 | (customize-create-theme))) |
| 105 | "Reset Buffer") | 105 | "Reset Buffer") |
| @@ -137,7 +137,7 @@ the directory " custom-theme-directory "\n\n") | |||
| 137 | (widget-insert "\n") | 137 | (widget-insert "\n") |
| 138 | (widget-create 'push-button | 138 | (widget-create 'push-button |
| 139 | :notify (lambda (&rest ignore) | 139 | :notify (lambda (&rest ignore) |
| 140 | (when (y-or-n-p "Discard current changes?") | 140 | (when (y-or-n-p "Discard current changes? ") |
| 141 | (kill-buffer (current-buffer)) | 141 | (kill-buffer (current-buffer)) |
| 142 | (customize-create-theme))) | 142 | (customize-create-theme))) |
| 143 | "Reset Buffer") | 143 | "Reset Buffer") |
| @@ -290,7 +290,7 @@ Optional EVENT is the location for the menu." | |||
| 290 | (defun custom-theme-visit-theme () | 290 | (defun custom-theme-visit-theme () |
| 291 | (interactive) | 291 | (interactive) |
| 292 | (when (or (null custom-theme-variables) | 292 | (when (or (null custom-theme-variables) |
| 293 | (if (y-or-n-p "Discard current changes?") | 293 | (if (y-or-n-p "Discard current changes? ") |
| 294 | (progn (customize-create-theme) t))) | 294 | (progn (customize-create-theme) t))) |
| 295 | (let ((theme (call-interactively 'custom-theme-merge-theme))) | 295 | (let ((theme (call-interactively 'custom-theme-merge-theme))) |
| 296 | (unless (eq theme 'user) | 296 | (unless (eq theme 'user) |