deserialize bin-data type

emacsorphanage · Aug 25, 2012 · 92241fa · 92241fa
1 parent 1261ccf
commit 92241fa
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/bson.el b/bson.el
@@ -427,11 +427,11 @@
 (defsubst bson-deserialize-binary ()
   (let* ((size (bson-deserialize-int32))
          (subtype (bson-deserialize-byte))
-         (start (point))
-         (bytes
-          (string-bytes
-           (buffer-substring-no-properties start (+ start size)))))
-    bytes))
+         (start (point)))
+    (goto-char (+ start size))
+    (list
+     subtype
+     (buffer-substring-no-properties start (point)))))
 
 (defsubst bson-deserialize-symbol ()
   (intern (bson-deserialize-string)))