diff options
| author | Kim F. Storm <storm@cua.dk> | 2006-05-28 21:31:04 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2006-05-28 21:31:04 +0000 |
| commit | 16ddb1aeb78cae06924b19b90762902308c984bd (patch) | |
| tree | ca4f9036d3e02dbfd45fc01bf3dc7b753b469a71 /lisp/emacs-lisp | |
| parent | f3d50954b606070271ab5ed2f8973086448763c6 (diff) | |
| download | emacs-16ddb1aeb78cae06924b19b90762902308c984bd.tar.gz emacs-16ddb1aeb78cae06924b19b90762902308c984bd.tar.bz2 emacs-16ddb1aeb78cae06924b19b90762902308c984bd.zip | |
(bindat--unpack-u8): Use aref also for strings.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bindat.el | 4 |
1 files changed, 1 insertions, 3 deletions
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 () |