equal
deleted
inserted
replaced
21 (defun move-line-down (n) |
21 (defun move-line-down (n) |
22 "Move the current line down by N lines." |
22 "Move the current line down by N lines." |
23 (interactive "p") |
23 (interactive "p") |
24 (move-line (if (null n) 1 n))) |
24 (move-line (if (null n) 1 n))) |
25 |
25 |
26 (global-set-key (kbd "M-p") 'move-line-up) |
|
27 (global-set-key (kbd "M-n") 'move-line-down) |
|
28 |
|
29 (message "Loading move-line...done") |
26 (message "Loading move-line...done") |
30 (provide 'move-line) |
27 (provide 'move-line) |