carbon2-commit: Fix call to get in custom-theme-reset-internal.

[Aidan Kehoe]

changeset:   4460:1d7faae1080ce29c487a54432883093ba445c5e9
user:        Stephen J. Turnbull <stephen at xemacs.org>
date:        Fri Apr 04 10:50:19 2008 -0700
files:       lisp/ChangeLog lisp/custom.el
description:
Fix call to get in custom-theme-reset-internal.


diff -r e4225b6d938918eaf9a1bb01c0d01afb1b672d90 -r 1d7faae1080ce29c487a54432883093ba445c5e9 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Apr 04 10:48:58 2008 -0700
+++ b/lisp/ChangeLog	Fri Apr 04 10:50:19 2008 -0700
@@ -1,3 +1,8 @@ 2008-03-12  Mike Sperber  <mike at xemacs.o
+2008-03-19  Stephen J. Turnbull  <stephen at xemacs.org>
+
+	* custom.el (custom-theme-reset-internal): Fix call to get (symbol
+	and property were reversed).
+
 2008-03-12  Mike Sperber  <mike at xemacs.org>
 
 	* window-xemacs.el (restore-saved-window): Restore window
diff -r e4225b6d938918eaf9a1bb01c0d01afb1b672d90 -r 1d7faae1080ce29c487a54432883093ba445c5e9 lisp/custom.el
--- a/lisp/custom.el	Fri Apr 04 10:48:58 2008 -0700
+++ b/lisp/custom.el	Fri Apr 04 10:50:19 2008 -0700
@@ -1039,7 +1039,7 @@ stored in SYMBOL's property `standard-va
     (setq value (or value (get symbol 'standard-value)))
     (when value
       (put symbol 'saved-value was-in-theme)
-      (if (or (get 'force-value symbol) (default-boundp symbol))
+      (if (or (get symbol 'force-value) (default-boundp symbol))
           (funcall (or (get symbol 'custom-set) 'set-default) symbol
                    (eval (car value)))))
     value))