diff options
| author | Philipp Stephani <phst@google.com> | 2021-05-17 10:00:36 +0200 |
|---|---|---|
| committer | Philipp Stephani <phst@google.com> | 2021-05-17 10:09:43 +0200 |
| commit | 42950e9e4647c28f56c72cc27ef96edbafcbe5cd (patch) | |
| tree | 2693e41161a0c53bbf5480f746799c8fb5f55f24 /lisp/info-xref.el | |
| parent | e761e12498ff108c3b82e9d27843baec6670447c (diff) | |
| download | emacs-42950e9e4647c28f56c72cc27ef96edbafcbe5cd.tar.gz emacs-42950e9e4647c28f56c72cc27ef96edbafcbe5cd.tar.bz2 emacs-42950e9e4647c28f56c72cc27ef96edbafcbe5cd.zip | |
Fix a few Edebug specifications where code is wrapped in lambdas.
As the Info node `(elisp) Specification List' explains, it is not
correct to use `body' or t for a piece of code that the macro wraps in
a `lambda' form. These should use `def-body' instead.
* lisp/info-xref.el (info-xref-with-file):
* lisp/subr.el (subr--with-wrapper-hook-no-warnings, track-mouse)
(combine-change-calls, with-eval-after-load):
* lisp/emacs-lisp/bytecomp.el (displaying-byte-compile-warnings):
* lisp/emacs-lisp/cl-macs.el (cl-do-symbols, cl-progv):
* lisp/emacs-lisp/ert-x.el (ert-with-test-buffer):
* lisp/emacs-lisp/gv.el (gv-letplace):
* lisp/emacs-lisp/nadvice.el (define-advice):
* lisp/emacs-lisp/thunk.el (thunk-delay):
* lisp/vc/vc-dispatcher.el (vc-run-delayed): Use 'def-body' instead of
t or 'body' where applicable.
* lisp/emacs-lisp/package.el (package--with-response-buffer): Remove
evaluation of the body altogether. I have no idea how to write it
correctly in this case.
Diffstat (limited to 'lisp/info-xref.el')
| -rw-r--r-- | lisp/info-xref.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/info-xref.el b/lisp/info-xref.el index be1928d692b..538a017f3c0 100644 --- a/lisp/info-xref.el +++ b/lisp/info-xref.el @@ -95,7 +95,7 @@ about local variables or possible weirdness in a major mode. `lm-with-file' does a similar thing, but it sets `emacs-lisp-mode' which is not wanted here." - (declare (debug t) (indent 1)) + (declare (debug (form def-body)) (indent 1)) `(let* ((info-xref-with-file--filename ,filename) (info-xref-with-file--body (lambda () ,@body)) (info-xref-with-file--existing |