From: tomo <tomo>
Date: Wed, 14 Jan 2009 16:53:52 +0000 (+0000)
Subject: (chise-tex-encode-region-for-utf-8-jis): Support Thai script.
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fomega.git;a=commitdiff_plain;h=addc1b12cbf5e186ffbb2e42132fc5485c41c0bb

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

diff --git a/chise2otf/elisp/chise-tex.el b/chise2otf/elisp/chise-tex.el
index b144689..cd6ea49 100644
--- 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))