(byte-compile-inline-expand): Fetch actual bytecode

before inlining a lazy function.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 7bfa75dbaaf6e2481f97d97f76f0685e50ab1383..1d394511c96d934479a7e1873ca5a59849a64b89 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -221,9 +221,11 @@
       (if (symbolp fn)
          (byte-compile-inline-expand (cons fn (cdr form)))
        (if (byte-code-function-p fn)
-           (cons (list 'lambda (aref fn 0)
-                       (list 'byte-code (aref fn 1) (aref fn 2) (aref fn 3)))
-                 (cdr form))
+           (progn
+             (fetch-bytecode fn)
+             (cons (list 'lambda (aref fn 0)
+                         (list 'byte-code (aref fn 1) (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)))))))