all repos — dotfiles @ 5b2b7b4b2edf7b882947017afca376c0b9e7a2f5

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)