From f57c4de274087f802f52587b362acc2cee4c7833 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 23 Jan 2001 14:31:02 +0000 Subject: [PATCH] (custom-theme-create): Simplify slightly. (custom-theme-write-variables, custom-theme-write-faces): Use mapc. --- lisp/cus-theme.el | 42 ++++++++++++++++++++---------------------- 1 file 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 " ")) -- 2.39.5