如何在emacs中用elisp模拟键盘输入shift键

waterloo2005

我的emacs输入中文tex时，需频繁的用shift键切换中英文，太麻烦。
我想写个elisp程序，让它替我切换中英文。当在输入数学公式环境时，自动切换为英文。当不在数学环境时，切换回中文。


思路是这样的。用elisp模拟键盘输入`t ',如果得到的不是`t ',那么就说明此时的输入法状态为中文。
auctex中有一个函数好像是mathp可以判断是否在数学模式下。

请高手指教一下。谢谢