BS と C-h に別々の機能を割り当てるには?

Title
BS と C-h に別々の機能を割り当てるには?
Type
Tips
Section
キーマップ
| (global-set-key #\C-h 'replace-dialog) という設定を行うと、
| BS Key を押下した場合も、ダイアログが出てきます。

伝統的な仕様ですが、

  (setf (svref *kbd-translate-table* (char-code #\C-h)) #\F13)
  (global-set-key #\F13 'replace-dialog)

このようにすれば逃げられなくもないです。
Seealso
global-set-key