diff options
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!")) |