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

; Rename enable-theme and disable-theme hooks

Browse Source 
* lisp/custom.el (enable-theme-functions)
(disable-theme-functions): Rename from enable-theme-hook and
disable-theme-hook.  All users changed.  (Bug#37802)
This commit is contained in:
Eli Zaretskii 2022-05-21 16:55:15 +03:00
parent 42af5bcbed
commit 208102fa47
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
etc/NEWS
View File

@ -1859,7 +1859,7 @@ functions.
** Themes
---
*** New hooks 'enable-theme-hook' and 'disable-theme-hook'.
*** New hooks 'enable-theme-functions' and 'disable-theme-functions'.
These are run after enabling and disabling a theme, respectively.
---

16
lisp/custom.el
View File

@ -1422,16 +1422,16 @@ are not directories are omitted from the expansion."
;;; Enabling and disabling loaded themes.
(defcustom enable-theme-hook nil
"Atypical hook run after a theme has been enabled.
(defcustom enable-theme-functions nil
"Abnormal hook that is run after a theme has been enabled.
The functions in the hook are called with one parameter -- the
name of the theme that's been enabled (as a symbol)."
:type 'hook
:group 'customize
:version "29.1")
(defcustom disable-theme-hook nil
"Atypical hook run after a theme has been disabled.
(defcustom disable-theme-functions nil
"Abnormal hook that is run after a theme has been disabled.
The functions in the hook are called with one parameter -- the
name of the theme that's been disabled (as a symbol)."
:type 'hook
@ -1448,7 +1448,7 @@ precedence (after `user') among enabled themes.
Note that any already-enabled themes remain enabled after this
function runs. To disable other themes, use `disable-theme'.
After THEME has been enabled, `enable-theme-hook' is run."
After THEME has been enabled, runs `enable-theme-functions'."
(interactive (list (intern
(completing-read
"Enable custom theme: "
@ -1498,7 +1498,7 @@ After THEME has been enabled, `enable-theme-hook' is run."
;; Give the `user' theme the highest priority.
(enable-theme 'user))
;; Allow callers to react to the enabling.
(run-hook-with-args 'enable-theme-hook theme))
(run-hook-with-args 'enable-theme-functions theme))
(defcustom custom-enabled-themes nil
"List of enabled Custom Themes, highest precedence first.
@ -1545,7 +1545,7 @@ Setting this variable through Customize calls `enable-theme' or
"Disable all variable and face settings defined by THEME.
See `custom-enabled-themes' for a list of enabled themes.
After THEME has been disabled, `disable-theme-hook' is run."
After THEME has been disabled, runs `disable-theme-functions'."
(interactive (list (intern
(completing-read
"Disable custom theme: "
@ -1591,7 +1591,7 @@ After THEME has been disabled, `disable-theme-hook' is run."
(setq custom-enabled-themes
(delq theme custom-enabled-themes))
;; Allow callers to react to the disabling.
(run-hook-with-args 'disable-theme-hook theme)))
(run-hook-with-args 'disable-theme-functions theme)))
;; Only used if window-system not null.
(declare-function x-get-resource "frame.c"