Re: Keybinding to transpose current line with next line

[Emanuel Berg]

> (defun move-line (&optional lines)
>   (interactive "*p")
>   (let ((lin (line-number-at-pos))
>         (col (current-column))
>         (num-lines (or lines 1)) )
>     (beginning-of-line)
>     (let ((line (thing-at-point 'line)))
>       (delete-region (point-at-bol) (point-at-eol))
>       (delete-char 1)
>       (goto-char (point-min))
>       (forward-line (+ lin num-lines -1))
>       (insert line)
>       (forward-line -1)
>       (beginning-of-line)
>       (forward-char col) )))
> (defalias 'ml #'move-line)

But I still think just killing the line manually,
move point, and yank it, is preferable...

KISS (keep it simple software)

-- 
underground experts united
http://user.it.uu.se/~embe8573
https://dataswamp.org/~incal