tag-emacs/emacs.d/elisp/shuffle-lines.el


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)