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

Keep column position when moving lines.

Browse source
This commit is contained in:
Phil Jackson 2010-05-31 17:17:53 +01:00
parent 98b845afa1
commit 4ad4e945c3
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
rebase-mode.el
View file

@ -99,12 +99,18 @@ that of CHANGE-TO."
(setq buffer-read-only t) (setq buffer-read-only t)
(use-local-map rebase-mode-map)) (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 () (defun rebase-mode-move-line-up ()
"Move the current action line up." "Move the current action line up."
(interactive) (interactive)
(when (rebase-mode-looking-at-action) (when (rebase-mode-looking-at-action)
(let ((buffer-read-only nil)) (let ((buffer-read-only nil))
(transpose-lines 1) (rebase-mode-transpose-lines 1)
(previous-line 2)))) (previous-line 2))))
(defun rebase-mode-move-line-down () (defun rebase-mode-move-line-down ()
@ -118,7 +124,7 @@ current line down."
(rebase-mode-looking-at-action))) (rebase-mode-looking-at-action)))
(let ((buffer-read-only nil)) (let ((buffer-read-only nil))
(next-line 1) (next-line 1)
(transpose-lines 1) (rebase-mode-transpose-lines 1)
(previous-line 1)))) (previous-line 1))))
(defun rebase-mode-abort () (defun rebase-mode-abort ()