From da9e269f680d29d1faa2fcf42d6197b248bc208f Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Tue, 12 Feb 2008 11:25:01 +0000 Subject: (byte-compile-lapcode): Use unibyte-string instead of string-make-unibyte. --- lisp/emacs-lisp/bytecomp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/bytecomp.el') 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 -- cgit v1.2.3