diff options
| author | Richard M. Stallman | 2007-11-20 12:38:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2007-11-20 12:38:26 +0000 |
| commit | b1dfec553a2be7e1bd027a9f7abdf328bcc379cb (patch) | |
| tree | bc7e42a5d53504b8067aa703580b031e46f00836 | |
| parent | 7a6e37202cf8c766d90ba1b06c829ae2810abdbd (diff) | |
| download | emacs-b1dfec553a2be7e1bd027a9f7abdf328bcc379cb.tar.gz emacs-b1dfec553a2be7e1bd027a9f7abdf328bcc379cb.zip | |
Comment change.
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 6f653c8fc6e..ebe490fb229 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el | |||
| @@ -276,6 +276,8 @@ | |||
| 276 | ;; Isn't it an error for `string' not to be unibyte?? --stef | 276 | ;; Isn't it an error for `string' not to be unibyte?? --stef |
| 277 | (if (fboundp 'string-as-unibyte) | 277 | (if (fboundp 'string-as-unibyte) |
| 278 | (setq string (string-as-unibyte string))) | 278 | (setq string (string-as-unibyte string))) |
| 279 | ;; `byte-compile-splice-in-already-compiled-code' | ||
| 280 | ;; takes care of inlining the body. | ||
| 279 | (cons `(lambda ,(aref fn 0) | 281 | (cons `(lambda ,(aref fn 0) |
| 280 | (byte-code ,string ,(aref fn 2) ,(aref fn 3))) | 282 | (byte-code ,string ,(aref fn 2) ,(aref fn 3))) |
| 281 | (cdr form))) | 283 | (cdr form))) |