(chise-tex-encode-region-for-utf-8-jis): Support Thai script.

[chise/omega.git] / chise2otf / elisp / chise-tex.el

diff --git a/chise2otf/elisp/chise-tex.el b/chise2otf/elisp/chise-tex.el
index b144689..cd6ea49 100644 (file)
--- a/chise2otf/elisp/chise-tex.el
+++ b/chise2otf/elisp/chise-tex.el
@@ -325,7 +325,12 @@
                  ;;  (insert (decode-char '=jis-x0208-1983 ret)))
                  ((eq (char-ucs chr) #x012B)
                   (delete-char)
-                  (insert "\\={\\i}"))
+                  (insert "\\={\\i}")
+                  )
+                 ((setq ret (encode-char chr 'thai-tis620))
+                  (delete-char)
+                  (insert (format "\\ThaiTIS{%X}" (logior ret #x80)))
+                  )
                  ((and (not (eq (char-ucs chr) #x0439))
                        (not (eq (char-ucs chr) #x0451))
                        (setq ret (char-feature chr '=decomposition))