rename send-message to not conflict with future function names
This commit is contained in:
parent
4d0d2a0f8a
commit
4b9e63cb25
1 changed files with 2 additions and 2 deletions
|
|
@ -91,7 +91,7 @@
|
||||||
0
|
0
|
||||||
15
|
15
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(gomuks-send-message "ping")))
|
(gomuks-ws-send-message "ping")))
|
||||||
:websocket (websocket-open
|
:websocket (websocket-open
|
||||||
gomuks-ws-endpoint
|
gomuks-ws-endpoint
|
||||||
:custom-header-alist
|
:custom-header-alist
|
||||||
|
|
@ -129,7 +129,7 @@
|
||||||
(cancel-timer gomuks-ping-timer)
|
(cancel-timer gomuks-ping-timer)
|
||||||
(websocket-close gomuks-websocket))
|
(websocket-close gomuks-websocket))
|
||||||
|
|
||||||
(defun gomuks-send-message (command &optional data)
|
(defun gomuks-ws-send-message (command &optional data)
|
||||||
"Send a message down the gomuks websocket, automatically incrementing the session transaction ID.
|
"Send a message down the gomuks websocket, automatically incrementing the session transaction ID.
|
||||||
`command' is the command string to send, and `data' is an alist that is converted to JSON as required by the command."
|
`command' is the command string to send, and `data' is an alist that is converted to JSON as required by the command."
|
||||||
(setf (gomuks-session-transaction-id gomuks-current-session) (+ 1 (gomuks-session-transaction-id gomuks-current-session)))
|
(setf (gomuks-session-transaction-id gomuks-current-session) (+ 1 (gomuks-session-transaction-id gomuks-current-session)))
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue