diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-07 00:45:04 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-07 02:26:08 +0200 |
| commit | 670c41cf1270ca4e91c11a9f75af742b23a87260 (patch) | |
| tree | fa202a0432f95315a20c72fe7b5c6488f0714917 /lisp/subr.el | |
| parent | a3ca5318760b350309e50adf38fabc259c48ba06 (diff) | |
| download | emacs-670c41cf1270ca4e91c11a9f75af742b23a87260.tar.gz emacs-670c41cf1270ca4e91c11a9f75af742b23a87260.tar.bz2 emacs-670c41cf1270ca4e91c11a9f75af742b23a87260.zip | |
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.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 1 |
1 files changed, 1 insertions, 0 deletions
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")) |