[Emacs] C-h を backspace として使用する方法

ググってもやり方がバラバラだったので私が現在使用している方法を書いておく。
M-h で単語を消しているが C-w で消したい人は M-h を C-w に変更するだけ。
ヘルプは C-? に退避させている。

(define-key key-translation-map (kbd "C-h") (kbd "<DEL>"))
(define-key key-translation-map (kbd "M-h") (kbd "<C-backspace>"))
(define-key key-translation-map (kbd "C-?") (kbd "C-h"))
(define-key key-translation-map (kbd "M-?") (kbd "M-h"))

GUI ではなく CLI で使用している人は control shift のキーが使用できないのでこちら

(define-key key-translation-map (kbd "C-h") (kbd "<DEL>"))
(define-key key-translation-map (kbd "M-h") (kbd "<C-backspace>"))
(define-key key-translation-map (kbd "DEL") (kbd "C-h"))
(define-key key-translation-map (kbd "M-DEL") (kbd "M-h"))

私はヘルプはバックスペースに退避させている。
バックスペースを潰してしまうのが気にくわない人は別のキーを見つけるべし。