如何编写定义键盘快捷键的Emacs Lisp函数？解决变量未定义错误

错误原因 #

你编写的lambda用单引号'包裹，属于引用式定义，里面的end-message只是一个符号，不会绑定到函数参数end-message的实际传入值。当触发快捷键时，Emacs会尝试查找这个符号的全局绑定值，但该符号从未被定义，因此抛出错误Symbol’s value as variable is void: end-message。

修复方案 #

最直接的解决方式是开启词法绑定，让lambda成为闭包，在定义时捕获参数的实际值，而非引用符号。

修改后的代码如下：

;; 在文件开头添加这一行，开启词法绑定
;;; lexical-binding: t

(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!")

原理说明 #

Emacs Lisp默认使用动态绑定，开启lexical-binding: t后，函数内部的lambda会在定义时捕获当前作用域的变量值（这里就是end-message传入的字符串"Hello!"），当快捷键触发lambda时，就能直接使用捕获到的值，而不会再去查找未定义的符号。

备选方案（无需全局词法绑定） #

如果不想在整个文件开启词法绑定，可以使用cl-lib库的lexical-let来创建局部闭包：

(require 'cl-lib)

(defun my/shortcut-definer (keypress end-message)
  (interactive)
  (global-set-key
   (kbd keypress)
   (cl-lexical-let ((msg end-message))
     (lambda () (interactive) (message msg)))))

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

内容的提问来源于stack exchange，提问作者randouser