Mercurial > hg > xemacs-beta

comparison lisp/custom.el @ 4021:cef5f57bb9e2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-06-21 13:39:08 by aidan] '(lambda ...) -> #'(lambda ...), for the sake of style and the byte compiler.
author aidan
date Thu, 21 Jun 2007 13:39:36 +0000
parents b4a8cd0dd8df
children 20accccbebd6
comparison
equal deleted inserted replaced
4020:77df2f1e36fd 4021:cef5f57bb9e2
1040 1040
1041 (VARIABLE TO-THEME) 1041 (VARIABLE TO-THEME)
1042 1042
1043 This means reset VARIABLE to its value in TO-THEME." 1043 This means reset VARIABLE to its value in TO-THEME."
1044 (custom-check-theme theme) 1044 (custom-check-theme theme)
1045 (mapcar '(lambda (arg) 1045 (mapcar #'(lambda (arg)
1046 (apply 'custom-theme-reset-internal arg) 1046 (apply 'custom-theme-reset-internal arg)
1047 (custom-push-theme 'theme-value (car arg) theme 'reset (cadr arg))) 1047 (custom-push-theme 'theme-value (car arg) theme 'reset (cadr arg)))
1048 args)) 1048 args))
1049 1049
1050 (defun custom-reset-variables (&rest args) 1050 (defun custom-reset-variables (&rest args)
1051 "Reset the value of the variables to values previously saved. 1051 "Reset the value of the variables to values previously saved.
1052 This is the setting associated the `user' theme. 1052 This is the setting associated the `user' theme.