From 607355db44374b4b21619ac40bd76d2b63b5c995 Mon Sep 17 00:00:00 2001 From: Yuya Minami Date: Sun, 22 Apr 2018 13:16:08 +0900 Subject: [PATCH] rename to `websocket-ensure-handshake` --- websocket.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/websocket.el b/websocket.el index b449b5b..77d787c 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))