diff options
| author | LLLL Colonq <llll@colonq> | 2026-09-22 00:06:29 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2026-09-22 00:06:29 -0400 |
| commit | 7abb751eb3d9213ba690ed4ae6b0dbbc099d8e46 (patch) | |
| tree | c051022c2eca4373233a874d1d714d58e807d97e /src/wasp-bus-binary.el | |
| parent | 07f5a19d7930d1d912d05c95d9cc5b4b0c407383 (diff) | |
Diffstat (limited to 'src/wasp-bus-binary.el')
| -rw-r--r-- | src/wasp-bus-binary.el | 7 |
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!")) |
