diff options
| author | Lockywolf <lockywolf@gmail.com> | 2019-08-28 11:12:35 +0800 |
|---|---|---|
| committer | Lockywolf <lockywolf@gmail.com> | 2019-09-03 15:06:02 +0800 |
| commit | 30e63ffd655f5fafb3e3bdb0aac99716ed097c5a (patch) | |
| tree | 8a656636d8ccbe9e338dcf6495bd3b5e4d77fd61 | |
| parent | 4ff2e2ac9da81cdc86415687f74ac9a1c94e859f (diff) | |
| download | geiser-guile-30e63ffd655f5fafb3e3bdb0aac99716ed097c5a.tar.gz geiser-guile-30e63ffd655f5fafb3e3bdb0aac99716ed097c5a.tar.bz2 | |
Add a (declare (debug)) form to all geiser-%s--with-buffer macros.
| -rw-r--r-- | elisp/geiser-popup.el | 1 |
1 files changed, 1 insertions, 0 deletions
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)))) |