emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/rcirc-update 3405c85 6/7: Unset mode-line-process for all buffer


From: Philip Kaludercic
Subject: feature/rcirc-update 3405c85 6/7: Unset mode-line-process for all buffers on reconnecting
Date: Tue, 14 Sep 2021 16:10:33 -0400 (EDT)

branch: feature/rcirc-update
commit 3405c85ae402ae53b3b731868e18bd51ea928f37
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Unset mode-line-process for all buffers on reconnecting
    
    * rcirc.el (rcirc-sentinel): Add loop over all managed buffers
---
 lisp/net/rcirc.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 5537ddc..b0374a5 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -900,7 +900,9 @@ If QUIET is non-nil, no not emit a message."
             (setq rcirc-reconnection-timer nil))
 
           (message "Connecting to %s...done" (or server-alias server))
-          (setq mode-line-process nil)))
+          (dolist (buffer (cons nil (mapcar 'cdr rcirc-buffer-alist)))
+           (with-current-buffer (or buffer (current-buffer))
+             (setq mode-line-process nil)))))
        ((string= sentinel "deleted")
         (let ((now (current-time)))
           (with-rcirc-process-buffer process



reply via email to

[Prev in Thread] Current Thread [Next in Thread]