[Emacs-diffs] master 0c01734: Fix byte compilation warning in bindat.el

[Lars Ingebrigtsen]

branch: master
commit 0c01734a324716ea6c214d79b9f760dbeb431162
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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 33ab2f5..e0b12b5 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)