From: Dave Love <fx@gnu.org>
Date: Tue, 23 Jan 2001 14:31:02 +0000 (+0000)
Subject: (custom-theme-create): Simplify slightly.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=refs%2Fheads%2Fother-branches%2Fcustom_themes;p=emacs.git

(custom-theme-create): Simplify slightly.
(custom-theme-write-variables, custom-theme-write-faces): Use
mapc.
---

diff --git a/lisp/cus-theme.el b/lisp/cus-theme.el
index d5af44caa6f..5254f7b983a 100644
--- a/lisp/cus-theme.el
+++ b/lisp/cus-theme.el
@@ -54,9 +54,7 @@ This will help you share your customizations with other people.\n\n")
   (widget-insert "\n\nDocumentation:\n")
   (setq custom-theme-description
 	(widget-create 'text 
-		       :value (concat "Created " 
-				      (format-time-string "%Y-%m-%d")
-				      ".")))
+		       :value (format-time-string "Created %Y-%m-%d.")))
   (widget-insert "\nVariables:\n\n")
   (setq custom-theme-variables
      	(widget-create 'editable-list
@@ -113,15 +111,15 @@ It includes all variables in list VARS."
       (princ " '")
       (princ theme)
       (princ "\n")
-      (mapcar (lambda (symbol)
-		(when (boundp symbol)
-		  (unless (bolp)
-		    (princ "\n"))
-		  (princ " '(")
-		  (prin1 symbol)
-		  (princ " ")
-		  (prin1 (symbol-value symbol))
-		  (princ ")")))
+      (mapc (lambda (symbol)
+	      (when (boundp symbol)
+		(unless (bolp)
+		  (princ "\n"))
+		(princ " '(")
+		(prin1 symbol)
+		(princ " ")
+		(prin1 (symbol-value symbol))
+		(princ ")")))
 	      vars)
       (if (bolp)
 	  (princ " "))
@@ -138,16 +136,16 @@ It includes all faces in list FACES."
       (princ " '")
       (princ theme)
       (princ "\n")
-      (mapcar (lambda (symbol)
-		(when (facep symbol)
-		  (unless (bolp)
-		    (princ "\n"))
-		  (princ " '(")
-		  (prin1 symbol)
-		  (princ " ")
-		  (prin1 (or (get symbol 'customized-face)
-			     (get symbol 'face-defface-spec)))
-		  (princ ")")))
+      (mapc (lambda (symbol)
+	      (when (facep symbol)
+		(unless (bolp)
+		  (princ "\n"))
+		(princ " '(")
+		(prin1 symbol)
+		(princ " ")
+		(prin1 (or (get symbol 'customized-face)
+			   (get symbol 'face-defface-spec)))
+		(princ ")")))
 	      faces)
       (if (bolp)
 	  (princ " "))