changeset 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 aab16328f79e
children e34914bd46cc
files lisp/custom.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/custom.el	Mon Jul 11 05:41:57 2005 +0000
+++ b/lisp/custom.el	Mon Jul 11 06:09:37 2005 +0000
@@ -1102,7 +1102,8 @@
 	(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)))