diff lisp/custom.el @ 64221:fab4526842b1

Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Mon, 11 Jul 2005 01:05:17 +0000
parents 38b6647b9ed4
children 278c7e4c078a
line wrap: on
line diff
--- a/lisp/custom.el	Mon Jul 11 00:57:23 2005 +0000
+++ b/lisp/custom.el	Mon Jul 11 01:05:17 2005 +0000
@@ -983,10 +983,16 @@
 ;; settings of enabled themes that apply to it.
 ;; The property value is a list of settings, each with the form
 ;; (THEME MODE VALUE).  THEME, MODE and VALUE are as above.
+;; Each of these lists is ordered by decreasing theme precedence.
+;; Thus, the first element is always the one that is in effect.
 
-;; When a theme is disabled, its settings are removed from the
-;; `theme-value' and `theme-face' properties, but the
-;; theme's own `theme-settings' property remains unchanged.
+;; Disabling a theme removes its settings from the `theme-value' and
+;; `theme-face' properties, but the theme's own `theme-settings'
+;; property remains unchanged.
+
+;; Loading a theme implicitly enables it.  Enabling a theme adds its
+;; settings to the symbols' `theme-value' and `theme-face' properties,
+;; or moves them to the front of those lists if they're already present.
 
 (defvar custom-loaded-themes nil
   "Custom themes that have been loaded.")
@@ -1101,7 +1107,7 @@
 	(if (eq prop 'theme-value)
 	    (custom-theme-recalc-variable symbol)
 	  (custom-theme-recalc-face symbol)))))
-  (push theme custom-enabled-themes)
+  (push theme (delq theme custom-enabled-themes))
   ;; `user' must always be the highest-precedence enabled theme.
   (unless (eq theme 'user)
     (custom-enable-theme 'user)))