Mercurial > emacs
changeset 71032:ae4950765fb1
(bindat--unpack-u8): Use aref also for strings.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Sun, 28 May 2006 21:31:04 +0000 |
| parents | 80e86267b70b |
| children | b2dddb50f233 |
| files | lisp/emacs-lisp/bindat.el |
| diffstat | 1 files changed, 1 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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 ()