diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 859f5b3e2e1..e0f84dab374 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-07-11 Juanma Barranquero + + * custom.el (custom-enable-theme): Don't add theme to + `custom-enabled-themes' with `push' because there is no + setf-method for `delq'. + 2005-07-11 Richard M. Stallman * custom.el (custom-declare-variable): Doc fix. diff --git a/lisp/custom.el b/lisp/custom.el index 8e9818b71e7..f17ce1e5175 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -1102,7 +1102,8 @@ If it is already enabled, just give it highest precedence (after `user')." (if (eq prop 'theme-value) (custom-theme-recalc-variable symbol) (custom-theme-recalc-face symbol))))) - (push theme (delq theme custom-enabled-themes)) + (setq custom-enabled-themes + (cons theme (delq theme custom-enabled-themes))) ;; `user' must always be the highest-precedence enabled theme. (unless (eq theme 'user) (custom-enable-theme 'user)))