如何編寫定義鍵盤快捷鍵的 function

Question

我正在嘗試編寫一個 function 以編程方式設置快捷方式，如下面的 MRE 所示：

(defun my/shortcut-definer (keypress end-message)
  (interactive)
  (global-set-key
   (kbd keypress)
   '(lambda () (interactive) (message end-message))))

  (my/shortcut-definer "C-x x x" "Hello!")

我非常接近，但是當我輸入所選的鍵盤快捷鍵時，出現錯誤：

Symbol's value as variable is void: end-message

我認為問題是在定義快捷方式時我希望它評估end-message但它包含了符號。 如何讓它評估 lambda 中的end-message ？ （假設這是錯誤）。

Answer 1

查看此鏈接，我找到了解決此問題的方法，如下所示：

(defun my/shortcut-definer (keypress end-message)
  (interactive)
  (global-set-key
   (kbd keypress)
   `(lambda () (interactive) (message ,end-message))))