777 |
(while args |
(while args |
778 |
(let ((entry (car args))) |
(let ((entry (car args))) |
779 |
(if (listp entry) |
(if (listp entry) |
780 |
(let* ((symbol (nth 0 entry)) |
(let* ((symbol (indirect-variable (nth 0 entry))) |
781 |
(value (nth 1 entry)) |
(value (nth 1 entry)) |
782 |
(now (nth 2 entry)) |
(now (nth 2 entry)) |
783 |
(requests (nth 3 entry)) |
(requests (nth 3 entry)) |
809 |
(message "Warning: old format `custom-set-variables'") |
(message "Warning: old format `custom-set-variables'") |
810 |
(ding) |
(ding) |
811 |
(sit-for 2) |
(sit-for 2) |
812 |
(let ((symbol (nth 0 args)) |
(let ((symbol (indirect-variable (nth 0 args))) |
813 |
(value (nth 1 args))) |
(value (nth 1 args))) |
814 |
(put symbol 'saved-value (list value)) |
(put symbol 'saved-value (list value)) |
815 |
(custom-push-theme 'theme-value symbol theme 'set value)) |
(custom-push-theme 'theme-value symbol theme 'set value)) |