From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 15 Jun 2019 14:33:05 +0000 (+0200)
Subject: Fix byte compilation warning in bindat.el
X-Git-Tag: emacs-27.0.90~2513
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0c01734a324716ea6c214d79b9f760dbeb431162;p=emacs.git

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.
---

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)