* lisp/emacs-lisp/bytecomp.el (byte-compile-eval): Fix bug#64232

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 262c658e258a4f64d10b04f08f31efc8af670702..489a9724fc465433e0dd00b73ff01ade76f1732e 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1128,7 +1128,8 @@ Each function's symbol gets added to `byte-compile-noruntime-functions'."
                     ;; we arguably should add it to b-c-noruntime-functions,
                      ;; but it's not clear it's worth the trouble
                     ;; trying to recognize that case.
-                    (unless (get f 'function-history)
+                    (unless (or (get f 'function-history)
+                                 (assq f byte-compile-function-environment))
                        (push f byte-compile-noruntime-functions)))))))))))))
 
 (defun byte-compile-eval-before-compile (form)