(byte-compile-lapcode): Use

unibyte-string instead of string-make-unibyte.

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a751d1b3dfc..44b843e7ebb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,6 +6,9 @@
 
 2008-02-12  Kenichi Handa  <handa@ni.aist.go.jp>
 
+        * emacs-lisp/bytecomp.el (byte-compile-lapcode): Use
+        unibyte-string instead of string-make-unibyte.
+
         * Makefile.in (AUTOGENEL): Remove charprop.el and uni-*.el.
 
 2008-02-12  Stefan Monnier  <monnier@iro.umontreal.ca>
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index f32671bc784..356f0d7890b 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -864,7 +864,7 @@ otherwise pop it")
                (setcar (cdr bytes) (logand pc 255))
                (setcar bytes (lsh pc -8))))
         (setq patchlist (cdr patchlist))))
-    (string-make-unibyte (concat (nreverse bytes)))))
+    (apply 'unibyte-string (nreverse bytes))))
 
 
 ;;; compile-time evaluation