Elmo: substituir Ch

Eu segui essa resposta e criei meu modo secundário para evitar que minhas combinações de teclas sejam substituídas por quaisquer modos principais.

Então eu coloquei isso no meu init.el:

(define-key my-keys-mode-map (kbd "C-h") 'delete-backward-char)
(define-key my-keys-mode-map (kbd "M-h") 'backward-kill-word)

Está trabalhando com tudo, exceto quando estou helm-find-files. Enquanto M-htrabalha, C-hnão. Se eu pressionar duas vezes, o Helpbuffer aparece dizendo:

^L
Major Mode Bindings Starting With C-h:
key             binding
---             -------

C-h C-b     helm-send-bug-report-from-helm

^L
Global Bindings Starting With C-h:
key             binding
---             -------

Como posso desativar C-hem helm-find-filese continuar usando o meu próprio atalho de teclado?

C-hé especial: veja minha resposta ao modo html e à vinculação de teclas de retrocesso personalizado .

Em resumo: sempre que você religar, C-hvocê também deve alterar o valor de help-char.

Para desativar sua ação, faça

(setq help-char nil)

(Você também pode configurá-lo para um caractere diferente.)

Além disso, helm-find-filesusa C-hcomo uma chave de prefixo. O código abaixo substitui o C-hprefixo por M-m, que deve liberar C-hpara ser usado como "backspace":

(eval-after-load "helm-files"
  '(let ((helm-find-files-C-h-map (lookup-key helm-find-files-map (kbd "C-h"))))
     ;; make sure C-h is no longer a prefix key
     (define-key helm-find-files-map (kbd "C-h") nil)
     ;; rebind "C-h ..." to "M-m ..." to preserve functionality
     (define-key helm-find-files-map (kbd "M-m") helm-find-files-C-h-map)))