暂时覆盖（全局覆盖emacs中的键绑定）

Question

我使用这里说明的方法： global-override-key-binding-in-emacs

(defvar my-keys-minor-mode-map
  (let ((map (make-sparse-keymap)))
    (define-key map (kbd "C-i") 'some-function)
    map)
  "my-keys-minor-mode keymap.")

(define-minor-mode my-keys-minor-mode
  "A minor mode so that my key settings override annoying major modes."
  ;; Define-minor-mode will use `my-keys-minor-mode-map' for us.
  :init-value t
  :lighter " my-keys")

(defun my-keys-keep-on-top (&rest _)
  "Try to ensure that my keybindings always have priority."
  (unless (eq (caar minor-mode-map-alist) 'my-keys-minor-mode)
    (let ((mykeys (assq 'my-keys-minor-mode minor-mode-map-alist)))
      (assq-delete-all 'my-keys-minor-mode minor-mode-map-alist)
      (add-to-list 'minor-mode-map-alist mykeys))))
(add-hook 'after-load-functions #'my-keys-keep-on-top)

(my-keys-minor-mode 1)

我如何明确地覆盖它？ 链接中的方法对我不起作用。

编辑2：

问题不仅适用于只读模式。 eval-after-load并不是一个好方法，因为它会长期更改my-minor-mode-keymap 。

我在这里再举一个例子：

我大部分时间都使用程序模式。 假设我想让Cq绑定到程序模式下的语法检查。 但是，有时我会在文本模式下记笔记。 在文本模式下进行语法检查没有任何意义。 因此，我决定将Cq绑定到拼写检查。

通常情况下，我会这样做

(global-set-key (kbd "C-q") 'syntax-check)
(define-key text-mode-map (kbd "C-q") 'spell-check)

如果定义my-keys-minor-mode-map，如何产生这种效果？ 假设我将其放在键盘映射中：

(define-key 'my-keys-minor-mode-map (kbd "C-q") 'syntax-check)

(define-key text-mode-map (kbd "Cq") 'spell-check)不起作用，因为我的键映射始终优先于其他次要模式映射。

都没有

(eval-after-load "text-mode"
  (define-key my-keys-minor-mode-map (kbd "C-q") 'spell-check))

也不

(add-hook 'text-mode-map (lambda () 
  (define-key my-keys-minor-mode-map (kbd "C-q") 'spell-check)))

做得很好，因为它们会长期更改my-keys-minor-mode-map。 这意味着当我从文本模式切换回程序模式时，我失去了语法检查功能。

编辑：

例如，

(define-key my-keys-minor-mode-map (kbd "<return>") 'newline-and-indent)

这可以在99％的时间内工作，并且可以防止其他次要模式或主要模式对此进行修改。

但是，键映射在只读模式下有问题。 因此，我需要具有“超级优先级”功能才能重新映射此键。 我想要类似的东西

(defun super-priority-map()
  (define-key super-my-keys-minor-mode-map (kbd "<return>") 'something-else))
(add-hook 'some-modes 'super-priority-map)

更重要的是，只要保留了指定的模式，超级优先级映射就应该起飞。

Answer 1

您在谈论只读功能吗？ 您不能使用键盘映射覆盖它。 没有捕获所有击键和发出错误的“只读”键图。

要覆盖read-only-mode ，只需关闭read-only-mode ！

在代码中，设置buffer-read-only变量。

您还可以在代码中绑定inhibit-read-only变量，以忽略所有只读机制（包括文本特定区域的属性-请参阅下面列表中的7和3级）。

---

只读一边， 完全可以为其他的键盘布局有优先于未成年人模式地图，但我倾向于说，与您的辅助模式的键盘映射任何罕见的冲突，你应该直接修改它与冲突的键盘映射你的拥有。

实际上，您的次要模式键盘映射可以被许多其他模式所取代，但是您通常可能不想在更高的优先级上工作。

我建议阅读Emacs中的Mastering Key Bindings（掌握密钥绑定），这是关于这些东西如何工作的非常易读的解释，并且从中摘录了以下keymap优先级列表：

1. 特定于终端的键绑定的overriding-terminal-local-map 。
2. 应该覆盖所有其他本地键overriding-local-map的键的overriding-local-map 。 如果使用此工具，请务必小心！
3. 字符点本地的Keymap at点的Keymap char属性位于。 这用于诸如yasnippet和自定义对话框中的字段之类的东西。
4. emulation-mode-map-alists用于高级多模式键映射管理
5. minor-mode-overriding-map-alist用于覆盖主要模式中次要模式使用的键映射。
6. minor-mode-map-alist与上面的重写版本完全相同，但是为次要模式指定键映射的首选方法。
7. Keymap文本属性类似于上述char属性，但仅适用于文本属性。
8. 在缓冲区的当前本地映射中定义的current-local-map map
9. current-global-map是Emacs将寻找密钥绑定的最后一个位置，它是针对全局绑定的。

请注意，您的次要模式在第6级工作，高于该级别的所有操作都可以优先。

解除冲突绑定的典型模式是：

(eval-after-load "NAME-OF-LIBRARY"
  '(define-key NAME-OF-KEYMAP (kbd "KEY") nil)) ;; unbind KEY in KEYMAP implemented by LIBRARY

最有可能的是，您还将为原始命令添加替换（非冲突）绑定。

Answer 2

在emacs中缓存局部覆盖的次要模式键绑定

结合一切

(defvar my-keys-minor-mode-map (make-keymap) "my-keys-minor-mode keymap.")

(define-minor-mode my-keys-minor-mode
  "A minor mode so that my key settings override annoying major modes."
  t " my-keys" 'my-keys-minor-mode-map)

(defadvice load (after give-my-keybindings-priority)
  "Try to ensure that my keybindings always have priority."
  (unless (eq (caar minor-mode-map-alist) 'my-keys-minor-mode)
    (let ((mykeys (assq 'my-keys-minor-mode minor-mode-map-alist)))
      (assq-delete-all 'my-keys-minor-mode minor-mode-map-alist)
          (add-to-list 'minor-mode-map-alist mykeys))))
    (ad-activate 'load)

(defun my-keys-minor-mode-override (key def)
  "Overrides a minor mode keybinding for the local
   buffer, by creating or altering keymaps stored in buffer-local
   `minor-mode-overriding-map-alist'."
    (let* ((oldmap (cdr (assoc 'my-keys-minor-mode minor-mode-map-alist)))
           (newmap (or (cdr (assoc 'my-keys-minor-mode minor-mode-overriding-map-alist))
                     (let ((map (make-sparse-keymap)))
                       (set-keymap-parent map oldmap)
                       (push `(my-keys-minor-mode . ,map) minor-mode-overriding-map-alist) 
                       map))))
  ;; (make-local-variable 'minor-mode-overriding-map-alist)
  (define-key newmap key def)))

(my-keys-minor-mode 1)

这可以做的是：

(define-key my-keys-minor-mode-map (kbd "C-i") 'backward-char)

定义比其他次要模式更高的优先级键绑定。

(add-hook 'text-mode-hook (lambda ()
    (my-keys-minor-mode-override (kbd "C-i") 'forward-char)))

暂时覆盖高优先级键绑定。

甜