(custom-enable-theme): Don't add theme to `custom-enabled-themes' with `push'

because there is no setf-method for `delq'.

2 files changed, 8 insertions, 1 deletions

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  <lekktu@gmail.com>
+
+        * 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  <rms@gnu.org>
 
         * 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)))