Ask the user when aborting a rebase.

This commit is contained in:
Phil Jackson 2010-05-31 16:51:06 +01:00
parent 0244b8b1b1
commit c0abcc096a

View file

@ -89,10 +89,11 @@ current line down."
(defun rebase-mode-abort () (defun rebase-mode-abort ()
"Abort this rebase." "Abort this rebase."
(interactive) (interactive)
(when (y-or-n-p "Abort this rebase? ")
(let ((buffer-read-only nil)) (let ((buffer-read-only nil))
(delete-region (point-min) (point-max)) (delete-region (point-min) (point-max))
(save-buffer) (save-buffer)
(server-edit))) (server-edit))))
(defun rebase-mode-kill-line () (defun rebase-mode-kill-line ()
"Kill the current action line." "Kill the current action line."