rename send-message to not conflict with future function names

This commit is contained in:
Jakub 2026-05-09 13:22:26 +08:00
parent 4d0d2a0f8a
commit 4b9e63cb25

View file

@ -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)))