[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Anyone have a 'move-line' function?
From: |
Joe Smith |
Subject: |
Re: Anyone have a 'move-line' function? |
Date: |
Thu, 04 May 2006 11:29:32 -0400 |
User-agent: |
Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.8.0.2) Gecko/20060405 SeaMonkey/1.0.1 |
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)
RE: Anyone have a 'move-line' function?, Bourgneuf Francois, 2006/05/04