From 5f97161524f6bf26c900f9e99ba26d0716a3deaa Mon Sep 17 00:00:00 2001 From: Alex Bochannek Date: Sat, 21 Dec 2024 11:39:08 -0800 Subject: [PATCH] Add command to clear erc-track's mode-line indicator * etc/ERC-NEWS: Mention new command `erc-track-clear'. * lisp/erc/erc-track.el (erc-track-clear): New command to reset buffer activity indicator in ERC's mode-line construct. (Bug#75014) (cherry picked from commit 63cc335a524ab5b6fb8e9bc93041382baf1321db) --- etc/ERC-NEWS | 2 ++ lisp/erc/erc-track.el | 6 ++++++ 2 files changed, 8 insertions(+) diff --git a/etc/ERC-NEWS b/etc/ERC-NEWS index b7b49956d06..9554eaed412 100644 --- a/etc/ERC-NEWS +++ b/etc/ERC-NEWS @@ -49,6 +49,8 @@ speaker names, with the latter option also gaining 'erc-notice-face'. This was done to provide a more frequent and practical indication of channel activity in keeping with the module's original design. +** Command 'erc-track-clear' clears the mode-line activity indicator. + ** An arguably less distracting 'erc-nicks-track-faces' variant. Setting this option to t tells the 'track' module to have the mode-line indicator stick with the most recent speaker's face, even when they're diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el index d1c487de6f6..a1456a2971a 100644 --- a/lisp/erc/erc-track.el +++ b/lisp/erc/erc-track.el @@ -900,6 +900,12 @@ Use `erc-make-mode-line-buffer-name' to create buttons." (when (called-interactively-p 'interactive) (erc-modified-channels-display))) +(defun erc-track-clear () + "Clear ERC's mode-line activity indicator." + (interactive) + (setq erc-modified-channels-alist nil) + (erc-modified-channels-display)) + (defun erc-track-find-face (faces) "Return the face to use in the mode line." (declare (obsolete erc-track-select-mode-line-face "28.1")) -- 2.39.5