Mercurial > emacs
changeset 68161:b219be97e734
Minor fix.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 13 Jan 2006 02:36:49 +0000 |
| parents | c9545d6c538f |
| children | 0d459faeff1a |
| files | lisp/cus-theme.el |
| diffstat | 1 files changed, 16 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-theme.el Fri Jan 13 02:35:30 2006 +0000 +++ b/lisp/cus-theme.el Fri Jan 13 02:36:49 2006 +0000 @@ -154,15 +154,15 @@ (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 @@ (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)