diff options
| author | Dave Love <fx@gnu.org> | 2001-01-23 14:31:02 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2001-01-23 14:31:02 +0000 |
| commit | f57c4de274087f802f52587b362acc2cee4c7833 (patch) | |
| tree | 74e83dccf477a19c24c5b344ff99587d588c976e | |
| parent | 52158b67bcf667bf5ba264e01eb300745393d2a3 (diff) | |
| download | emacs-other-branches/custom_themes.tar.gz | |
(custom-theme-create): Simplify slightly.other-branches/custom_themes
(custom-theme-write-variables, custom-theme-write-faces): Use
mapc.
| -rw-r--r-- | lisp/cus-theme.el | 42 |
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 " ")) |