stgit.el: Add 'q' for stgit-quit

Signed-off-by: Gustav Hållberg <gustav@virtutech.com>
Signed-off-by: Karl Hasselström <kha@treskal.com>

diff --git a/contrib/stgit.el b/contrib/stgit.el
index 9cf909fb23d037a9b0357440461bdc6155bd58f0..4e248702dfb3fa44d7f9fecb8ab7e4a2527eb5a6 100644 (file)
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -144,6 +144,11 @@ (defun stgit-rescan ()
         (forward-line 1))
       (setq stgit-marked-patches (nreverse marked)))))
 
         (forward-line 1))
       (setq stgit-marked-patches (nreverse marked)))))
 

+(defun stgit-quit ()
+  "Hide the stgit buffer"
+  (interactive)
+  (bury-buffer))
+

 (defvar stgit-mode-hook nil
   "Run after `stgit-mode' is setup.")
 
 (defvar stgit-mode-hook nil
   "Run after `stgit-mode' is setup.")
 


@@ -176,7 +181,8 @@ (unless stgit-mode-map
           ("=" .        stgit-show)
           ("D" .        stgit-delete)
           ([(control ?/)] . stgit-undo)
           ("=" .        stgit-show)
           ("D" .        stgit-delete)
           ([(control ?/)] . stgit-undo)

-          ("\C-_" .     stgit-undo))))
+          ("\C-_" .     stgit-undo)
+          ("q" . stgit-quit))))

 
 (defun stgit-mode ()
   "Major mode for interacting with StGit.
 
 (defun stgit-mode ()
   "Major mode for interacting with StGit.