From: Chong Yidong <cyd@stupidchicken.com>
Date: Fri, 13 Jan 2006 02:36:49 +0000 (+0000)
Subject: Minor fix.
X-Git-Tag: emacs-pretest-22.0.90~4775
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f354d94493c46772cfd62b034edb253837d4dcf2;p=emacs.git

Minor fix.
---

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)