aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2007-11-20 12:38:26 +0000
committerRichard M. Stallman2007-11-20 12:38:26 +0000
commitb1dfec553a2be7e1bd027a9f7abdf328bcc379cb (patch)
treebc7e42a5d53504b8067aa703580b031e46f00836
parent7a6e37202cf8c766d90ba1b06c829ae2810abdbd (diff)
downloademacs-b1dfec553a2be7e1bd027a9f7abdf328bcc379cb.tar.gz
emacs-b1dfec553a2be7e1bd027a9f7abdf328bcc379cb.zip
Comment change.
-rw-r--r--lisp/emacs-lisp/byte-opt.el2
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)))