Mercurial > emacs
changeset 20778:6d7fffd02e26
(byte-compile-inline-expand): Use string-as-unibyte, if it is defined.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 26 Jan 1998 09:48:21 +0000 |
| parents | a9e1b9bf06e3 |
| children | eb1c101c6732 |
| files | lisp/emacs-lisp/byte-opt.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Mon Jan 26 09:04:27 1998 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Mon Jan 26 09:48:21 1998 +0000 @@ -279,10 +279,13 @@ (if (symbolp fn) (byte-compile-inline-expand (cons fn (cdr form))) (if (byte-code-function-p fn) - (progn + (let (string) (fetch-bytecode fn) + (setq string (aref fn 1)) + (if (fboundp 'string-as-unibyte) + (setq string (string-as-unibyte string))) (cons (list 'lambda (aref fn 0) - (list 'byte-code (aref fn 1) (aref fn 2) (aref fn 3))) + (list 'byte-code string (aref fn 2) (aref fn 3))) (cdr form))) (if (not (eq (car fn) 'lambda)) (error "%s is not a lambda" name)) (cons fn (cdr form)))))))