的elisp：與拉姆達defmacro

Question

對不起，我試過幾次，我不能建立簡單的defmacro - 任何人可以幫助我與：

所以，我想定義的宏將擴展爲：

(define-key keymap "*" (lambda() 
          (interactive) 
          (some-func "*"))) 

我想是這樣的：

(defmacro wrap-and-define-key (keymap key func) 
    `(define-key ,keymap ,key (lambda() (interactive) (,func ,key)))) 

而且它的工作原理：

(wrap-and-define-key keymap key func) 

但不與

(wrap-and-define-key keymap key 'func) 

工作如何改變defmacro語句，以最後一種形式的工作？謝謝！

Answer 1

你並不需要爲這個宏。

(defun wrap-and-define-key (keymap key func) 
    (define-key keymap key (lambda() (interactive) (funcall func key)))) 

（不要引用拉姆達形式，避免eval）

不知道爲什麼你要這樣，但無論如何，這應該做你問什麼。

Answer 2

好了，找到工作，但不知道 - 那就是優雅的解決方案：

(defmacro wrap-and-define-key (keymap key func) 
    `(define-key ,keymap ,key '(lambda() (interactive) (eval (list ,func ,key))))) 

Answer 3

您的宏不適用於第二個示例的原因是'func作爲帶引號的參數進行傳遞，因爲對宏的參數不會自動計算。因此，宏中的lambda擴展爲：

(lambda() (interactive) ('func key)) 

但是，當以這種方式調用函數名稱時，不能引用函數名稱。只有lambda或未加引號的符號可以作爲函數調用表達式中的第一項出現。如果將宏更改爲：

(defmacro wrap-and-define-key (keymap key func) 
    `(define-key ,keymap ,key (lambda() (interactive) (funcall ,func ,key)))) 

它會工作。當lambda被調用時，'func被評估爲普通的func符號並傳遞給funcall。 funcall然後在函數名稱空間中查找符號（Elisp是Lisp-2）並調用它。

正如另一個答案中所建議的，您可以使用函數來完成此操作。無論是否啓用詞彙模式，此功能都將起作用：

(defun wrap-and-define-key (keymap key func) 
    (define-key keymap key `(lambda() (interactive) (funcall ',func ,key))))