(bindat--unpack-u8): Use aref also for strings.

diff --git a/lisp/emacs-lisp/bindat.el b/lisp/emacs-lisp/bindat.el
index 377ff8cc27ee080db213f786b8f09c280273356b..65a9ab46c79b433247c4f91afb8bf62ce95a3c79 100644 (file)
--- a/lisp/emacs-lisp/bindat.el
+++ b/lisp/emacs-lisp/bindat.el
@@ -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 ()