master 670c41c 1/2: Add edebug form to subr--with-wrapper-hook-no-warnings

[Lars Ingebrigtsen]

branch: master
commit 670c41cf1270ca4e91c11a9f75af742b23a87260
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 08ff38f..b1537fd 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"))