procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix byte compilation warning in bindat.el

Browse source 
* lisp/emacs-lisp/bindat.el (bindat--unpack-item): Avoid a byte
compilation warning by using unibyte-string instead of concat +
string-make-unibyte.
This commit is contained in:
Lars Ingebrigtsen 2019-06-15 16:33:05 +02:00
parent 826e63e73d
commit 0c01734a32
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/bindat.el
View file

@ -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)