649 |
(progn |
(progn |
650 |
(setcar (cdr setting) mode) |
(setcar (cdr setting) mode) |
651 |
(setcar (cddr setting) value)) |
(setcar (cddr setting) value)) |
652 |
(if (and (null old) |
;; If no custom theme has been applied yet, first save the |
653 |
(boundp symbol)) |
;; current values to the 'standard theme. |
654 |
(setq old |
(if (null old) |
655 |
(list |
(if (and (eq prop 'theme-value) |
656 |
(list 'standard 'set |
(boundp symbol)) |
657 |
(if (eq prop 'theme-value) |
(setq old |
658 |
(symbol-value symbol) |
(list (list 'standard 'set (symbol-value symbol)))) |
659 |
(list |
(if (facep symbol) |
660 |
(append |
(setq old (list (list 'standard 'set (list |
661 |
'(t) |
(append '(t) (custom-face-attributes-get symbol nil))))))))) |
|
(custom-face-attributes-get symbol nil)))))))) |
|
662 |
(put symbol prop (cons (list theme mode value) old))) |
(put symbol prop (cons (list theme mode value) old))) |
663 |
;; Record, for each theme, all its settings. |
;; Record, for each theme, all its settings. |
664 |
(put theme 'theme-settings |
(put theme 'theme-settings |