Emacs:写下添加用户指定的键绑定的elisp代码的函数

如何创建一个交互式功能,以交互方式读取用户的密钥(例如,当您按Ch k时),然后写一些这样的行:

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

其中"Cx Cs"部分用读取键适当替换.

一些初级用户在制作键绑定时遇到问题,事实上我也对此感到困惑,所以我想让我们自动化它.

这似乎有效:

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