diff options
| -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") | |||
| 54 | (widget-insert "\n\nDocumentation:\n") | 54 | (widget-insert "\n\nDocumentation:\n") |
| 55 | (setq custom-theme-description | 55 | (setq custom-theme-description |
| 56 | (widget-create 'text | 56 | (widget-create 'text |
| 57 | :value (concat "Created " | 57 | :value (format-time-string "Created %Y-%m-%d."))) |
| 58 | (format-time-string "%Y-%m-%d") | ||
| 59 | "."))) | ||
| 60 | (widget-insert "\nVariables:\n\n") | 58 | (widget-insert "\nVariables:\n\n") |
| 61 | (setq custom-theme-variables | 59 | (setq custom-theme-variables |
| 62 | (widget-create 'editable-list | 60 | (widget-create 'editable-list |
| @@ -113,15 +111,15 @@ It includes all variables in list VARS." | |||
| 113 | (princ " '") | 111 | (princ " '") |
| 114 | (princ theme) | 112 | (princ theme) |
| 115 | (princ "\n") | 113 | (princ "\n") |
| 116 | (mapcar (lambda (symbol) | 114 | (mapc (lambda (symbol) |
| 117 | (when (boundp symbol) | 115 | (when (boundp symbol) |
| 118 | (unless (bolp) | 116 | (unless (bolp) |
| 119 | (princ "\n")) | 117 | (princ "\n")) |
| 120 | (princ " '(") | 118 | (princ " '(") |
| 121 | (prin1 symbol) | 119 | (prin1 symbol) |
| 122 | (princ " ") | 120 | (princ " ") |
| 123 | (prin1 (symbol-value symbol)) | 121 | (prin1 (symbol-value symbol)) |
| 124 | (princ ")"))) | 122 | (princ ")"))) |
| 125 | vars) | 123 | vars) |
| 126 | (if (bolp) | 124 | (if (bolp) |
| 127 | (princ " ")) | 125 | (princ " ")) |
| @@ -138,16 +136,16 @@ It includes all faces in list FACES." | |||
| 138 | (princ " '") | 136 | (princ " '") |
| 139 | (princ theme) | 137 | (princ theme) |
| 140 | (princ "\n") | 138 | (princ "\n") |
| 141 | (mapcar (lambda (symbol) | 139 | (mapc (lambda (symbol) |
| 142 | (when (facep symbol) | 140 | (when (facep symbol) |
| 143 | (unless (bolp) | 141 | (unless (bolp) |
| 144 | (princ "\n")) | 142 | (princ "\n")) |
| 145 | (princ " '(") | 143 | (princ " '(") |
| 146 | (prin1 symbol) | 144 | (prin1 symbol) |
| 147 | (princ " ") | 145 | (princ " ") |
| 148 | (prin1 (or (get symbol 'customized-face) | 146 | (prin1 (or (get symbol 'customized-face) |
| 149 | (get symbol 'face-defface-spec))) | 147 | (get symbol 'face-defface-spec))) |
| 150 | (princ ")"))) | 148 | (princ ")"))) |
| 151 | faces) | 149 | faces) |
| 152 | (if (bolp) | 150 | (if (bolp) |
| 153 | (princ " ")) | 151 | (princ " ")) |