andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* emacs-lisp/bindat.el (bindat-pack): Allocate and set a string

Browse source 
directly (Bug#2878).
This commit is contained in:
Chong Yidong 2009-05-04 01:18:11 +00:00
parent 734dabe0ec
commit 22d47d5e2b
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-05-04 Miles Bader <miles@gnu.org>
* emacs-lisp/bindat.el (bindat-pack): Allocate and set a string
directly (Bug#2878).
2009-05-03 Juanma Barranquero <lekktu@gmail.com>
* term/ns-win.el (ns-alternatives-map, ns-insert-working-text)

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

@ -609,9 +609,9 @@ Optional fourth arg BINDAT-IDX is the starting offset into BINDAT-RAW."
(let ((no-return bindat-raw))
(unless bindat-idx (setq bindat-idx 0))
(unless bindat-raw
(setq bindat-raw (make-vector (+ bindat-idx (bindat-length spec struct)) 0)))
(setq bindat-raw (make-string (+ bindat-idx (bindat-length spec struct)) 0)))
(bindat--pack-group struct spec)
(if no-return nil (concat bindat-raw))))
(if no-return nil bindat-raw)))
;; Misc. format conversions