Add Unicode equivalents for rules.

diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el
index 0ed2a6ff9e4833e047e5fc44da31111018f54d54..d0ada108f038c7504ce91a0008fda6f024f01c27 100644 (file)
--- a/lisp/language/thai-util.el
+++ b/lisp/language/thai-util.el
@@ -1,9 +1,10 @@
-;;; thai-util.el --- utilities for Thai
+;;; thai-util.el --- utilities for Thai -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
+;; Copyright (C) 2001  Free Software Foundation, Inc.
 
-;; Keywords: mule, multilingual, thai
+;; Keywords: mule, multilingual, thai, i18n
 
 ;; This file is part of GNU Emacs.
 
@@ -22,6 +23,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; Setting information of Thai characters.
@@ -137,6 +140,95 @@
           (?\e,T|\e(B invalid nil)                                               ; 0xFC
           (?\e,T}\e(B invalid nil)                                               ; 0xFD
           (?\e,T~\e(B invalid nil)                                               ; 0xFE
+
+          ;; Unicode equivalents
+          (?\e$,1Ba\e(B consonant "LETTER KO KAI")
+          (?\e$,1Bb\e(B consonant "LETTER KHO KHAI")
+          (?\e$,1Bc\e(B consonant "LETTER KHO KHUAT")
+          (?\e$,1Bd\e(B consonant "LETTER KHO KHWAI")
+          (?\e$,1Be\e(B consonant "LETTER KHO KHON")
+          (?\e$,1Bf\e(B consonant "LETTER KHO RAKHANG")
+          (?\e$,1Bg\e(B consonant "LETTER NGO NGU")
+          (?\e$,1Bh\e(B consonant "LETTER CHO CHAN")
+          (?\e$,1Bi\e(B consonant "LETTER CHO CHING")
+          (?\e$,1Bj\e(B consonant "LETTER CHO CHANG")
+          (?\e$,1Bk\e(B consonant "LETTER SO SO")
+          (?\e$,1Bl\e(B consonant "LETTER CHO CHOE")
+          (?\e$,1Bm\e(B consonant "LETTER YO YING")
+          (?\e$,1Bn\e(B consonant "LETTER DO CHADA")
+          (?\e$,1Bo\e(B consonant "LETTER TO PATAK")
+          (?\e$,1Bp\e(B consonant "LETTER THO THAN")
+          (?\e$,1Bq\e(B consonant "LETTER THO NANGMONTHO")
+          (?\e$,1Br\e(B consonant "LETTER THO PHUTHAO")
+          (?\e$,1Bs\e(B consonant "LETTER NO NEN")
+          (?\e$,1Bt\e(B consonant "LETTER DO DEK")
+          (?\e$,1Bu\e(B consonant "LETTER TO TAO")
+          (?\e$,1Bv\e(B consonant "LETTER THO THUNG")
+          (?\e$,1Bw\e(B consonant "LETTER THO THAHAN")
+          (?\e$,1Bx\e(B consonant "LETTER THO THONG")
+          (?\e$,1By\e(B consonant "LETTER NO NU")
+          (?\e$,1Bz\e(B consonant "LETTER BO BAIMAI")
+          (?\e$,1B{\e(B consonant "LETTER PO PLA")
+          (?\e$,1B|\e(B consonant "LETTER PHO PHUNG")
+          (?\e$,1B}\e(B consonant "LETTER FO FA")
+          (?\e$,1B~\e(B consonant "LETTER PHO PHAN")
+          (?\e$,1B\7f\e(B consonant "LETTER FO FAN")
+          (?\e$,1C \e(B consonant "LETTER PHO SAMPHAO")
+          (?\e$,1C!\e(B consonant "LETTER MO MA")
+          (?\e$,1C"\e(B consonant "LETTER YO YAK")
+          (?\e$,1C#\e(B consonant "LETTER RO RUA")
+          (?\e$,1C$\e(B vowel-base "LETTER RU (Pali vowel letter)")
+          (?\e$,1C%\e(B consonant "LETTER LO LING")
+          (?\e$,1C&\e(B vowel-base "LETTER LU (Pali vowel letter)")
+          (?\e$,1C'\e(B consonant "LETTER WO WAEN")
+          (?\e$,1C(\e(B consonant "LETTER SO SALA")
+          (?\e$,1C)\e(B consonant "LETTER SO RUSI")
+          (?\e$,1C*\e(B consonant "LETTER SO SUA")
+          (?\e$,1C+\e(B consonant "LETTER HO HIP")
+          (?\e$,1C,\e(B consonant "LETTER LO CHULA")
+          (?\e$,1C-\e(B consonant "LETTER O ANG")
+          (?\e$,1C.\e(B consonant "LETTER HO NOK HUK")
+          (?\e$,1C/\e(B special "PAI YAN NOI (abbreviation)")
+          (?\e$,1C0\e(B vowel-base "VOWEL SIGN SARA A")
+          (?\e$,1C1\e(B vowel-upper "VOWEL SIGN MAI HAN-AKAT N/S-T")
+          (?\e$,1C2\e(B vowel-base "VOWEL SIGN SARA AA")
+          (?\e$,1C3\e(B vowel-base "VOWEL SIGN SARA AM")
+          (?\e$,1C4\e(B vowel-upper "VOWEL SIGN SARA I N/S-T")
+          (?\e$,1C5\e(B vowel-upper "VOWEL SIGN SARA II N/S-T")
+          (?\e$,1C6\e(B vowel-upper "VOWEL SIGN SARA UE N/S-T")
+          (?\e$,1C7\e(B vowel-upper "VOWEL SIGN SARA UEE N/S-T")
+          (?\e$,1C8\e(B vowel-lower "VOWEL SIGN SARA U N/S-B")
+          (?\e$,1C9\e(B vowel-lower "VOWEL SIGN SARA UU N/S-B")
+          (?\e$,1C:\e(B vowel-lower "VOWEL SIGN PHINTHU N/S-B (Pali virama)")
+          (?\e$,1C?\e(B special "BAHT SIGN (currency symbol)")
+          (?\e$,1C@\e(B vowel-base "VOWEL SIGN SARA E")
+          (?\e$,1CA\e(B vowel-base "VOWEL SIGN SARA AE")
+          (?\e$,1CB\e(B vowel-base "VOWEL SIGN SARA O")
+          (?\e$,1CC\e(B vowel-base "VOWEL SIGN SARA MAI MUAN")
+          (?\e$,1CD\e(B vowel-base "VOWEL SIGN SARA MAI MALAI")
+          (?\e$,1CE\e(B vowel-base "LAK KHANG YAO")
+          (?\e$,1CF\e(B special "MAI YAMOK (repetion)")
+          (?\e$,1CG\e(B vowel-upper "VOWEL SIGN MAI TAI KHU N/S-T")
+          (?\e$,1CH\e(B tone "TONE MAI EK N/S-T")
+          (?\e$,1CI\e(B tone "TONE MAI THO N/S-T")
+          (?\e$,1CJ\e(B tone "TONE MAI TRI N/S-T")
+          (?\e$,1CK\e(B tone "TONE MAI CHATTAWA N/S-T")
+          (?\e$,1CL\e(B tone "THANTHAKHAT N/S-T (cancellation mark)")
+          (?\e$,1CM\e(B tone "NIKKHAHIT N/S-T (final nasal)")
+          (?\e$,1CN\e(B vowel-upper "YAMAKKAN N/S-T")
+          (?\e$,1CO\e(B special "FONRMAN")
+          (?\e$,1CP\e(B special "DIGIT ZERO")
+          (?\e$,1CQ\e(B special "DIGIT ONE")
+          (?\e$,1CR\e(B special "DIGIT TWO")
+          (?\e$,1CS\e(B special "DIGIT THREE")
+          (?\e$,1CT\e(B special "DIGIT FOUR")
+          (?\e$,1CU\e(B special "DIGIT FIVE")
+          (?\e$,1CV\e(B special "DIGIT SIX")
+          (?\e$,1CW\e(B special "DIGIT SEVEN")
+          (?\e$,1CX\e(B special "DIGIT EIGHT")
+          (?\e$,1CY\e(B special "DIGIT NINE")
+          (?\e$,1CZ\e(B special "ANGKHANKHU (ellipsis)")
+          (?\e$,1C[\e(B special "KHOMUT (beginning of religious texts)")
           ))
       elm)
   (while l