stgit.el: Add stgit-unmark-down

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 4d957c38f602203d9c33cd2a8482edf82ed59b24..9e92ad7d9bcab49decf24d1f91579575b185f015 100644 (file)
--- a/contrib/stgit.el
+++ b/contrib/stgit.el
@@ -161,7 +161,8 @@ (unless stgit-mode-map
   (mapc (lambda (arg) (define-key stgit-mode-map (car arg) (cdr arg)))
         '((" " .        stgit-mark)
           ("m" .        stgit-mark)
   (mapc (lambda (arg) (define-key stgit-mode-map (car arg) (cdr arg)))
         '((" " .        stgit-mark)
           ("m" .        stgit-mark)

-          ("\d" .       stgit-unmark)
+          ("\d" .       stgit-unmark-up)
+          ("u" .        stgit-unmark-down)

           ("?" .        stgit-help)
           ("h" .        stgit-help)
           ("p" .        previous-line)
           ("?" .        stgit-help)
           ("h" .        stgit-help)
           ("p" .        previous-line)


@@ -257,13 +258,19 @@ (defun stgit-mark ()
     (stgit-reload))
   (next-line))
 
     (stgit-reload))
   (next-line))
 

-(defun stgit-unmark ()
-  "Mark the patch on the previous line"
+(defun stgit-unmark-up ()
+  "Remove mark from the patch on the previous line"

   (interactive)
   (forward-line -1)
   (interactive)
   (forward-line -1)

-  (let ((patch (stgit-patch-at-point)))
-    (stgit-remove-mark patch)
-    (stgit-reload)))
+  (stgit-remove-mark (stgit-patch-at-point))
+  (stgit-reload))
+
+(defun stgit-unmark-down ()
+  "Remove mark from the patch on the current line"
+  (interactive)
+  (stgit-remove-mark (stgit-patch-at-point))
+  (forward-line)
+  (stgit-reload))

 
 (defun stgit-rename (name)
   "Rename the patch under point"
 
 (defun stgit-rename (name)
   "Rename the patch under point"