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

Move column handling up a level in move functions.

Browse source
This commit is contained in:
Phil Jackson 2010-05-31 17:38:47 +01:00
parent 4ad4e945c3
commit ddc55ba6a0
1 changed files with 10 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
rebase-mode.el
View file

@ -99,19 +99,15 @@ that of CHANGE-TO."
(setq buffer-read-only t)
(use-local-map rebase-mode-map))
(defun rebase-mode-transpose-lines (arg)
"Wraps emacs `transpose-lines' but saves column position."
(let ((col (current-column)))
(transpose-lines arg)
(move-to-column col)))
(defun rebase-mode-move-line-up ()
"Move the current action line up."
(interactive)
(when (rebase-mode-looking-at-action)
(let ((buffer-read-only nil))
(rebase-mode-transpose-lines 1)
(previous-line 2))))
(let ((buffer-read-only nil)
(col (current-column)))
(transpose-lines 1)
(previous-line 2)
(move-to-column col))))
(defun rebase-mode-move-line-down ()
"Assuming the next line is also an action line, move the
@ -122,10 +118,12 @@ current line down."
(save-excursion
(forward-line)
(rebase-mode-looking-at-action)))
(let ((buffer-read-only nil))
(let ((buffer-read-only nil)
(col (current-column)))
(next-line 1)
(rebase-mode-transpose-lines 1)
(previous-line 1))))
(transpose-lines 1)
(previous-line 1)
(move-to-column col))))
(defun rebase-mode-abort ()
"Abort this rebase (by emptying the buffer, saving and closing