From 3f0944c51f1657b8fea9600d554890c68fa2dabe Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Sun, 11 Sep 2022 13:28:36 +0200 Subject: [PATCH] Revert "Add new user option 'custom-ensure-single-theme'" This reverts commit b4dbf7184cd68ecd8d1a27fbc1407be0eae7e64c. --- etc/NEWS | 11 ----------- lisp/custom.el | 12 ------------ 2 files changed, 23 deletions(-) diff --git a/etc/NEWS b/etc/NEWS index 2d2bd789fb8..2f52e9bc371 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -2932,17 +2932,6 @@ These are run after enabling and disabling a theme, respectively. Using 'make-obsolete' on a theme is now supported. This will make 'load-theme' issue a warning when loading the theme. -+++ -*** New command 'toggle-theme' -If a theme defines a dual pair (e.g. a light or dark variant) this -command can be used disable the current one and enable the other. - ---- -*** New user option 'custom-ensure-single-active-theme' -If non-nil, all themes will be disabled before a new theme is enabled, -so that there is always at most one active theme at any time. - - +++ ** New hook 'display-monitors-changed-functions'. It is called whenever the configuration of different monitors on a diff --git a/lisp/custom.el b/lisp/custom.el index d8baf21d960..b4d1ba7317f 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -1280,12 +1280,6 @@ This variable cannot be set in a Custom theme." :risky t :version "24.1") -(defcustom custom-ensure-single-active-theme nil - "Non-nil means that `load-theme' should ensure only one theme is active." - :type 'boolean - :group 'customize - :version "29.1") - (defun load-theme (theme &optional no-confirm no-enable) "Load Custom theme named THEME from its file and possibly enable it. The theme file is named THEME-theme.el, in one of the directories @@ -1310,9 +1304,6 @@ This function is normally called through Customize when setting should be called with a non-nil NO-CONFIRM argument, or after `custom-safe-themes' has been loaded. -If `custom-ensure-single-active-theme' is non-nil, all other active -themes will be disabled before THEME is enabled. - Return t if THEME was successfully loaded, nil otherwise." (interactive (list @@ -1376,9 +1367,6 @@ Return t if THEME was successfully loaded, nil otherwise." (setq tail (cdr tail))) (when found (put theme 'theme-settings (cons found (delq found settings))))) - ;; Check if the user only wants one theme to be active - (when custom-ensure-single-active-theme - (mapc #'disable-theme custom-enabled-themes)) ;; Finally, enable the theme. (unless no-enable (enable-theme theme)) -- 2.39.2