From 04253dc92df109b047682c20e30608938218c25b Mon Sep 17 00:00:00 2001 From: Alan Mackenzie Date: Thu, 10 Oct 2024 16:39:54 +0000 Subject: [PATCH] Add an edebug spec for macroexp--with-extended-form-stack * lisp/emacs-lisp/macroexp.el (macroexp--with-extended-form-stack): Add the edebug spec (sexp body). (cherry picked from commit 42393b9883777732fd29ed4b43110a1e89bba3a2) --- lisp/emacs-lisp/macroexp.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index 3b0b3093781..fbfcde58769 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el @@ -41,7 +41,8 @@ This is to preserve the data in it in the event of a (defmacro macroexp--with-extended-form-stack (expr &rest body) "Evaluate BODY with EXPR pushed onto `byte-compile-form-stack'." - (declare (indent 1)) + (declare (indent 1) + (debug (sexp body))) `(let ((byte-compile-form-stack (cons ,expr byte-compile-form-stack))) ,@body)) -- 2.39.5