Mercurial > hg > xemacs-beta

comparison lisp/custom.el @ 4441:1d7faae1080c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix call to get in custom-theme-reset-internal.
author Stephen J. Turnbull <stephen@xemacs.org>
date Fri, 04 Apr 2008 10:50:19 -0700
parents 20accccbebd6
children 8748a3f7ceb4
comparison
equal deleted inserted replaced
4440:e4225b6d9389 4441:1d7faae1080c
1037 was-in-theme) 1037 was-in-theme)
1038 (setq was-in-theme value) 1038 (setq was-in-theme value)
1039 (setq value (or value (get symbol 'standard-value))) 1039 (setq value (or value (get symbol 'standard-value)))
1040 (when value 1040 (when value
1041 (put symbol 'saved-value was-in-theme) 1041 (put symbol 'saved-value was-in-theme)
1042 (if (or (get 'force-value symbol) (default-boundp symbol)) 1042 (if (or (get symbol 'force-value) (default-boundp symbol))
1043 (funcall (or (get symbol 'custom-set) 'set-default) symbol 1043 (funcall (or (get symbol 'custom-set) 'set-default) symbol
1044 (eval (car value))))) 1044 (eval (car value)))))
1045 value)) 1045 value))
1046 1046
1047 (defun custom-theme-reset-variables (theme &rest args) 1047 (defun custom-theme-reset-variables (theme &rest args)