[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/bindat.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/05/04 01:18:16

Modified files:
        lisp           : ChangeLog 
        lisp/emacs-lisp: bindat.el 

Log message:
        * emacs-lisp/bindat.el (bindat-pack): Allocate and set a string
        directly (Bug#2878).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15627&r2=1.15628
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/bindat.el?cvsroot=emacs&r1=1.23&r2=1.24

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15627
retrieving revision 1.15628
diff -u -b -r1.15627 -r1.15628
--- ChangeLog   3 May 2009 23:19:35 -0000       1.15627
+++ ChangeLog   4 May 2009 01:18:11 -0000       1.15628
@@ -1,3 +1,8 @@
+2009-05-04  Miles Bader  <address@hidden>
+
+       * emacs-lisp/bindat.el (bindat-pack): Allocate and set a string
+       directly (Bug#2878).
+
 2009-05-03  Juanma Barranquero  <address@hidden>
 
        * term/ns-win.el (ns-alternatives-map, ns-insert-working-text)

Index: emacs-lisp/bindat.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/bindat.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- emacs-lisp/bindat.el        5 Jan 2009 03:20:45 -0000       1.23
+++ emacs-lisp/bindat.el        4 May 2009 01:18:15 -0000       1.24
@@ -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