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

changeset: 4441:1d7faae1080ce29c487a54432883093ba445c5e9 tag: tip user: Stephen J. Turnbull <stephen(a)xemacs.org&gt; 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(a)xemacs.o +2008-03-19 Stephen J. Turnbull <stephen(a)xemacs.org&gt; + + * custom.el (custom-theme-reset-internal): Fix call to get (symbol + and property were reversed). + 2008-03-12 Mike Sperber <mike(a)xemacs.org&gt; * 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)) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches