From 0c01734a324716ea6c214d79b9f760dbeb431162 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 15 Jun 2019 16:33:05 +0200 Subject: [PATCH] Fix byte compilation warning in bindat.el * lisp/emacs-lisp/bindat.el (bindat--unpack-item): Avoid a byte compilation warning by using unibyte-string instead of concat + string-make-unibyte. --- lisp/emacs-lisp/bindat.el | 4 ++-- 1 file 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) -- 2.39.5