diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-15 16:33:05 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-15 16:33:20 +0200 |
| commit | 0c01734a324716ea6c214d79b9f760dbeb431162 (patch) | |
| tree | ecbca296f6f56ec564fa6c9d2e3bf080a4885b27 /lisp/emacs-lisp/bindat.el | |
| parent | 826e63e73d8682d9ae08fab6e64d155f4f95eb5b (diff) | |
| download | emacs-0c01734a324716ea6c214d79b9f760dbeb431162.tar.gz | |
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.
Diffstat (limited to 'lisp/emacs-lisp/bindat.el')
| -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) |