Emacs:写下 elisp 代码的函数，该代码添加了用户指定的键绑定(bind)

Question

我怎样才能创建一个交互函数，以交互方式从用户那里读取一个键(比如当你按下 C-h k 时)，然后像这样写一些行:

(global-set-key (kbd "C-x C-s") 'hello)

其中“C-x C-s”部分被适本地替换为读取的 key 。

Some beginning users have problem making keybindings事实上，我也对此感到困惑，所以我想让我们将其自动化。

Answer 1

这似乎可行:

(defun insert-key (key)
  (interactive (list (read-key-sequence "Key: ")))
  (insert "(global-set-key (kbd \"" (key-description key) "\") 'hello)\n"))