[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 35b8c42 4/4: * rcirc.el (rcirc-sentinel): Use process-status
From: |
Philip Kaludercic |
Subject: |
master 35b8c42 4/4: * rcirc.el (rcirc-sentinel): Use process-status |
Date: |
Sat, 25 Sep 2021 12:32:08 -0400 (EDT) |
branch: master
commit 35b8c42bcdae11c0caa172584eb6441f58439fa6
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
* rcirc.el (rcirc-sentinel): Use process-status
---
lisp/net/rcirc.el | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 2e49ccb..74ea33e 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -855,12 +855,13 @@ If QUIET is non-nil, no not emit a message."
#'rcirc-reconnect process t))))))))
(defun rcirc-sentinel (process sentinel)
- "Called when PROCESS receives SENTINEL."
- (let ((sentinel (string-replace "\n" "" sentinel)))
+ "Called on a change of the state of PROCESS.
+SENTINEL describes the change in form of a string."
+ (let ((status (process-status process)))
(rcirc-debug process (format "SENTINEL: %S %S\n" process sentinel))
(with-rcirc-process-buffer process
(cond
- ((string= sentinel "open")
+ ((eq status 'open)
(let* ((server (nth 0 rcirc-connection-info))
(user-name (nth 3 rcirc-connection-info))
(full-name (nth 4 rcirc-connection-info))
@@ -904,7 +905,7 @@ If QUIET is non-nil, no not emit a message."
(dolist (buffer (cons nil (mapcar 'cdr rcirc-buffer-alist)))
(with-current-buffer (or buffer (current-buffer))
(setq mode-line-process nil)))))
- ((string= sentinel "deleted")
+ ((eq status 'closed)
(let ((now (current-time)))
(with-rcirc-process-buffer process
(when (and (< 0 rcirc-reconnect-delay)
@@ -912,7 +913,8 @@ If QUIET is non-nil, no not emit a message."
(time-subtract now
rcirc-last-connect-time)))
(setq rcirc-last-connect-time now)
(rcirc-reconnect process)))))
- ((dolist (buffer (cons nil (mapcar 'cdr rcirc-buffer-alist)))
+ ((eq status 'failed)
+ (dolist (buffer (cons nil (mapcar 'cdr rcirc-buffer-alist)))
(with-current-buffer (or buffer (current-buffer))
(rcirc-print process "*rcirc*" "ERROR" rcirc-target
(format "%s: %s (%S)"