From ba2c4279e0dcdc918305517b2f58b6c7ba727640 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Mon, 11 Jul 2005 06:12:55 +0000 Subject: [PATCH] (custom-enable-theme): Don't add theme to `custom-enabled-themes' with `push' because there is no setf-method for `delq'. --- lisp/ChangeLog | 6 ++++++ lisp/custom.el | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * 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 * 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))) -- 2.39.2