mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-23 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Kim F. Storm 2006-05-28 21:31:04 +00:00
parent f3d50954b6
commit 16ddb1aeb7
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/bindat.el
View file

@ -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 ()