將關鍵字綁定到emacs中的負面參數+命令

Question

我試圖綁定到M-b前面帶負面參數的命令。我發佈我的代碼。

工作

(global-unset-key (kbd "M-f"))               
(global-set-key (kbd "M-f") 'forward-whitespace)          

不工作

(global-unset-key (kbd "M-b"))               
(global-set-key (kbd "M-b") (lambda() (interactive) (negative-argument(forward-whitespace))))  

我怎樣才能使它的工作？

Answer 1

你有具體的問題很容易解決：

(global-set-key (kbd "M-b") (lambda() (interactive) (forward-whitespace -1))) 

你可能不知道，如果你能寫會交互調用任意命令負的參數的宏。

這是不是真的很難：

(defmacro call-with-negative-argument (command) 
    `(lambda() 
    (interactive) 
    (prefix-command-preserve-state) 
    (setq prefix-arg '-) 
    (universal-argument--mode) 
    (call-interactively ,command))) 
(global-set-key (kbd "...") (call-with-negative-argument forward-whitespace)) 

但是，說真的，任何兼容功能也將正常工作是這樣的：

(defmacro call-with-negative-argument (command) 
    `(lambda() 
    (interactive) 
    (,command -1)))