# HG changeset patch
# User Eli Zaretskii <eliz@is.elta.co.il>
# Date 1072698799 0
# Node ID 89c5aff0d5d7efe75b754a6d3a56e785d7b0131c
# Parent  3f0eafd05a7b603ccbef7f89e4d4c0d52d2f9801
(custom-declare-theme): Use `value' when putting properties on `theme'.

diff -r 3f0eafd05a7b -r 89c5aff0d5d7 lisp/custom.el
--- 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.