diff options
| author | Stephen Berman | 2025-09-30 11:05:22 +0200 |
|---|---|---|
| committer | Stephen Berman | 2025-09-30 11:05:22 +0200 |
| commit | ca704a67dc7d0601d15fe96b76c9e59f4f87b7fb (patch) | |
| tree | 559ae1982cc8f2ade2c9ebeb92be116565a12291 | |
| parent | 40a22ced14708cc3bab8ebc971c5b6e51fc6544e (diff) | |
| download | emacs-ca704a67dc7d0601d15fe96b76c9e59f4f87b7fb.tar.gz emacs-ca704a67dc7d0601d15fe96b76c9e59f4f87b7fb.zip | |
Fix debug specs in minibuffer-tests.el macros (bug#79499)
* test/lisp/minibuffer-tests.el (with-minibuffer-setup)
(completing-read-with-minibuffer-setup): Prevent instrumenting
functions that call these macros from erroring due to an invalid
debug specification in the 'declare' form. Use 't' as the debug
spec since it is the most general and adequate here.
| -rw-r--r-- | test/lisp/minibuffer-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/minibuffer-tests.el b/test/lisp/minibuffer-tests.el index 27e9bbbefb4..03e8ea24018 100644 --- a/test/lisp/minibuffer-tests.el +++ b/test/lisp/minibuffer-tests.el | |||
| @@ -449,7 +449,7 @@ | |||
| 449 | 449 | ||
| 450 | 450 | ||
| 451 | (defmacro with-minibuffer-setup (completing-read &rest body) | 451 | (defmacro with-minibuffer-setup (completing-read &rest body) |
| 452 | (declare (indent 1) (debug (collection body))) | 452 | (declare (indent 1) (debug t)) |
| 453 | `(catch 'result | 453 | `(catch 'result |
| 454 | (minibuffer-with-setup-hook | 454 | (minibuffer-with-setup-hook |
| 455 | (lambda () | 455 | (lambda () |
| @@ -460,7 +460,7 @@ | |||
| 460 | ,completing-read)))) | 460 | ,completing-read)))) |
| 461 | 461 | ||
| 462 | (defmacro completing-read-with-minibuffer-setup (collection &rest body) | 462 | (defmacro completing-read-with-minibuffer-setup (collection &rest body) |
| 463 | (declare (indent 1) (debug (collection body))) | 463 | (declare (indent 1) (debug t)) |
| 464 | `(catch 'result | 464 | `(catch 'result |
| 465 | (minibuffer-with-setup-hook | 465 | (minibuffer-with-setup-hook |
| 466 | (lambda () | 466 | (lambda () |