From: David Kågedal <davidk@lysator.liu.se>
Date: Sun, 12 Jul 2009 17:05:33 +0000 (+0200)
Subject: stgit.el: Use declare to hint the debugger and indentation
X-Git-Tag: v0.15-rc2~23^2~1
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/stgit/commitdiff_plain/94baef5a2809907832aa39dc0a4896b3be08c836?ds=sidebyside;hp=-c

stgit.el: Use declare to hint the debugger and indentation

Signed-off-by: David Kågedal <davidk@lysator.liu.se>
Signed-off-by: Karl Hasselström <kha@treskal.com>
---

94baef5a2809907832aa39dc0a4896b3be08c836
diff --git a/contrib/stgit.el b/contrib/stgit.el
index ed6342c..3ebbffb 100644
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -68,6 +68,8 @@ (defmacro stgit-capture-output (name &rest body)
   "Capture StGit output and, if there was any output, show it in a window
 at the end.
 Returns nil if there was no output."
+  (declare (debug ([&or stringp null] body))
+           (indent 1))
   `(let ((output-buf (get-buffer-create ,(or name "*StGit output*")))
          (stgit-dir default-directory)
          (inhibit-read-only t))
@@ -82,7 +84,6 @@ (defmacro stgit-capture-output (name &rest body)
        (setq buffer-read-only t)
        (if (< (point-min) (point-max))
            (display-buffer output-buf t)))))
-(put 'stgit-capture-output 'lisp-indent-function 1)
 
 (defun stgit-make-run-args (args)
   "Return a copy of ARGS with its elements converted to strings."