Minor fix.

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)