diff options
| author | Kenichi Handa <handa@m17n.org> | 2008-02-12 11:25:01 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2008-02-12 11:25:01 +0000 |
| commit | da9e269f680d29d1faa2fcf42d6197b248bc208f (patch) | |
| tree | 31db6b5ac05b0d92e3e16265d4af9db8f0deec5a /lisp/emacs-lisp | |
| parent | 926f559c272e746331cdb4b82d99e5690564af3c (diff) | |
| download | emacs-da9e269f680d29d1faa2fcf42d6197b248bc208f.tar.gz emacs-da9e269f680d29d1faa2fcf42d6197b248bc208f.tar.bz2 emacs-da9e269f680d29d1faa2fcf42d6197b248bc208f.zip | |
(byte-compile-lapcode): Use
unibyte-string instead of string-make-unibyte.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 |