Mercurial > emacs
comparison lisp/custom.el @ 64228:90c5009c1621
(custom-enable-theme): Don't add theme to `custom-enabled-themes' with `push'
because there is no setf-method for `delq'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 11 Jul 2005 06:09:37 +0000 |
| parents | 278c7e4c078a |
| children | bcc16dd12f8b |
comparison
equal
deleted
inserted
replaced
| 64227:aab16328f79e | 64228:90c5009c1621 |
|---|---|
| 1100 (spec-list (get symbol prop))) | 1100 (spec-list (get symbol prop))) |
| 1101 (put symbol prop (cons (cddr s) (assq-delete-all theme spec-list))) | 1101 (put symbol prop (cons (cddr s) (assq-delete-all theme spec-list))) |
| 1102 (if (eq prop 'theme-value) | 1102 (if (eq prop 'theme-value) |
| 1103 (custom-theme-recalc-variable symbol) | 1103 (custom-theme-recalc-variable symbol) |
| 1104 (custom-theme-recalc-face symbol))))) | 1104 (custom-theme-recalc-face symbol))))) |
| 1105 (push theme (delq theme custom-enabled-themes)) | 1105 (setq custom-enabled-themes |
| 1106 (cons theme (delq theme custom-enabled-themes))) | |
| 1106 ;; `user' must always be the highest-precedence enabled theme. | 1107 ;; `user' must always be the highest-precedence enabled theme. |
| 1107 (unless (eq theme 'user) | 1108 (unless (eq theme 'user) |
| 1108 (custom-enable-theme 'user))) | 1109 (custom-enable-theme 'user))) |
| 1109 | 1110 |
| 1110 (defun custom-disable-theme (theme) | 1111 (defun custom-disable-theme (theme) |