(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 d5af44caa6f676878b4f578baf0c8065e13c46e3..5254f7b983a4a6ead9ed4af9ff1e8261a5dba814 100644 (file)
--- 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 " "))