From: Dave Love 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 " "))