From 37101780243d083e8773c255242aa26614f22a14 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 7 Jul 2023 12:09:50 -0400 Subject: [PATCH] * lisp/emacs-lisp/bytecomp.el (byte-compile-eval): Fix bug#64232 --- lisp/emacs-lisp/bytecomp.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 262c658e258..489a9724fc4 100644 --- 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) -- 2.39.2