Comment change.

This commit is contained in:
Richard M. Stallman 2007-11-20 12:38:26 +00:00
parent 7a6e37202c
commit b1dfec553a

View file

@ -276,6 +276,8 @@
;; Isn't it an error for `string' not to be unibyte?? --stef
(if (fboundp 'string-as-unibyte)
(setq string (string-as-unibyte string)))
;; `byte-compile-splice-in-already-compiled-code'
;; takes care of inlining the body.
(cons `(lambda ,(aref fn 0)
(byte-code ,string ,(aref fn 2) ,(aref fn 3)))
(cdr form)))