From: Kim F. Storm <storm@cua.dk>
Date: Sun, 28 May 2006 21:31:04 +0000 (+0000)
Subject: (bindat--unpack-u8): Use aref also for strings.
X-Git-Tag: emacs-pretest-22.0.90~2232
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=16ddb1aeb78cae06924b19b90762902308c984bd;p=emacs.git

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

diff --git a/lisp/emacs-lisp/bindat.el b/lisp/emacs-lisp/bindat.el
index 377ff8cc27e..65a9ab46c79 100644
--- 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 ()