# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1148851864 0
# Node ID ae4950765fb195d30cf3d4bfc0344037a73b4405
# Parent  80e86267b70b46333414eca1978de20b66d9ece9
(bindat--unpack-u8): Use aref also for strings.

diff -r 80e86267b70b -r ae4950765fb1 lisp/emacs-lisp/bindat.el
--- a/lisp/emacs-lisp/bindat.el	Sun May 28 21:30:49 2006 +0000
+++ b/lisp/emacs-lisp/bindat.el	Sun May 28 21:31:04 2006 +0000
@@ -201,9 +201,7 @@
 
 (defun bindat--unpack-u8 ()
   (prog1
-      (if (stringp raw-data)
-	  (string-to-char (substring raw-data pos (1+ pos)))
-	(aref raw-data pos))
+    (aref raw-data pos)
     (setq pos (1+ pos))))
 
 (defun bindat--unpack-u16 ()