branch: externals/listen
commit e2f8443b18d5fa21160ccd32385ffbbde440915f
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>

    Fix: (listen-queue-with-buffer) Debug instrumentation
---
 listen-queue.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/listen-queue.el b/listen-queue.el
index 0695d9dc50..b2c5b18e64 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -82,7 +82,7 @@ intended to be set from the `listen-menu'."
 
 (defmacro listen-queue-with-buffer (queue &rest body)
   "Eval BODY in QUEUE's buffer, if it has a live one."
-  (declare (indent defun))
+  (declare (indent defun) (debug (sexp body)))
   (let ((buffer-var (gensym)))
     `(when-let ((,buffer-var (listen-queue-buffer ,queue)))
        (when (buffer-live-p ,buffer-var)

Reply via email to