gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added `rebase-mode-abort'.

Browse source
This commit is contained in:
Phil Jackson 2010-05-31 16:44:27 +01:00
parent 1aecf75104
commit a45558e61e
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
rebase-mode.el
View file

@ -58,6 +58,13 @@
(transpose-lines 1) (transpose-lines 1)
(previous-line 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 () (defun rebase-mode-kill-line ()
(interactive) (interactive)
(let* ((buffer-read-only nil) (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-p") 'rebase-mode-move-line-up)
(define-key map (kbd "M-n") 'rebase-mode-move-line-down) (define-key map (kbd "M-n") 'rebase-mode-move-line-down)
(define-key map (kbd "k") 'rebase-mode-kill-line) (define-key map (kbd "k") 'rebase-mode-kill-line)
(define-key map (kbd "a") 'rebase-mode-abort)
(dolist (key-fun '(("p" . "pick") (dolist (key-fun '(("p" . "pick")
("r" . "reword") ("r" . "reword")
("e" . "edit") ("e" . "edit")