Add debug declare to most defmacro

5 files changed, 6 insertions, 5 deletions

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 703d774..744e89f 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -287,7 +287,7 @@ call function WASHER with no argument."
 ;;; Files
 
 (defmacro magit--with-safe-default-directory (file &rest body)
-  (declare (indent 1))
+  (declare (indent 1) (debug (form body)))
   `(catch 'unsafe-default-dir
      (let ((default-directory
              (let ((file ,file))
@@ -323,7 +323,7 @@ GIT_DIR and its absolute path is returned."
             (file-name-directory (directory-file-name gitdir))))))))
 
 (defmacro magit-with-toplevel (&rest body)
-  (declare (indent defun))
+  (declare (indent defun) (debug (body)))
   (let ((toplevel (cl-gensym "toplevel")))
     `(let ((,toplevel (magit-toplevel)))
        (if ,toplevel
diff --git a/lisp/magit-popup.el b/lisp/magit-popup.el
index bc20447..f1f7af1 100644
--- a/lisp/magit-popup.el
+++ b/lisp/magit-popup.el
@@ -342,7 +342,7 @@ or `:only' which doesn't change the behaviour."
                     (magit-popup-get :options))))
 
 (defmacro magit-popup-convert-events (def form)
-  (declare (indent 1))
+  (declare (indent 1) (debug (form form)))
   `(--map (if (or (null it) (stringp it)) it ,form) ,def))
 
 (defun magit-popup-convert-switches (val def)
diff --git a/lisp/magit-process.el b/lisp/magit-process.el
index 7cdf82b..58659bd 100644
--- a/lisp/magit-process.el
+++ b/lisp/magit-process.el
@@ -560,7 +560,7 @@ tracked in the current repository are reverted if
       (write-region (point-min) (point-max) file))))
 
 (defmacro magit-process-kill-on-abort (proc &rest body)
-  (declare (indent 1))
+  (declare (indent 1) (debug (form body)))
   (let ((map (cl-gensym)))
     `(let ((,map (make-sparse-keymap)))
        (set-keymap-parent ,map minibuffer-local-map)
diff --git a/lisp/magit-stash.el b/lisp/magit-stash.el
index 862f335..5b1ecbb 100644
--- a/lisp/magit-stash.el
+++ b/lisp/magit-stash.el
@@ -381,6 +381,7 @@ The following `format'-like specs are supported:
                (magit-rev-format "%s" stash) "\n")))))
 
 (defmacro magit-stash-insert-section (subtype format &optional files)
+  (declare (debug (sexp form &optional form)))
   `(let ((stash (car magit-refresh-args)))
      (magit-insert-section (,(intern (format "stashed-%s" subtype)))
        (magit-insert-heading (format "%s %s:" (capitalize stash) ',subtype))
diff --git a/lisp/with-editor.el b/lisp/with-editor.el
index f603303..320ca9a 100644
--- a/lisp/with-editor.el
+++ b/lisp/with-editor.el
@@ -356,7 +356,7 @@ Modify the `process-environment' for processes started in BODY,
 instructing them to use the Emacsclient as $EDITOR.  If optional
 ENVVAR is provided then bind that environment variable instead.
 \n(fn [ENVVAR] BODY...)"
-  (declare (indent defun))
+  (declare (indent defun) (debug (body)))
   `(let ((with-editor--envvar ,(if (stringp (car body))
                                    (pop body)
                                  '(or with-editor--envvar "EDITOR")))