From 2ef6691602b9dd93c4fad9cc5e271e0104988a21 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Tue, 7 Sep 2021 21:53:22 +0200 Subject: [PATCH] Add rcirc-track-ignore-server-buffer-flag option * rcirc.el (rcirc-track-ignore-server-buffer-flag): Add option (rcirc-record-activity): Use rcirc-track-ignore-server-buffer-flag --- lisp/net/rcirc.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index a3f87d43666..2bdc3d68c0c 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -415,6 +415,11 @@ will be killed." :version "28.1" :type 'function) +(defcustom rcirc-track-ignore-server-buffer-flag nil + "Non-nil means activities in the server buffer are not traced." + :version "28.1" + :type 'boolean) + (defvar-local rcirc-nick nil "The nickname used for the current connection.") @@ -2249,7 +2254,9 @@ activity. Only run if the buffer is not visible and (with-current-buffer buffer (let ((old-activity rcirc-activity) (old-types rcirc-activity-types)) - (when (not (get-buffer-window (current-buffer) t)) + (when (and (not (get-buffer-window (current-buffer) t)) + (not (and rcirc-track-ignore-server-buffer-flag + (eq rcirc-server-buffer (current-buffer))))) (setq rcirc-activity (sort (if (memq (current-buffer) rcirc-activity) rcirc-activity (cons (current-buffer) rcirc-activity)) -- 2.39.5