From c8daa71db73e6f9bfbf9b7d23477d8e885fe8d64 Mon Sep 17 00:00:00 2001
From: Lockywolf <lockywolf@gmail.com>
Date: Wed, 28 Aug 2019 11:12:35 +0800
Subject: Add a (declare (debug)) form to all geiser-%s--with-buffer macros.
---
elisp/geiser-popup.el | 1 +
1 file changed, 1 insertion(+)
diff --git a/elisp/geiser-popup.el b/elisp/geiser-popup.el
index 200c4ef..c4950df 100644
--- a/elisp/geiser-popup.el
+++ b/elisp/geiser-popup.el
@@ -52,6 +52,7 @@
((eq ,method 'frame) (view-buffer-other-frame ,buffer))
(t (view-buffer-other-window ,buffer))))))
(defmacro ,with-macro (&rest body)
+ (declare (debug (&rest form)))
(list 'with-current-buffer (list ',get-buff)
(cons 'let (cons '((inhibit-read-only t)) body))))
(put ',with-macro 'lisp-indent-function 'defun))))
--
cgit v1.2.3