[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 7cf767ef54f: (byte-compile): Fix interaction with old `advice.el`
From: |
Stefan Monnier |
Subject: |
master 7cf767ef54f: (byte-compile): Fix interaction with old `advice.el` |
Date: |
Mon, 29 Apr 2024 13:17:45 -0400 (EDT) |
branch: master
commit 7cf767ef54f2cf1d2873fe4dd07664b401d8044b
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
(byte-compile): Fix interaction with old `advice.el`
* lisp/emacs-lisp/bytecomp.el (byte-compile): Handle symbols whose
function "value" is a bare lambda expression (bug#70368).
---
lisp/emacs-lisp/bytecomp.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 7aae87c50dc..6b7b804d7de 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2962,8 +2962,10 @@ If FORM is a lambda or a macro, byte-compile it as a
function."
(when (or (symbolp form) (interpreted-function-p fun))
;; `fun' is a function *value*, so try to recover its
;; corresponding source code.
- (setq lexical-binding (not (null (aref fun 2))))
- (setq fun (byte-compile--reify-function fun))
+ (if (not (interpreted-function-p fun))
+ (setq lexical-binding nil)
+ (setq lexical-binding (not (null (aref fun 2))))
+ (setq fun (byte-compile--reify-function fun)))
(setq need-a-value t))
;; Expand macros.
(setq fun (byte-compile-preprocess fun))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 7cf767ef54f: (byte-compile): Fix interaction with old `advice.el`,
Stefan Monnier <=