From 670c41cf1270ca4e91c11a9f75af742b23a87260 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 7 Sep 2020 00:45:04 +0200 Subject: [PATCH] Add edebug form to subr--with-wrapper-hook-no-warnings * lisp/subr.el (subr--with-wrapper-hook-no-warnings): Add a debug form to allow edebugging some stuff. --- lisp/subr.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/subr.el b/lisp/subr.el index 08ff38ff8c1..b1537fd27a6 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1823,6 +1823,7 @@ FUN is then called once." (defmacro subr--with-wrapper-hook-no-warnings (hook args &rest body) "Like (with-wrapper-hook HOOK ARGS BODY), but without warnings." + (declare (debug (form sexp body))) ;; We need those two gensyms because CL's lexical scoping is not available ;; for function arguments :-( (let ((funs (make-symbol "funs")) -- 2.39.5