Permalink
Browse files

deserialize bin-data type

  • Loading branch information...
1 parent 1261ccf commit 92241fa09123ed58bf8e994c551cc166b96aa0ea @nicferrier nicferrier committed Aug 25, 2012
Showing with 5 additions and 5 deletions.
  1. +5 −5 bson.el
View
10 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)))

0 comments on commit 92241fa

Please sign in to comment.