mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source 
because there is no setf-method for `delq'.
This commit is contained in:
Juanma Barranquero 2005-07-11 06:12:55 +00:00
parent 8989771d60
commit ba2c4279e0
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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.

3
lisp/custom.el
View File

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