all repos — dotfiles @ f3542e5059d9f86e813997d97eed03c47d4ff3d4

Superseded by nixfiles

emacs/elisp/shuffle-lines.el (view raw)

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)