summary refs log tree commit diff stats
path: root/emacs/elisp/shuffle-lines.el
blob: be0a98f9abdc4ab00b593a6639b644ba829374ad (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
;;;###autoload
(defun move-line-down ()
    (interactive)
    (let ((col (current-column)))
        (save-excursion
            (forward-line)
            (transpose-lines 1))
        (forward-line)
        (move-to-column col)))

;;;###autoload
(defun move-line-up ()
    (interactive)
    (let ((col (current-column)))
        (save-excursion
            (forward-line)
            (transpose-lines -1))
        (move-to-column col)))

(provide 'shuffle-lines)