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 |