From: tomo <tomo>
Date: Mon, 28 Jun 1999 10:25:41 +0000 (+0000)
Subject: - Change category for the charset `thai-xtis' to `?x' from `?T'.
X-Git-Tag: r21-2-17-tomo-3~67
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=87a4112f9fc673908e0dfab7024ac5b293de1590;p=chise%2Fxemacs-chise.git-

- Change category for the charset `thai-xtis' to `?x' from `?T'.
- Add syntax entries.
- Put `preferred-coding-system' of the charset `thai-xtis' to
  `tis-620'.
---

diff --git a/lisp/mule/thai-xtis.el b/lisp/mule/thai-xtis.el
index f9ddba7..6f874a8 100644
--- a/lisp/mule/thai-xtis.el
+++ b/lisp/mule/thai-xtis.el
@@ -45,8 +45,34 @@
 
   (modify-syntax-entry 'thai-xtis "w")
 
-  (define-category ?T "Precomposed Thai character.")
-  (modify-category-entry 'thai-xtis ?T)
+  (define-category ?x "Precomposed Thai character.")
+  (modify-category-entry 'thai-xtis ?x)
+
+  (let ((deflist	'(;; chars	syntax
+			  ("$(?!0(B-$(?NxP0R0S0`0(B-$(?e0(B"	"w")
+			  ("$(?p0(B-$(?y0(B"	"w")
+			  ("$(?O0f0_0o0z0{0(B"	"_")
+			  ))
+	elm chars len syntax category to ch i)
+    (while deflist
+      (setq elm (car deflist))
+      (setq chars (car elm)
+	    len (length chars)
+	    syntax (nth 1 elm)
+	    i 0)
+      (while (< i len)
+	(if (= (aref chars i) ?-)
+	    (setq i (1+ i)
+		  to (nth 1 (split-char (aref chars i))))
+	  (setq ch (nth 1 (split-char (aref chars i)))
+		to ch))
+	(while (<= ch to)
+	  (modify-syntax-entry (vector 'thai-xtis ch) syntax)
+	  (setq ch (1+ ch)))
+	(setq i (1+ i)))
+      (setq deflist (cdr deflist))))
+
+  (put-charset-property 'thai-xtis 'preferred-coding-system 'tis-620)
   )
 
 ;; This is the ccl-decode-thai-xtis automaton.