diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2006-01-13 02:36:49 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2006-01-13 02:36:49 +0000 |
| commit | f354d94493c46772cfd62b034edb253837d4dcf2 (patch) | |
| tree | a9d452a3d16c493f3a1cc1abba4a09c303c644a8 /lisp/cus-theme.el | |
| parent | c798b7e89bee7dbad5dc5c1eb24c100d3618a859 (diff) | |
| download | emacs-f354d94493c46772cfd62b034edb253837d4dcf2.tar.gz | |
Minor fix.
Diffstat (limited to 'lisp/cus-theme.el')
| -rw-r--r-- | lisp/cus-theme.el | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/lisp/cus-theme.el b/lisp/cus-theme.el index 502220d278d..a21832c7b62 100644 --- a/lisp/cus-theme.el +++ b/lisp/cus-theme.el @@ -154,15 +154,15 @@ the directory " custom-theme-directory "\n\n") (defun custom-theme-add-variable (symbol) (interactive "vVariable name: ") - (save-excursion - (goto-char custom-theme-insert-variable-marker) - (cond ((assq symbol custom-theme-variables) - (message "%s is already in the theme" (symbol-name symbol))) - ((not (boundp symbol)) - (message "%s is not defined as a variable" (symbol-name symbol))) - ((eq symbol 'custom-enabled-themes) - (message "Custom theme cannot contain `custom-enabled-themes'")) - (t + (cond ((assq symbol custom-theme-variables) + (message "%s is already in the theme" (symbol-name symbol))) + ((not (boundp symbol)) + (message "%s is not defined as a variable" (symbol-name symbol))) + ((eq symbol 'custom-enabled-themes) + (message "Custom theme cannot contain `custom-enabled-themes'")) + (t + (save-excursion + (goto-char custom-theme-insert-variable-marker) (widget-insert "\n") (let ((widget (widget-create 'custom-variable :tag (custom-unlispify-tag-name symbol) @@ -225,13 +225,13 @@ Optional EVENT is the location for the menu." (defun custom-theme-add-face (symbol) (interactive (list (read-face-name "Face name" nil nil))) - (save-excursion - (goto-char custom-theme-insert-face-marker) - (cond ((assq symbol custom-theme-faces) - (message "%s is already in the theme" (symbol-name symbol))) - ((not (facep symbol)) - (message "%s is not defined as a face" (symbol-name symbol))) - (t + (cond ((assq symbol custom-theme-faces) + (message "%s is already in the theme" (symbol-name symbol))) + ((not (facep symbol)) + (message "%s is not defined as a face" (symbol-name symbol))) + (t + (save-excursion + (goto-char custom-theme-insert-face-marker) (widget-insert "\n") (let ((widget (widget-create 'custom-face :tag (custom-unlispify-tag-name symbol) |