(byte-compile-lapcode): Be sure to return a unibyte string.

This commit is contained in:
Kenichi Handa 2002-10-16 02:16:02 +00:00
parent 78b82cca67
commit e9d9520bff

View file

@ -757,7 +757,7 @@ otherwise pop it")
(setcar (cdr bytes) (logand pc 255))
(setcar bytes (lsh pc -8))))
(setq patchlist (cdr patchlist))))
(concat (nreverse bytes))))
(string-make-unibyte (concat (nreverse bytes)))))
;;; compile-time evaluation