Merge commit 'kha/safe'
authorCatalin Marinas <catalin.marinas@gmail.com>
Mon, 13 Jul 2009 16:58:02 +0000 (17:58 +0100)
committerCatalin Marinas <catalin.marinas@gmail.com>
Mon, 13 Jul 2009 16:58:02 +0000 (17:58 +0100)
.mailmap
AUTHORS
contrib/stgit.el

index cdb1beb..1a2b506 100644 (file)
--- a/.mailmap
+++ b/.mailmap
@@ -3,5 +3,5 @@
 
 Bryan Larsen <bryan.larsen@gmail.com>
 Bryan Larsen <bryanlarsen@yahoo.com>
-Karl Hasselström <kha@treskal.com>
+Karl Wiberg <kha@treskal.com>
 Paolo 'Blaisorblade' Giarrusso <blaisorblade@yahoo.it>
diff --git a/AUTHORS b/AUTHORS
index 6617806..34de9fd 100644 (file)
--- a/AUTHORS
+++ b/AUTHORS
@@ -1,4 +1,4 @@
 Catalin Marinas <catalin.marinas@gmail.com>
         http://www.procode.org/about.html
-Karl Hasselström <kha@treskal.com>
+Karl Wiberg <kha@treskal.com>
         http://www.treskal.com/kalle/
index ed6342c..3ebbffb 100644 (file)
@@ -68,6 +68,8 @@ Argument DIR is the repository path."
   "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 @@ Returns nil if there was no output."
        (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."