# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1034734562 0
# Node ID 5db2e48ffbcb9a6d13fa0087d16ebccfb86afe99
# Parent  e6779a6185ca5a2b747e0a48583e485604f18a8d
(byte-compile-lapcode): Be sure to return a unibyte string.

diff -r e6779a6185ca -r 5db2e48ffbcb lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Wed Oct 16 02:14:49 2002 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Wed Oct 16 02:16:02 2002 +0000
@@ -757,7 +757,7 @@
 	       (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