Mercurial > emacs
comparison lisp/custom.el @ 65343:d82393ad9b2d
Fix last change to custom-push-theme.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 06 Sep 2005 03:14:46 +0000 |
| parents | 6990826a916f |
| children | c60d119298c4 df78f2fb8f6a |
comparison
equal
deleted
inserted
replaced
| 65342:c71b1b2d2d04 | 65343:d82393ad9b2d |
|---|---|
| 647 ;; or add a new one. | 647 ;; or add a new one. |
| 648 (if setting | 648 (if setting |
| 649 (progn | 649 (progn |
| 650 (setcar (cdr setting) mode) | 650 (setcar (cdr setting) mode) |
| 651 (setcar (cddr setting) value)) | 651 (setcar (cddr setting) value)) |
| 652 (if (null old) | 652 (if (and (null old) |
| 653 (boundp symbol)) | |
| 653 (setq old | 654 (setq old |
| 654 (list | 655 (list |
| 655 (list 'standard 'set | 656 (list 'standard 'set |
| 656 (if (eq prop 'theme-value) | 657 (if (eq prop 'theme-value) |
| 657 (symbol-value symbol) | 658 (symbol-value symbol) |