branch: externals/websocket
commit 607355db44374b4b21619ac40bd76d2b63b5c995
Author: Yuya Minami <[email protected]>
Commit: Yuya Minami <[email protected]>
rename to `websocket-ensure-handshake`
---
websocket.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/websocket.el b/websocket.el
index b449b5b19a..77d787c9eb 100644
--- a/websocket.el
+++ b/websocket.el
@@ -730,7 +730,7 @@ to the websocket protocol.
conn
(websocket-sentinel url conn key protocols extensions custom-header-alist
nowait))
(set-process-query-on-exit-flag conn nil)
- (websocket-handshake url conn key protocols extensions custom-header-alist)
+ (websocket-ensure-handshake url conn key protocols extensions
custom-header-alist)
websocket))
(defun websocket-sentinel (url conn key protocols extensions
custom-header-alist nowait)
@@ -739,13 +739,13 @@ to the websocket protocol.
(websocket-debug websocket "State change to %s" change)
(let ((status (process-status process)))
(when (and nowait (eq status 'open))
- (websocket-handshake url conn key protocols extensions
custom-header-alist))
+ (websocket-ensure-handshake url conn key protocols extensions
custom-header-alist))
(when (and (member status '(closed failed exit signal))
(not (eq 'closed (websocket-ready-state websocket))))
(websocket-try-callback 'websocket-on-close 'on-close
websocket))))))
-(defun websocket-handshake (url conn key protocols extensions
custom-header-alist)
+(defun websocket-ensure-handshake (url conn key protocols extensions
custom-header-alist)
(let ((url-struct (url-generic-parse-url url))
(websocket (process-get conn :websocket)))
(when (and (eq 'connecting (websocket-ready-state websocket))
