From: Kenichi Handa <handa@m17n.org>
Date: Tue, 12 Feb 2008 11:25:01 +0000 (+0000)
Subject: (byte-compile-lapcode): Use
X-Git-Tag: emacs-pretest-23.0.90~7982
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da9e269f680d29d1faa2fcf42d6197b248bc208f;p=emacs.git

(byte-compile-lapcode): Use
unibyte-string instead of string-make-unibyte.
---

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