Merge from emacs--rel--22

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-937
This commit is contained in:
Miles Bader 2007-11-21 04:55:58 +00:00
commit d4aa48db8e
22 changed files with 154 additions and 101 deletions

View file

@ -277,6 +277,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)))