From: Kenichi Handa <handa@m17n.org>
Date: Wed, 16 Oct 2002 02:16:02 +0000 (+0000)
Subject: (byte-compile-lapcode): Be sure to return a unibyte string.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~231
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9d9520bffd57821edb2b7d6ee55d5f431d65d1c;p=emacs.git

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

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 0150b48ae53..fdb955b490a 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -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