emacs - 如何将一个 emacs 键盘映射中的所有键绑定到另一个键盘映射

Question

我希望两个键盘映射在 Emacs 中“大致”相同。特别是，我希望“超级”键的键盘映射默认执行“元”键的功能。

因此，我想编写一些将元键映射的内容复制到超级键映射的代码。类似于以下内容：

(defun copy-one-key (from-keymap to-keymap key-sequence)
   ;; don't bind keys already bound
   (unless (get-key-binding to-keymap key-sequence)
      (set-key-binding to-key-map key-sequence
         (get-key-binding from-keymap key-sequence)
         ) ; set
      ) ; when
   ) ; defun

(defun copy-keymap (from-keymap to-keymap)
   (mapcar from-keymap 
      (lambda key-sequence 
          (copy-one-key from-keymap to-keymap key-sequence)
          ) ; lambda
       ) ; mapcar
    ) ; defun

(copy-keymap meta-keymap super-keymap)

在相关问题中。我不知道是否真的有用于元键映射和超级键映射的命名键映射，如果我需要以某种方式将它们从全局键映射中解析出来以寻找“M-”并将其更改为“s-”。

我忘了补充一点，我实际上想为我复制的每个函数添加一个建议。