summaryrefslogtreecommitdiff
path: root/src/wasp-bus-binary.el
diff options
context:
space:
mode:
authorLLLL Colonq <llll@colonq>2026-09-22 00:06:29 -0400
committerLLLL Colonq <llll@colonq>2026-09-22 00:06:29 -0400
commit7abb751eb3d9213ba690ed4ae6b0dbbc099d8e46 (patch)
treec051022c2eca4373233a874d1d714d58e807d97e /src/wasp-bus-binary.el
parent07f5a19d7930d1d912d05c95d9cc5b4b0c407383 (diff)
Diffstat (limited to 'src/wasp-bus-binary.el')
-rw-r--r--src/wasp-bus-binary.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/wasp-bus-binary.el b/src/wasp-bus-binary.el
index 5b612e7b..6fbdea01 100644
--- a/src/wasp-bus-binary.el
+++ b/src/wasp-bus-binary.el
@@ -98,8 +98,11 @@ Return non-nil if a message was successfully parsed."
(defvar w/bus-binary-bad-string nil)
(defun w/bus-binary-build-length-prefixed (s)
"Turn S into a length-prefixed unibyte string."
- (let* ( (bs (string-bytes s))
- (ret (s-concat (w/bus-binary-build-int32le bs) (encode-coding-string s 'utf-8))))
+ (let*
+ ( (bs (string-bytes s))
+ (ret
+ (s-concat (w/bus-binary-build-int32le bs)
+ (encode-coding-string s 'no-conversion))))
(unless (= (+ bs 4) (string-bytes ret))
(setf w/bus-binary-bad-string s)
(error "Bad length when adding length prefix!"))