小编yrr*_*ral的帖子

在我的.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绑定到移动线(-1)但是我似乎无法正确地做到:

;; M-- M-1 M-x global-set-key <return>

如何使用global-set-key调用move-line -1来定义上述内容？