From da9e269f680d29d1faa2fcf42d6197b248bc208f Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 12 Feb 2008 11:25:01 +0000 Subject: [PATCH] (byte-compile-lapcode): Use unibyte-string instead of string-make-unibyte. --- lisp/ChangeLog | 3 +++ lisp/emacs-lisp/bytecomp.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) 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 + * 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 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 -- 2.39.2