[Emacs-diffs] Changes to emacs/lisp/cus-theme.el

[Chong Yidong]

Index: emacs/lisp/cus-theme.el
diff -u emacs/lisp/cus-theme.el:1.21 emacs/lisp/cus-theme.el:1.22
--- emacs/lisp/cus-theme.el:1.21        Fri Jan 13 02:35:30 2006
+++ emacs/lisp/cus-theme.el     Fri Jan 13 02:36:49 2006
@@ -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)