From: Philip Kaludercic Date: Tue, 7 Sep 2021 19:53:22 +0000 (+0200) Subject: Add rcirc-track-ignore-server-buffer-flag option X-Git-Tag: emacs-28.0.90~948^2~17 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ef6691602b9dd93c4fad9cc5e271e0104988a21;p=emacs.git 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 --- 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))