branch: externals/websocket
commit d34f5f095dced553eb3f30924a22a88e6763f4b4
Author: Andrew Hyatt <ahy...@gmail.com>
Commit: Andrew Hyatt <ahy...@gmail.com>
Update version to 1.10.
Minor formatting fix in websocket-server-accept.
---
websocket.el | 18 +++++++++---------
1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/websocket.el b/websocket.el
index b0ba1938fc..860cf2e2cd 100644
--- a/websocket.el
+++ b/websocket.el
@@ -4,7 +4,7 @@
;; Author: Andrew Hyatt <ahy...@gmail.com>
;; Keywords: Communication, Websocket, Server
-;; Version: 1.9
+;; Version: 1.10
;; Package-Requires: ((cl-lib "0.5"))
;;
;; This program is free software; you can redistribute it and/or
@@ -99,7 +99,7 @@ same for the protocols."
accept-string
(inflight-input nil))
-(defvar websocket-version "1.9"
+(defvar websocket-version "1.10"
"Version numbers of this version of websocket.el.")
(defvar websocket-debug nil
@@ -913,13 +913,13 @@ connection, which should be kept in order to pass to
(process-put client :websocket ws)
(set-process-coding-system client 'binary 'binary)
(set-process-sentinel client
- (lambda (process change)
- (let ((websocket (process-get process :websocket)))
- (websocket-debug websocket "State change to %s" change)
- (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)))))))
+ (lambda (process change)
+ (let ((websocket (process-get process :websocket)))
+ (websocket-debug websocket "State change to %s"
change)
+ (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
custom-headers-alist)
"Create connections headers for the given URL, KEY, PROTOCOL, and EXTENSIONS.
