Minor fix.

diff --git a/lisp/cus-theme.el b/lisp/cus-theme.el
index 502220d278d94385235dc9afa3aa050a06384bd9..a21832c7b627378fd612f3064b21b0b38e751d29 100644 (file)
--- 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)