Mercurial > emacs
changeset 103142:5799cf56cf25
* emacs-lisp/bindat.el (bindat-pack): Allocate and set a string
directly (Bug#2878).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 04 May 2009 01:18:11 +0000 |
| parents | bbc4e451e5dc |
| children | 4369a496f39e |
| files | lisp/ChangeLog lisp/emacs-lisp/bindat.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon May 04 01:13:20 2009 +0000 +++ b/lisp/ChangeLog Mon May 04 01:18:11 2009 +0000 @@ -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)
--- a/lisp/emacs-lisp/bindat.el Mon May 04 01:13:20 2009 +0000 +++ b/lisp/emacs-lisp/bindat.el Mon May 04 01:18:11 2009 +0000 @@ -609,9 +609,9 @@ (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