Mercurial > emacs
changeset 53371:89c5aff0d5d7
(custom-declare-theme): Use `value' when putting properties on `theme'.
| author | Eli Zaretskii <eliz@is.elta.co.il> |
|---|---|
| date | Mon, 29 Dec 2003 11:53:19 +0000 |
| parents | 3f0eafd05a7b |
| children | 2ee5eeb8d2ba |
| files | lisp/custom.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/custom.el Mon Dec 29 11:46:03 2003 +0000 +++ b/lisp/custom.el Mon Dec 29 11:53:19 2003 +0000 @@ -558,17 +558,17 @@ (error "Keyword %s is missing an argument" keyword)) (setq args (cdr args)) (cond ((eq keyword :short-description) - (put theme 'theme-short-description short-description)) + (put theme 'theme-short-description value)) ((eq keyword :immediate) - (put theme 'theme-immediate immediate)) + (put theme 'theme-immediate value)) ((eq keyword :variable-set-string) - (put theme 'theme-variable-set-string variable-set-string)) + (put theme 'theme-variable-set-string value)) ((eq keyword :variable-reset-string) - (put theme 'theme-variable-reset-string variable-reset-string)) + (put theme 'theme-variable-reset-string value)) ((eq keyword :face-set-string) - (put theme 'theme-face-set-string face-set-string)) + (put theme 'theme-face-set-string value)) ((eq keyword :face-reset-string) - (put theme 'theme-face-reset-string face-reset-string))))))) + (put theme 'theme-face-reset-string value))))))) (defmacro deftheme (theme &optional doc &rest args) "Declare custom theme THEME.