From 4d3b8fa17a975d6f04ba2a6ef4865d3938a76315 Mon Sep 17 00:00:00 2001 From: "F. Moukayed" Date: Wed, 6 Mar 2024 18:33:46 +0000 Subject: [PATCH] * lisp/erc/erc.el: (erc-format-spoilers): Add a new customizable variable controling how Erc displays spoilers --- lisp/erc/erc-goodies.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/erc/erc-goodies.el b/lisp/erc/erc-goodies.el index 7e30b10..211d704 100644 --- a/lisp/erc/erc-goodies.el +++ b/lisp/erc/erc-goodies.el @@ -645,6 +645,11 @@ emergency (message flood) it can be turned off to save processing time. See (defcustom erc-interpret-mirc-color nil "If non-nil, ERC will interpret mIRC color codes." + :type 'boolean + :group 'erc-control-characters) + +(defcustom erc-format-spoilers nil + "If non-nil, ERC will format spoilers with `erc-spoiler-face'." :type 'boolean) (defcustom erc-beep-p nil @@ -968,7 +973,7 @@ Also see `erc-interpret-controls-p' and `erc-interpret-mirc-color'." "Prepend properties from IRC control characters between FROM and TO. If optional argument STR is provided, apply to STR, otherwise prepend properties to a region in the current buffer." - (if (and fg bg (equal fg bg)) + (if (and fg bg (equal fg bg) erc-format-spoilers) (progn (setq fg 'erc-spoiler-face bg nil) -- 2.34.1