diff options
| author | Eli Zaretskii <eliz@is.elta.co.il> | 2003-12-29 11:54:03 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@is.elta.co.il> | 2003-12-29 11:54:03 +0000 |
| commit | 7f9b63222e50f3998e69e2cf4bb4ed3c7533c5a8 (patch) | |
| tree | 0fe39f1f0959ee50a1a199f60ab2ccfde708f02b | |
| parent | 53092de4a71c7f3c57366ae92f6ac4070a582510 (diff) | |
| download | emacs-7f9b63222e50f3998e69e2cf4bb4ed3c7533c5a8.tar.gz | |
(custom-declare-theme): Use `value' when putting properties on `theme'.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/custom.el | 12 |
2 files changed, 11 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index aa15eff2d71..59a77562367 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-12-29 Alex Schroeder <alex@emacswiki.org> (tiny change) + + * custom.el (custom-declare-theme): Use `value' when putting + properties on `theme'. + 2003-12-29 Takaaki Ota <Takaaki.Ota@am.sony.com> * subr.el (insert-for-yank): Call insert-for-yank-1 repetitively diff --git a/lisp/custom.el b/lisp/custom.el index aa4d0d8353f..ea0567d3109 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -558,17 +558,17 @@ from THEME by `custom-make-theme-feature'." (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. |