From a45558e61ea9d7cfca6999d13f4bff9055b2d0ed Mon Sep 17 00:00:00 2001
From: Phil Jackson <phil@shellarchive.co.uk>
Date: Mon, 31 May 2010 16:44:27 +0100
Subject: [PATCH] Added `rebase-mode-abort'.

---
 rebase-mode.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/rebase-mode.el b/rebase-mode.el
index 4d8fe677..a3ea7504 100644
--- a/rebase-mode.el
+++ b/rebase-mode.el
@@ -58,6 +58,13 @@
       (transpose-lines 1)
       (previous-line 1))))
 
+(defun rebase-mode-abort ()
+  (interactive)
+  (let ((buffer-read-only nil))
+    (delete-region (point-min) (point-max))
+    (save-buffer)
+    (server-edit)))
+
 (defun rebase-mode-kill-line ()
   (interactive)
   (let* ((buffer-read-only nil)
@@ -75,6 +82,7 @@
     (define-key map (kbd "M-p") 'rebase-mode-move-line-up)
     (define-key map (kbd "M-n") 'rebase-mode-move-line-down)
     (define-key map (kbd "k") 'rebase-mode-kill-line)
+    (define-key map (kbd "a") 'rebase-mode-abort)
     (dolist (key-fun '(("p" . "pick")
                        ("r" . "reword")
                        ("e" . "edit")