Mercurial > hg > xemacs-beta

diff lisp/custom.el @ 4450:ac6231e0c1df

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Automated merge with file:/Sources/xemacs-21.5-checked-out
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 07 May 2008 21:21:08 +0200
parents 1d7faae1080c
children 8748a3f7ceb4
line wrap: on
line diff
--- a/lisp/custom.el	Wed May 07 21:17:59 2008 +0200
+++ b/lisp/custom.el	Wed May 07 21:21:08 2008 +0200
@@ -1039,7 +1039,7 @@
     (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))