andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* custom.el (custom-push-theme): Fix docstring.

Browse source 
* cus-edit.el (custom-variable-set, custom-variable-save,
	custom-variable-save): Custom-quote widget values.
	(customize-save-variable): Fix custom-push-theme call.
This commit is contained in:
Chong Yidong 2005-12-24 15:21:45 +00:00
parent 7c417300d8
commit c5d290fb3b
3 changed files with 21 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2005-12-24 Chong Yidong <cyd@stupidchicken.com>
* custom.el (custom-push-theme): Fix docstring.
* cus-edit.el (custom-variable-set, custom-variable-save,
custom-variable-save): Custom-quote widget values.
(customize-save-variable): Fix custom-push-theme call.
2005-12-24 Eli Zaretskii <eliz@gnu.org>
* w32-fns.el (w32-batch-update-autoloads): New function.

10
lisp/cus-edit.el
View file

@ -940,7 +940,7 @@ If given a prefix (or a COMMENT argument), also prompt for a comment."
current-prefix-arg))
(funcall (or (get variable 'custom-set) 'set-default) variable value)
(put variable 'saved-value (list (custom-quote value)))
(custom-push-theme 'theme-value variable 'user 'set (list (custom-quote value)))
(custom-push-theme 'theme-value variable 'user 'set (custom-quote value))
(cond ((string= comment "")
(put variable 'variable-comment nil)
(put variable 'saved-variable-comment nil))
@ -2670,7 +2670,7 @@ Optional EVENT is the location for the menu."
(custom-comment-hide comment-widget))
(custom-variable-backup-value widget)
(custom-push-theme 'theme-value symbol 'user
'set (widget-value child))
'set (custom-quote (widget-value child)))
(funcall set symbol (eval (setq val (widget-value child))))
(put symbol 'customized-value (list val))
(put symbol 'variable-comment comment)
@ -2682,7 +2682,7 @@ Optional EVENT is the location for the menu."
(custom-comment-hide comment-widget))
(custom-variable-backup-value widget)
(custom-push-theme 'theme-value symbol 'user
'set (widget-value child))
'set (custom-quote (widget-value child)))
(funcall set symbol (setq val (widget-value child)))
(put symbol 'customized-value (list (custom-quote val)))
(put symbol 'variable-comment comment)
@ -2712,7 +2712,7 @@ Optional EVENT is the location for the menu."
(custom-comment-hide comment-widget))
(put symbol 'saved-value (list (widget-value child)))
(custom-push-theme 'theme-value symbol 'user
'set (widget-value child))
'set (custom-quote (widget-value child)))
(funcall set symbol (eval (widget-value child)))
(put symbol 'variable-comment comment)
(put symbol 'saved-variable-comment comment))
@ -2724,7 +2724,7 @@ Optional EVENT is the location for the menu."
(put symbol 'saved-value
(list (custom-quote (widget-value child))))
(custom-push-theme 'theme-value symbol 'user
'set (widget-value child))
'set (custom-quote (widget-value child)))
(funcall set symbol (widget-value child))
(put symbol 'variable-comment comment)
(put symbol 'saved-variable-comment comment)))

15
lisp/custom.el
View file

@ -637,14 +637,15 @@ set by three different themes. Its `theme-value' property is:
\(jonadab set underline)
\(gnome2 set info-xref)
The theme `subtle-hacker' says to use the same value for the variable as
the theme `gnome2'. The theme values set by each of these themes can be
changed, but only the one defined by `subtle-hacker' takes effect, because
the theme currently has the highest precedence. To change the precedence
of the themes, use `enable-theme'.
The theme `subtle-hacker' says to use the same value for the
variable as the theme `gnome2'. Therefore, the theme value of
the variable is `info-xref'. The theme value defined by
`subtle-hacker' is in effect, because that theme currently has
the highest precedence. To change the precedence of the themes,
use `enable-theme'.
The user has not customized the face; had he done that, the list would
contain an entry for the `user' theme, too.
The user has not customized the variable; had he done that, the
list would contain an entry for the `user' theme, too.
See `custom-known-themes' for a list of known themes."
(unless (or (eq prop 'theme-value)