Mercurial > hg > xemacs-beta

annotate lisp/quail/quail-thai.el @ 90:99da576a67e7 xemacs-20-0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag xemacs-20-0
author cvs
date Mon, 13 Aug 2007 09:10:46 +0200
parents 131b0175ea99
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
70
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
1 ;; Quail packages for inputting Thai characters.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
2 ;; Copyright (C) 1992 Free Software Foundation, Inc.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
3 ;; This file is part of Mule (MULtilingual Enhancement of GNU Emacs).
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
4
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
5 ;; Mule is free software distributed in the form of patches to GNU Emacs.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
6 ;; You can redistribute it and/or modify
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
7 ;; it under the terms of the GNU General Public License as published by
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
8 ;; the Free Software Foundation; either version 1, or (at your option)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
9 ;; any later version.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
10
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
11 ;; Mule is distributed in the hope that it will be useful,
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
12 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
14 ;; GNU General Public License for more details.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
15
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
16 ;; You should have received a copy of the GNU General Public License
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
17 ;; along with GNU Emacs; see the file COPYING. If not, write to
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
19
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
20 ;;; 93.2.15 modified for Mule Ver.0.9.7.1 by K.Handa <handa@etl.go.jp>
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
21 ;;; Completely re-written.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
22 ;;; 93.8.5 modified for Mule Ver.1.1 by K.Handa <handa@etl.go.jp>
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
23 ;;; Bug in handling '0,TQi1(B' fixed.
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
24
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
25 (require 'quail)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
26 (require 'thai)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
27
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
28 (quail-define-package "thai" "Thai" t "TSCII encoding
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
29 ,TE(B# /,Tq(B _,Tr(B ,T@s(B ,T6t(B ,TXY(B ,TV0Qi1(B ,T$u(B ,T5v(B ,T(w(B ,T"x(B ,T*y(B ,T_o(B ,T#%(B
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
30 ,Tfp(B ,Td(B\" ,TS.(B ,T>1(B ,TP8(B ,TQm(B ,TUj(B ,TC3(B ,T9O(B ,TB-(B ,T:0(B ,TE(B,
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
31 ,T?D(B ,TK&(B ,T!/(B ,T4b(B ,T`,(B ,Tig(B ,Thk(B ,TRI(B ,TJH(B ,TG+(B ,T'F(B
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
32 ,T<(B( ,T;(B) ,Ta)(B ,TMN(B ,TTZ(B ,TWl(B 0,T7n1(B ,TA2(B ,TcL(B ,T=(B?
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
33
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
34 The difference from the ordinal Thai keyboard:
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
35 ',T_(B' and ',To(B' are assigned to '\\' and '|' respectively,
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
36 ',T#(B' and ',T%(B' are assigned to '`' and '~' respectively,
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
37 Don't know where to assign characters ',Tz(B' and ',T{(B'." nil t t)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
38
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
39 (eval-when-compile
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
40
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
41 (defconst quail-thai-C-map (list 'keymap (vector 'quail-thai-exact-char)))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
42 (defconst quail-thai-CV-map (list 'keymap (vector 'quail-thai-compose)))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
43 (defconst quail-thai-T-map (list 'keymap (vector 'quail-thai-compose)))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
44
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
45 )
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
46
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
47 (defun quail-fetch-thai-map (ch)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
48 (aref (lookup-key (quail-map) "\0") ch))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
49
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
50 (defun quail-thai-compose ()
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
51 (interactive)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
52 (compose-string
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
53 (mapconcat 'quail-fetch-thai-map quail-current-key "")))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
54
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
55 (defun quail-thai-exact-char ()
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
56 (interactive)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
57 (quail-fetch-thai-map quail-last-char))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
58
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
59 (eval-when-compile
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
60
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
61 (defun quail-defrule-thai (ch str)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
62 (let ((vector-map (lookup-key (quail-map) "\0")))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
63 (if (null vector-map)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
64 (progn
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
65 (setq vector-map (make-vector 127 0))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
66 (define-key (quail-map) "\0" vector-map)))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
67 (aset vector-map ch str))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
68 (let* ((chstr (char-to-string ch))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
69 (ch-thai (string-to-char str))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
70 (prop (cdr (assq ch-thai *thai-characters*)))) ;93.8.5 by K.Handa
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
71 (cond ((eq prop 'consonant)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
72 (quail-defrule chstr 'quail-thai-C-prefix))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
73 ((or (eq prop 'vowel-upper) (eq prop 'vowel-lower))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
74 (quail-defrule chstr str)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
75 (define-key quail-thai-C-map chstr 'quail-thai-CV-prefix))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
76 ((eq prop 'tone)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
77 (quail-defrule chstr str)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
78 (define-key quail-thai-C-map chstr 'quail-thai-T-prefix)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
79 (define-key quail-thai-CV-map chstr 'quail-thai-T-prefix))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
80 ((eq prop 'vowel-upper-tone)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
81 (quail-defrule chstr str)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
82 (define-key quail-thai-C-map chstr 'quail-thai-T-prefix))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
83 (t
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
84 (quail-defrule chstr str))))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
85 nil)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
86
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
87 (put 'quail-defrule-thai 'byte-hunk-handler 'eval)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
88
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
89 (defun quail-setup-constant (sym val))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
90 (defun quail-setup-constant-handler (form)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
91 (list 'defconst
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
92 (eval (nth 1 form))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
93 (list 'quote (symbol-value (eval (nth 1 form))))))
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
94 (put 'quail-setup-constant 'byte-hunk-handler 'quail-setup-constant-handler)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
95
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
96 )
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
97
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
98 (quail-defrule-thai ?1 ",TE(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
99 (quail-defrule-thai ?! "#")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
100 (quail-defrule-thai ?2 "/")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
101 (quail-defrule-thai ?@ ",Tq(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
102 (quail-defrule-thai ?3 "_")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
103 (quail-defrule-thai ?# ",Tr(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
104 (quail-defrule-thai ?4 ",T@(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
105 (quail-defrule-thai ?$ ",Ts(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
106 (quail-defrule-thai ?5 ",T6(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
107 (quail-defrule-thai ?% ",Tt(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
108 (quail-defrule-thai ?6 ",TX(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
109 (quail-defrule-thai ?^ ",TY(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
110 (quail-defrule-thai ?7 ",TV(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
111 (quail-defrule-thai ?& "0,TQi1(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
112 (quail-defrule-thai ?8 ",T$(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
113 (quail-defrule-thai ?* ",Tu(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
114 (quail-defrule-thai ?9 ",T5(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
115 (quail-defrule-thai ?\( ",Tv(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
116 (quail-defrule-thai ?0 ",T((B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
117 (quail-defrule-thai ?\) ",Tw(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
118 (quail-defrule-thai ?- ",T"(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
119 (quail-defrule-thai ?_ ",Tx(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
120 (quail-defrule-thai ?= ",T*(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
121 (quail-defrule-thai ?+ ",Ty(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
122 (quail-defrule-thai ?\\ ",T_(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
123 (quail-defrule-thai ?| ",To(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
124 (quail-defrule-thai ?` ",T#(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
125 (quail-defrule-thai ?~ ",T%(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
126
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
127 (quail-defrule-thai ?q ",Tf(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
128 (quail-defrule-thai ?Q ",Tp(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
129 (quail-defrule-thai ?w ",Td(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
130 (quail-defrule-thai ?W "\"")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
131 (quail-defrule-thai ?e ",TS(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
132 (quail-defrule-thai ?E ",T.(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
133 (quail-defrule-thai ?r ",T>(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
134 (quail-defrule-thai ?R ",T1(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
135 (quail-defrule-thai ?t ",TP(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
136 (quail-defrule-thai ?T ",T8(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
137 (quail-defrule-thai ?y ",TQ(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
138 (quail-defrule-thai ?Y ",Tm(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
139 (quail-defrule-thai ?u ",TU(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
140 (quail-defrule-thai ?U ",Tj(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
141 (quail-defrule-thai ?i ",TC(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
142 (quail-defrule-thai ?I ",T3(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
143 (quail-defrule-thai ?o ",T9(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
144 (quail-defrule-thai ?O ",TO(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
145 (quail-defrule-thai ?p ",TB(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
146 (quail-defrule-thai ?P ",T-(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
147 (quail-defrule-thai ?[ ",T:(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
148 (quail-defrule-thai ?{ ",T0(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
149 (quail-defrule-thai ?] ",TE(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
150 (quail-defrule-thai ?} ",")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
151
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
152 (quail-defrule-thai ?a ",T?(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
153 (quail-defrule-thai ?A ",TD(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
154 (quail-defrule-thai ?s ",TK(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
155 (quail-defrule-thai ?S ",T&(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
156 (quail-defrule-thai ?d ",T!(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
157 (quail-defrule-thai ?D ",T/(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
158 (quail-defrule-thai ?f ",T4(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
159 (quail-defrule-thai ?F ",Tb(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
160 (quail-defrule-thai ?g ",T`(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
161 (quail-defrule-thai ?G ",T,(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
162 (quail-defrule-thai ?h ",Ti(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
163 (quail-defrule-thai ?H ",Tg(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
164 (quail-defrule-thai ?j ",Th(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
165 (quail-defrule-thai ?J ",Tk(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
166 (quail-defrule-thai ?k ",TR(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
167 (quail-defrule-thai ?K ",TI(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
168 (quail-defrule-thai ?l ",TJ(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
169 (quail-defrule-thai ?L ",TH(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
170 (quail-defrule-thai ?\; ",TG(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
171 (quail-defrule-thai ?: ",T+(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
172 (quail-defrule-thai ?' ",T'(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
173 (quail-defrule-thai ?\" ".")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
174
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
175 (quail-defrule-thai ?z ",T<(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
176 (quail-defrule-thai ?Z "(")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
177 (quail-defrule-thai ?x ",T;(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
178 (quail-defrule-thai ?X ")")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
179 (quail-defrule-thai ?c ",Ta(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
180 (quail-defrule-thai ?C ",T)(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
181 (quail-defrule-thai ?v ",TM(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
182 (quail-defrule-thai ?V ",TN(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
183 (quail-defrule-thai ?b ",TT(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
184 (quail-defrule-thai ?B ",TZ(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
185 (quail-defrule-thai ?n ",TW(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
186 (quail-defrule-thai ?N ",Tl(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
187 (quail-defrule-thai ?m ",T7(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
188 (quail-defrule-thai ?M ",Tn(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
189 (quail-defrule-thai ?, ",TA(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
190 (quail-defrule-thai ?< ",T2(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
191 (quail-defrule-thai ?. ",Tc(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
192 (quail-defrule-thai ?> ",TL(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
193 (quail-defrule-thai ?/ ",T=(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
194 (quail-defrule-thai ?\" ",TF(B")
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
195
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
196 (quail-setup-current-package)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
197
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
198 (quail-setup-constant 'quail-thai-C-map quail-thai-C-map)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
199 (quail-setup-constant 'quail-thai-CV-map quail-thai-CV-map)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
200 (quail-setup-constant 'quail-thai-T-map quail-thai-T-map)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
201
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
202 (fset 'quail-thai-C-prefix quail-thai-C-map)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
203 (fset 'quail-thai-CV-prefix quail-thai-CV-map)
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents:
diff changeset
204 (fset 'quail-thai-T-prefix quail-thai-T-map)