(custom-declare-theme): Use `value' when putting properties on `theme'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aa15eff..59a7756 100644 (file)
--- 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 aa4d0d8..ea0567d 100644 (file)
--- 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.