Mercurial > emacs
comparison lisp/custom.el @ 60020:58cb209560a7
(custom-theme-set-variables): Handle variable aliases.
author | Luc Teirlinck <teirllm@auburn.edu> |
---|---|
date | Sat, 12 Feb 2005 17:56:32 +0000 |
parents | 9063407a6970 |
children | 28b5c27160e8 3ebd9bdb4fe5 |
comparison
equal
deleted
inserted
replaced
60019:1e555c99a724 | 60020:58cb209560a7 |
---|---|
775 ;; values. | 775 ;; values. |
776 (t (nth 3 a2))))))) | 776 (t (nth 3 a2))))))) |
777 (while args | 777 (while args |
778 (let ((entry (car args))) | 778 (let ((entry (car args))) |
779 (if (listp entry) | 779 (if (listp entry) |
780 (let* ((symbol (nth 0 entry)) | 780 (let* ((symbol (indirect-variable (nth 0 entry))) |
781 (value (nth 1 entry)) | 781 (value (nth 1 entry)) |
782 (now (nth 2 entry)) | 782 (now (nth 2 entry)) |
783 (requests (nth 3 entry)) | 783 (requests (nth 3 entry)) |
784 (comment (nth 4 entry)) | 784 (comment (nth 4 entry)) |
785 set) | 785 set) |
807 (put symbol 'variable-comment comment))) | 807 (put symbol 'variable-comment comment))) |
808 ;; Old format, a plist of SYMBOL VALUE pairs. | 808 ;; Old format, a plist of SYMBOL VALUE pairs. |
809 (message "Warning: old format `custom-set-variables'") | 809 (message "Warning: old format `custom-set-variables'") |
810 (ding) | 810 (ding) |
811 (sit-for 2) | 811 (sit-for 2) |
812 (let ((symbol (nth 0 args)) | 812 (let ((symbol (indirect-variable (nth 0 args))) |
813 (value (nth 1 args))) | 813 (value (nth 1 args))) |
814 (put symbol 'saved-value (list value)) | 814 (put symbol 'saved-value (list value)) |
815 (custom-push-theme 'theme-value symbol theme 'set value)) | 815 (custom-push-theme 'theme-value symbol theme 'set value)) |
816 (setq args (cdr (cdr args)))))))) | 816 (setq args (cdr (cdr args)))))))) |
817 | 817 |