[AUCTeX-diffs] Changes to auctex/tex.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    08/07/06 17:31:13

Index: tex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/tex.el,v
retrieving revision 5.621
retrieving revision 5.622
diff -u -b -r5.621 -r5.622
--- tex.el      6 Jul 2008 17:04:46 -0000       5.621
+++ tex.el      6 Jul 2008 17:31:13 -0000       5.622
@@ -4694,22 +4694,17 @@
     (insert "$")))
   (TeX-math-input-method-off))
 
+(defvar TeX-math-input-method-off-regexp
+  "^\\(chinese\\|japanese\\|korean\\bulgarian\\russian\\)"
+  "Regexp matching input methods to be deactivated when entering math mode.")
+
 (defun TeX-math-input-method-off ()
   "Toggle off input method when entering math mode."
   (and TeX-math-toggle-off-input-method
        (texmathp)
-       (TeX-toggle-off-input-method)))
-
-(defun TeX-toggle-off-input-method ()
-  "Toggle off input methods.
-Currently, only support CJK input methods provided by LEIM package."
-  (cond
-   ;; LEIM Package
-   ((and (boundp 'current-input-method) current-input-method
-        (string-match "^\\(chinese\\|japanese\\|korean\\)" 
current-input-method))
-    (inactivate-input-method))
-   (t );; do nothing
-   ))
+       (boundp 'current-input-method) current-input-method
+       (string-match TeX-math-input-method-off-regexp current-input-method)
+       (inactivate-input-method)))
 
 ;;; Simple Commands