В моих .emacs у меня есть следующая функция, которая переносит строку
(defun move-line (n)
"Move the current line up or down by N lines."
(interactive "p")
(let ((col (current-column))
start
end)
(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))))
И я привязываю к нему ключ вроде этого
(global-set-key (kbd "M-<down>") 'move-line)
;; this is the same as M-x global-set-key <return>
Однако я хочу привязать M-up к move-line (-1). Но я не могу сделать это правильно:
;; M-- M-1 M-x global-set-key <return>
Как определить выше, используя глобальный набор-ключ, для вызова строки перемещения -1?