Mercurial > emacs

diff lisp/custom.el @ 64228:90c5009c1621

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 278c7e4c078a
children bcc16dd12f8b
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)))