mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(byte-compile-inline-expand): Use string-as-unibyte, if it is defined.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-01-26 09:48:21 +00:00
parent cbff28e8a0
commit 70b40ea144
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/emacs-lisp/byte-opt.el
View File

@ -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)))))))