From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 6 Sep 2020 22:45:04 +0000 (+0200)
Subject: Add edebug form to subr--with-wrapper-hook-no-warnings
X-Git-Tag: emacs-28.0.90~6206
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=670c41cf1270ca4e91c11a9f75af742b23a87260;p=emacs.git

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.
---

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"))