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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 859f5b3e2e15d914bdab1f489d83757d56622ce3..e0f84dab374c92f5ef82a269c600c37f08de69fa 100644 (file)
--- 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 8e9818b71e74072f44d4475412463890d15bf617..f17ce1e51752a6dec531100689dc5a5736a2f561 100644 (file)
--- 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)))