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 08ff38ff8c1d0226246f4b3d9cf60f6141633a73..b1537fd27a60b189fa27570d18b1daf21a328089 100644 (file)
--- 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"))