From: Alex Bochannek <alex@bochannek.com>
Date: Sat, 21 Dec 2024 19:39:08 +0000 (-0800)
Subject: Add command to clear erc-track's mode-line indicator
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5f97161524f6bf26c900f9e99ba26d0716a3deaa;p=emacs.git

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)
---

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"))