# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1137119809 0
# Node ID b219be97e734e061cfc0aa01388e1d3acbefbec6
# Parent  c9545d6c538f0fed1288cdaaad778160b940c2b7
Minor fix.

diff -r c9545d6c538f -r b219be97e734 lisp/cus-theme.el
--- 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)