branch: elpa/with-simulated-input
commit 09d6f80ddcc54fa3ed83078d5e483747f69a6edd
Author: Nikita Bloshchanevich <[email protected]>
Commit: Nikita Bloshchanevich <[email protected]>
Add an `edebug' spec
`with-simulated-input' can now be debugged.
---
with-simulated-input.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/with-simulated-input.el b/with-simulated-input.el
index e72c727cde..5c3484c1cb 100644
--- a/with-simulated-input.el
+++ b/with-simulated-input.el
@@ -134,7 +134,10 @@ are propagated normally.
The return value is the last form in BODY, as if it was wrapped
in `progn'."
- (declare (indent 1))
+ (declare (indent 1) (debug ([&or ("quote" (&rest &or stringp def-form))
+ (&rest &or stringp def-form)
+ stringp]
+ def-body)))
(pcase keys
(`(quote ,x) (setq keys x))
((guard (not (listp keys))) (cl-callf list keys)))
