(custom-theme-create): Simplify slightly.other-branches/custom_themes

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

1 files changed, 20 insertions, 22 deletions

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 " "))