Re: Anyone have a 'move-line' function?

[Joe Smith]

Mathias Dahl wrote:
> The following is quite ugly but seems to work. ...

liyer.vijay@gmail.com wrote:
> Here's a solution that doesn't add to the kill-ring ...

Very nice. Thanks guys.

I like the idea of using current-column (new to me anyway) and not
adding to the kill-ring.

Here's what I came up with--after studying your suggestions and
adapting what I had; Vijay's is simpler but it goes a little weird at
the file edges: moving the last line down adds empty lines; moving the
first line up gives an error and leaves point on line 2.

Thanks again. Comments/corrections welcome.

(defun move-line (n)
  "Move the current line up or down by N lines."
  (interactive "p")
  (setq col (current-column))
  (beginning-of-line) (setq start (point))
  (end-of-line) (forward-char) (setq end (point))
  (let ((line-text (delete-and-extract-region start end)))
    (forward-line n)
    (insert line-text)
    ;; restore point to original column in moved line
    (forward-line -1)
    (forward-char col)))

(defun move-line-up (n)
  "Move the current line up by N lines."
  (interactive "p")
  (move-line (if (null n) -1 (- n))))

(defun move-line-down (n)
  "Move the current line down by N lines."
  (interactive "p")
  (move-line (if (null n) 1 n)))

(global-set-key (kbd "M-<up>") 'move-line-up)
(global-set-key (kbd "M-<down>") 'move-line-down)