[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
line-move-down-up
From: |
A Soare |
Subject: |
line-move-down-up |
Date: |
Mon, 18 Apr 2011 13:26:21 +0000 (UTC) |
User-agent: |
Loom/3.14 (http://gmane.org/) |
(defun line-move-down (n)
(let ((column (current-column))
(line (delete-and-extract-region
(prog2 (beginning-of-line) (point))
(prog2 (end-of-line) (1+ (point)) ))))
(next-line n)
(beginning-of-line)
(insert-string line)
(backward-char)
(move-to-column column)
'down
))
(define-key global-map [(meta up)] (lambda (&optional n) (interactive "P")
(line-move-down (if (numberp n) (- n) -1))))
(define-key global-map [(meta down)] (lambda (&optional n) (interactive "P")
(line-move-down (if (numberp n) n 1))))
- line-move-down-up,
A Soare <=
line-move-down-up, Stephen J. Turnbull, 2011/04/18