LateXモードで下線とマイナス記号の役割を変更する

auctex + emacs（LateXモード）でのtexファイルの作業中、-（マイナス記号）の代わりに_（下線）をより頻繁に使用します。6ではなく^と同じです。不便なのは、Shiftキーをより頻繁に押す必要があることです。

emacsがLateXモード（およびちょうどこのモード）にあるとき、私が入力するとき-emacsは_を入力し、_を入力すると_はemacsを入力するように、emacsをカスタマイズすることが望ましいでしょう。すなわち、次のキーバインディング：

-_を与える

_与える-

6を与える^

^ 6を与える

出来ますか？

このようなもの：

(add-hook 'LaTeX-mode-hook 'my-latex-hook)

(defun my-latex-hook ()
  (require 'tex-site)
  (define-key LaTeX-mode-map "-" (lambda () (interactive) (insert "_")))
  (define-key LaTeX-mode-map "_" (lambda () (interactive) (insert "-")))
  (define-key LaTeX-mode-map "6" (lambda () (interactive) (insert "^")))
  (define-key LaTeX-mode-map "^" (lambda () (interactive) (insert "6"))))