mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(custom-theme-set-variables): Handle variable aliases.

Browse source
This commit is contained in:
Luc Teirlinck 2005-02-12 17:56:32 +00:00
parent b7a2a69670
commit 4b52e77985
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/custom.el
View file

@ -777,7 +777,7 @@ in SYMBOL's list property `theme-value' \(using `custom-push-theme')."
(while args
(let ((entry (car args)))
(if (listp entry)
(let* ((symbol (nth 0 entry))
(let* ((symbol (indirect-variable (nth 0 entry)))
(value (nth 1 entry))
(now (nth 2 entry))
(requests (nth 3 entry))
@ -809,7 +809,7 @@ in SYMBOL's list property `theme-value' \(using `custom-push-theme')."
(message "Warning: old format `custom-set-variables'")
(ding)
(sit-for 2)
(let ((symbol (nth 0 args))
(let ((symbol (indirect-variable (nth 0 args)))
(value (nth 1 args)))
(put symbol 'saved-value (list value))
(custom-push-theme 'theme-value symbol theme 'set value))