annotate leim/quail/thai.el @ 67201:ef8e06ff56b9

Throw error if facemenu is not loaded to prevent accidental change of loading order in loadup.el. (Suggested by RMS.)
author Luc Teirlinck <teirllm@auburn.edu>
date Tue, 29 Nov 2005 05:03:21 +0000
parents 23a17af379b1
children b94a4bf1aca6 f9a65d7ebd29
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38453
519983161a46 Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 31431
diff changeset
1 ;;; thai.el --- Quail package for inputting Thai characters
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4 ;; Licensed to the Free Software Foundation.
60704
7c239dedaeea (quail-thai-update-translation): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 60606
diff changeset
5 ;; Copyright (C) 2005
7c239dedaeea (quail-thai-update-translation): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 60606
diff changeset
6 ;; National Institute of Advanced Industrial Science and Technology (AIST)
7c239dedaeea (quail-thai-update-translation): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 60606
diff changeset
7 ;; Registration Number H14PRO021
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
9 ;; Keywords: multilingual, input method, Thai
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
11 ;; This file is part of GNU Emacs.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13 ;; GNU Emacs is free software; you can redistribute it and/or modify
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14 ;; it under the terms of the GNU General Public License as published by
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 ;; the Free Software Foundation; either version 2, or (at your option)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16 ;; any later version.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21 ;; GNU General Public License for more details.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 ;; You should have received a copy of the GNU General Public License
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64083
23a17af379b1 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 60704
diff changeset
25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23a17af379b1 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 60704
diff changeset
26 ;; Boston, MA 02110-1301, USA.
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27
38453
519983161a46 Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 31431
diff changeset
28 ;;; Commentary:
519983161a46 Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 31431
diff changeset
29
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 ;;; Code:
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 (require 'quail)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 (require 'thai-util)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34
60704
7c239dedaeea (quail-thai-update-translation): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 60606
diff changeset
35 (defmacro thai-generate-quail-map (translation-table)
7c239dedaeea (quail-thai-update-translation): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 60606
diff changeset
36 (let (map)
7c239dedaeea (quail-thai-update-translation): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 60606
diff changeset
37 (dotimes (i (length translation-table))
7c239dedaeea (quail-thai-update-translation): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 60606
diff changeset
38 (let ((trans (aref translation-table i)))
7c239dedaeea (quail-thai-update-translation): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 60606
diff changeset
39 (when (not (eq trans 0))
7c239dedaeea (quail-thai-update-translation): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 60606
diff changeset
40 (if (> (length trans) 1)
7c239dedaeea (quail-thai-update-translation): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 60606
diff changeset
41 (setq trans (vector trans))
7c239dedaeea (quail-thai-update-translation): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 60606
diff changeset
42 (setq trans (aref trans 0)))
7c239dedaeea (quail-thai-update-translation): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 60606
diff changeset
43 (setq map (cons (list (char-to-string i) trans) map)))))
7c239dedaeea (quail-thai-update-translation): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 60606
diff changeset
44 `(quail-define-rules ,@map)))
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46 ;; Thai Kesmanee keyboard support.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48 (quail-define-package
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49 "thai-kesmanee" "Thai" ",T!!(B>" t
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50 "Thai Kesmanee input method with TIS620 keyboard layout
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52 The difference from the ordinal Thai keyboard:
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53 ',T_(B' and ',To(B' are assigned to '\\' and '|' respectively,
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54 ',T#(B' and ',T%(B' are assigned to '`' and '~' respectively,
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 Don't know where to assign characters ',Tz(B' and ',T{(B'."
60704
7c239dedaeea (quail-thai-update-translation): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 60606
diff changeset
56 nil t t t t nil nil nil nil nil t)
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
57
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47241
diff changeset
58 (quail-install-map
26881
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
59 (thai-generate-quail-map
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
60 [
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
61 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ; control codes
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
62 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ; control codes
60605
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
63 ;; This data is quite old.
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
64 ;; 0 "#" "." ",Tr(B" ",Ts(B" ",Tt(B" ",TQi(B" ",T'(B" ; SPC .. '
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
65 ;; ",Tv(B" ",Tw(B" ",Tu(B" ",Ty(B" ",TA(B" ",T"(B" ",Tc(B" ",T=(B" ; ( .. /
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
66 ;; ",T((B" ",TE(B" "/" "_" ",T@(B" ",T6(B" ",TX(B" ",TV(B" ; 0 .. 7
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
67 ;; ",T$(B" ",T5(B" ",T+(B" ",TG(B" ",T2(B" ",T*(B" ",TL(B" ",TF(B" ; 8 .. ?
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
68 ;; ",Tq(B" ",TD(B" ",TZ(B" ",T)(B" ",T/(B" ",T.(B" ",Tb(B" ",T,(B" ; @ .. G
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
69 ;; ",Tg(B" ",T3(B" ",Tk(B" ",TI(B" ",TH(B" ",Tn(B" ",Tl(B" ",TO(B" ; H .. O
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
70 ;; ",T-(B" ",Tp(B" ",T1(B" ",T&(B" ",T8(B" ",Tj(B" ",TN(B" "\"" ; P .. W
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
71 ;; ")" ",Tm(B" "(" ",T:(B" ",T_(B" ",TE(B" ",TY(B" ",Tx(B" ; X .. _
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
72 ;; ",T#(B" ",T?(B" ",TT(B" ",Ta(B" ",T!(B" ",TS(B" ",T4(B" ",T`(B" ; ` .. g
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
73 ;; ",Ti(B" ",TC(B" ",Th(B" ",TR(B" ",TJ(B" ",T7(B" ",TW(B" ",T9(B" ; h .. o
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
74 ;; ",TB(B" ",Tf(B" ",T>(B" ",TK(B" ",TP(B" ",TU(B" ",TM(B" ",Td(B" ; p .. w
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
75 ;; ",T;(B" ",TQ(B" ",T<(B" ",T0(B" ",To(B" "," ",T%(B" 0 ; x .. DEL
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
76 ;; This is the correct data nowadays.
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
77 0 "+" "." ",Tr(B" ",Ts(B" ",Tt(B" ",T_(B" ",T'(B" ; SPC .. '
26881
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
78 ",Tv(B" ",Tw(B" ",Tu(B" ",Ty(B" ",TA(B" ",T"(B" ",Tc(B" ",T=(B" ; ( .. /
60605
600e9d5b46cc (thai-generate-quail-map): Fix the kesmanee layout.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
79 ",T((B" ",Te(B" "/" "-" ",T@(B" ",T6(B" ",TX(B" ",TV(B" ; 0 .. 7
26881
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
80 ",T$(B" ",T5(B" ",T+(B" ",TG(B" ",T2(B" ",T*(B" ",TL(B" ",TF(B" ; 8 .. ?
60606
e7d3f2a9b84f Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 60605
diff changeset
81 ",Tq(B" ",TD(B" ",TZ(B" ",T)(B" ",T/(B" ",T.(B" ",Tb(B" ",T,(B" ; @ .. G
e7d3f2a9b84f Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 60605
diff changeset
82 ",Tg(B" ",T3(B" ",Tk(B" ",TI(B" ",TH(B" "?" ",Tl(B" ",TO(B" ; H .. O
26881
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
83 ",T-(B" ",Tp(B" ",T1(B" ",T&(B" ",T8(B" ",Tj(B" ",TN(B" "\"" ; P .. W
60606
e7d3f2a9b84f Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 60605
diff changeset
84 "\)" ",Tm(B" "\(" ",T:(B" ",T#(B" ",TE(B" ",TY(B" ",Tx(B" ; X .. _
e7d3f2a9b84f Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 60605
diff changeset
85 "_" ",T?(B" ",TT(B" ",Ta(B" ",T!(B" ",TS(B" ",T4(B" ",T`(B" ; ` .. g
e7d3f2a9b84f Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 60605
diff changeset
86 ",Ti(B" ",TC(B" ",Th(B" ",TR(B" ",TJ(B" ",T7(B" ",TW(B" ",T9(B" ; h .. o
26881
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
87 ",TB(B" ",Tf(B" ",T>(B" ",TK(B" ",TP(B" ",TU(B" ",TM(B" ",Td(B" ; p .. w
60606
e7d3f2a9b84f Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 60605
diff changeset
88 ",T;(B" ",TQ(B" ",T<(B" ",T0(B" ",T%(B" "," "%" 0 ; x .. DEL
26881
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
89 ]))
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
90
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
91
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
92
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
93 ;; Thai Pattachote keyboard support.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
94
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
95 (quail-define-package
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
96 "thai-pattachote" "Thai" ",T!;(B>" t
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
97 "Thai Pattachote input method with TIS620 keyboard layout"
60704
7c239dedaeea (quail-thai-update-translation): Delete it.
Kenichi Handa <handa@m17n.org>
parents: 60606
diff changeset
98 nil t t t t nil nil nil nil nil t)
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
99
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47241
diff changeset
100 (quail-install-map
26881
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
101 (thai-generate-quail-map
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
102 [ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ; control codes
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
103 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ; control codes
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
104 0 "+" ",T1(B" "/" "," "?" "_" ",T"(B" ; SPC .. '
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
105 "(" ")" "." "%" ",TP(B" ",Tq(B" ",T((B" ",T>(B" ; ( .. /
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
106 ",Tp(B" "=" ",Tr(B" ",Ts(B" ",Tt(B" ",Tu(B" ",TY(B" ",Tw(B" ; 0 .. 7
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
107 ",Tx(B" ",Ty(B" ",T&(B" ",Td(B" ",T?(B" ",Tv(B" ",T2(B" ",TL(B" ; 8 .. ?
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
108 "\"" ",Tk(B" ",TQ(B" ",T0(B" ",TS(B" ",Tf(B" ",T3(B" ",Tl(B" ; @ .. G
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
109 ",TW(B" ",T+(B" ",T<(B" ",T*(B" ",Tb(B" ",TN(B" ",TH(B" ",T6(B" ; H .. O
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
110 ",T2(B" ",Tj(B" ",T-(B" ",T8(B" ",TI(B" ",T=(B" ",T@(B" ",TD(B" ; P .. W
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
111 ",T.(B" ",TV(B" ",T.(B" ",Tc(B" ",TZ(B" ",T2(B" ",TX(B" "-" ; X .. _
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
112 ",T#(B" ",Ti(B" ",TT(B" ",TE(B" ",T'(B" ",TB(B" ",T!(B" ",TQ(B" ; ` .. g
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
113 ",TU(B" ",TA(B" ",TR(B" ",T9(B" ",T`(B" ",TJ(B" ",T$(B" ",TG(B" ; h .. o
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
114 ",Ta(B" ",Tg(B" ",TM(B" ",T7(B" ",TC(B" ",T4(B" ",TK(B" ",T5(B" ; p .. w
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
115 ",T;(B" ",Th(B" ",T:(B" ",TO(B" ",Tm(B" ",TF(B" ",T%(B" 0 ; x .. DEL
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 19722
diff changeset
116 ]))
38453
519983161a46 Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 31431
diff changeset
117
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
118 ;;; arch-tag: fed6c468-0616-44b0-88bf-47347bf64825
38453
519983161a46 Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 31431
diff changeset
119 ;;; thai.el ends here