(byte-compile-lapcode): Use

unibyte-string instead of string-make-unibyte.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a751d1b3dfc2b8d45770b881d6bad9cb85fc26dc..44b843e7ebb8ff043ff219021de96399319c737d 100644 (file)
--- 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 f32671bc784b694403fa1f511a5fdc57819ea65c..356f0d7890bb5dacab62d44a1cdc7dac79b11aa3 100644 (file)
--- 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))))
 
 \f
 ;;; compile-time evaluation