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

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

(custom-enable-theme): Don't add theme to `custom-enabled-themes' with `push'
because there is no setf-method for `delq'.
ba2c4279 · Juanma Barranquero · 8989771d · ba2c4279 · ba2c4279
Commit ba2c4279 authored Jul 11, 2005 by Juanma Barranquero
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +6 -0

lisp/custom.el lisp/custom.el +2 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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.

--- 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)))