commands - emacs ubuntu

Buffer-localmente anulando enlaces de teclas de modo menor en Emacs

Question

Quiero usar un modo menor que vuelva a enlazar una tecla de modo principal que definitivamente quiero mantener. ¿Cómo puedo volver a vincular la clave sin eliminarla del mapa en modo menor globalmente? Sé que puedo usar define-key para eso, pero me gustaría mantener el enlace para otros buffers / modos principales.

¿Alguien puede ayudar?

Answer 1

Es un poco engorroso de hacer. Puedes hacer algo como:

(add-hook ''<major-mode>-hook
(lambda ()
(let ((oldmap (cdr (assoc ''<minor-mode> minor-mode-map-alist)))
(newmap (make-sparse-keymap)))
(set-keymap-parent newmap oldmap)
(define-key newmap [<thekeyIwanttohide>] nil)
(make-local-variable ''minor-mode-overriding-map-alist)
(push `(<minor-mode> . ,newmap) minor-mode-overriding-map-alist))))

Answer 2

Aquí hay una función para manejar todos los bits engorrosos.

(defun local-set-minor-mode-key (mode 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 mode minor-mode-map-alist)))
(newmap (or (cdr (assoc mode minor-mode-overriding-map-alist))
(let ((map (make-sparse-keymap)))
(set-keymap-parent map oldmap)
(push `(,mode . ,map) minor-mode-overriding-map-alist)
map))))
(define-key newmap key def)))

A partir de entonces, puedes hacer

(local-set-minor-mode-key ''<minor-mode> (kbd "key-to-hide") nil)

Answer 3

En mi caso, company-mode estaba anulando las vinculaciones cider-repl-mode para Mp y Mn cuando se mostraba el menú de finalización de la empresa. El company-active-map teclas para el menú de finalizaciones es company-active-map , pero no hay un modo menor correspondiente ( company-mode es para cuando el menú no está activo), por lo que no pude usar ninguna de las respuestas existentes.

Esto es lo que se me ocurrió en su lugar:

(add-hook ''cider-repl-mode-hook
(lambda ()
(make-local-variable ''company-active-map)
(setq company-active-map (copy-tree company-active-map))
(define-key company-active-map (kbd "M-p") nil)
(define-key company-active-map (kbd "M-n") nil)))