diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bindat.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bindat.el b/lisp/emacs-lisp/bindat.el index 33ab2f5c1c1..e0b12b53af2 100644 --- a/lisp/emacs-lisp/bindat.el +++ b/lisp/emacs-lisp/bindat.el @@ -256,7 +256,7 @@ (let ((s (substring bindat-raw bindat-idx (+ bindat-idx len)))) (setq bindat-idx (+ bindat-idx len)) (if (stringp s) s - (string-make-unibyte (concat s))))) + (apply #'unibyte-string s)))) ((eq type 'strz) (let ((i 0) s) (while (and (< i len) (/= (aref bindat-raw (+ bindat-idx i)) 0)) @@ -264,7 +264,7 @@ (setq s (substring bindat-raw bindat-idx (+ bindat-idx i))) (setq bindat-idx (+ bindat-idx len)) (if (stringp s) s - (string-make-unibyte (concat s))))) + (apply #'unibyte-string s)))) ((eq type 'vec) (let ((v (make-vector len 0)) (i 0) (vlen 1)) (if (consp vectype) |