branch: externals/websocket
commit 07867563debb1ee67f1641f7ab307da9b40b9ab5
Author: Andrew Hyatt <ahy...@gmail.com>
Commit: Andrew Hyatt <ahy...@gmail.com>
Don't assume any change to the process is bad - check before closing.
---
websocket.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/websocket.el b/websocket.el
index 7ea9c933bf..c01e3da183 100644
--- a/websocket.el
+++ b/websocket.el
@@ -849,7 +849,9 @@ connection, which should be kept in order to pass to
(lambda (process change)
(let ((websocket (process-get process :websocket)))
(websocket-debug websocket "State change to %s" change)
- (unless (eq 'closed (websocket-ready-state websocket))
+ (when (and
+ (member (process-status process) '(closed failed exit signal))
+ (not (eq 'closed (websocket-ready-state websocket))))
(websocket-try-callback 'websocket-on-close 'on-close
websocket)))))))
(defun websocket-create-headers (url key protocol extensions)
