aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa1997-09-03 05:46:07 +0000
committerKenichi Handa1997-09-03 05:46:07 +0000
commitf10f03e8ee7efceea04d86ff406814b4f3e576a4 (patch)
treecfe5a63d38f67d75cf0e0b5cd63e420dd9e99a7d
parente26177cb6fc0dc8ce3acbcb87a4c1f41826af1a4 (diff)
downloademacs-f10f03e8ee7efceea04d86ff406814b4f3e576a4.tar.gz
emacs-f10f03e8ee7efceea04d86ff406814b4f3e576a4.zip
For each package, pass t for the SIMPLE
argument to quail-define-package.
-rw-r--r--leim/quail/cyril-jis.el2
-rw-r--r--leim/quail/cyrillic.el17
-rw-r--r--leim/quail/greek.el4
-rw-r--r--leim/quail/ipa.el2
-rw-r--r--leim/quail/lao.el2
-rw-r--r--leim/quail/lrt.el3
-rw-r--r--leim/quail/thai.el4
-rw-r--r--leim/quail/viqr.el2
8 files changed, 19 insertions, 17 deletions
diff --git a/leim/quail/cyril-jis.el b/leim/quail/cyril-jis.el
index fc574264b88..c17c9c76fb3 100644
--- a/leim/quail/cyril-jis.el
+++ b/leim/quail/cyril-jis.el
@@ -33,7 +33,7 @@
33(quail-define-package 33(quail-define-package
34 "cyrillic-jis-russian" "Cyrillic" "$B'('+(B" nil 34 "cyrillic-jis-russian" "Cyrillic" "$B'('+(B" nil
35 "$B'+'8'5','&'/(B keyboard layout same as JCUKEN (JIS X0208.1983 encoding)" 35 "$B'+'8'5','&'/(B keyboard layout same as JCUKEN (JIS X0208.1983 encoding)"
36 nil t t t t) 36 nil t t t t nil nil nil nil nil t)
37 37
38;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ,L!(B 38;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ,L!(B
39;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B 39;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B
diff --git a/leim/quail/cyrillic.el b/leim/quail/cyrillic.el
index fd002d9f6d3..18af931949a 100644
--- a/leim/quail/cyrillic.el
+++ b/leim/quail/cyrillic.el
@@ -29,7 +29,7 @@
29(quail-define-package 29(quail-define-package
30 "cyrillic-jcuken" "Cyrillic" ",L69(B" nil 30 "cyrillic-jcuken" "Cyrillic" ",L69(B" nil
31 ",L9FC:5=(B keyboard layout widely used in Russia (ISO 8859-5 encoding)" 31 ",L9FC:5=(B keyboard layout widely used in Russia (ISO 8859-5 encoding)"
32 nil t t t t) 32 nil t t t t nil nil nil nil nil t)
33 33
34;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ,L!(B 34;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ,L!(B
35;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B 35;; ,L9(B ,LF(B ,LC(B ,L:(B ,L5(B ,L=(B ,L3(B ,LH(B ,LI(B ,L7(B ,LE(B ,Lj(B
@@ -138,7 +138,7 @@
138(quail-define-package 138(quail-define-package
139 "cyrillic-macedonian" "Cyrillic" ",L6(BM" nil 139 "cyrillic-macedonian" "Cyrillic" ",L6(BM" nil
140 ",L)*5@B7(B-,L#,(B keyboard layout based on JUS.I.K1.004 (ISO 8859-5 encoding)" 140 ",L)*5@B7(B-,L#,(B keyboard layout based on JUS.I.K1.004 (ISO 8859-5 encoding)"
141 nil t t t t) 141 nil t t t t nil nil nil nil nil t)
142 142
143;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> 143;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
144;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L#(B 144;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L#(B
@@ -247,7 +247,7 @@
247(quail-define-package 247(quail-define-package
248 "cyrillic-serbian" "Cyrillic" ",L6(BS" nil 248 "cyrillic-serbian" "Cyrillic" ",L6(BS" nil
249 ",L)*5@B7(B-,L"+(B keyboard layout based on JUS.I.K1.005 (ISO 8859-5 encoding)" 249 ",L)*5@B7(B-,L"+(B keyboard layout based on JUS.I.K1.005 (ISO 8859-5 encoding)"
250 nil t t t t) 250 nil t t t t nil nil nil nil nil t)
251 251
252;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> 252;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
253;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L"(B 253;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L"(B
@@ -356,7 +356,7 @@
356(quail-define-package 356(quail-define-package
357 "cyrillic-beylorussian" "Cyrillic" ",L6(BB" nil 357 "cyrillic-beylorussian" "Cyrillic" ",L6(BB" nil
358 ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (ISO 8859-5 encoding)" 358 ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (ISO 8859-5 encoding)"
359 nil t t t t) 359 nil t t t t nil nil nil nil nil t)
360 360
361;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> 361;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
362;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L&(B 362;; ,L)(B ,L*(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L&(B
@@ -467,7 +467,7 @@
467 ",L$'5@B7(B-,L&.(B UKRAINIAN (ISO 8859-5 encoding) 467 ",L$'5@B7(B-,L&.(B UKRAINIAN (ISO 8859-5 encoding)
468 468
469Sorry, but 'ghe with upturn' is not included in ISO 8859-5" 469Sorry, but 'ghe with upturn' is not included in ISO 8859-5"
470 nil t t t t) 470 nil t t t t nil nil nil nil nil t)
471 471
472;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> 472;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <>
473;; ,L$(B ,L'(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L&(B 473;; ,L$(B ,L'(B ,L5(B ,L@(B ,LB(B ,L7(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,L&(B
@@ -584,7 +584,7 @@ as follows.
584 keytop | Q W E R T Y U I O P A S D 584 keytop | Q W E R T Y U I O P A S D
585 --------+--------------------------------------- 585 --------+---------------------------------------
586 input | ,L"(B ,L#(B ,L$(B ,L%(B ,L&(B ,L'(B ,L((B ,L)(B ,L*(B ,L+(B ,L,(B ,L.(B ,L/(B" 586 input | ,L"(B ,L#(B ,L$(B ,L%(B ,L&(B ,L'(B ,L((B ,L)(B ,L*(B ,L+(B ,L,(B ,L.(B ,L/(B"
587 nil t t t t) 587 nil t t t t nil nil nil nil nil t)
588 588
589;; 1! 2,Lq(B 3,Lj(B 4,L!(B 5% 6^ 7& 8* 9( 0) -_ ,LG(B ,LN(B 589;; 1! 2,Lq(B 3,Lj(B 4,L!(B 5% 6^ 7& 8* 9( 0) -_ ,LG(B ,LN(B
590;; ,LO(B ,L2(B ,L5(B ,L@(B ,LB(B ,LK(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,LI(B 590;; ,LO(B ,L2(B ,L5(B ,L@(B ,LB(B ,LK(B ,LC(B ,L8(B ,L>(B ,L?(B ,LH(B ,LI(B
@@ -745,7 +745,7 @@ Serbo-Croatian ,Lr(B (DJE) = \"/d\", ,L{(B (CHJE)= \"/ch\",
745Macedonian ,Ls(B (GJE) = \"/g\", ,Lu(B (DZE) = \"/s\", ,L|(B (KJE) = \"/k\", 745Macedonian ,Ls(B (GJE) = \"/g\", ,Lu(B (DZE) = \"/s\", ,L|(B (KJE) = \"/k\",
746cyrillic ,Lv(B (I DECIMAL) = \"/i\", ,Lx(B (JE) = \"/j\", 746cyrillic ,Lv(B (I DECIMAL) = \"/i\", ,Lx(B (JE) = \"/j\",
747,Ly(B (LJE) = \"/l\", ,Lz(B (NJE) = \"/n\" and ,L(B (DZE) =\"/z\"." 747,Ly(B (LJE) = \"/l\", ,Lz(B (NJE) = \"/n\" and ,L(B (DZE) =\"/z\"."
748 nil t t t t) 748 nil t t t t nil nil nil nil nil t)
749 749
750(quail-define-rules 750(quail-define-rules
751 ("a" ?,LP(B)("b" ?,LQ(B) ("v" ?,LR(B) ("w" ?,LR(B) ("g" ?,LS(B) ("d" ?,LT(B) 751 ("a" ?,LP(B)("b" ?,LQ(B) ("v" ?,LR(B) ("w" ?,LR(B) ("g" ?,LS(B) ("d" ?,LT(B)
@@ -793,7 +793,8 @@ cyrillic ,Lv(B (I DECIMAL) = \"/i\", ,Lx(B (JE) = \"/j\",
793 "cyrillic-translit-bulgarian" "Cyrillic" ",L6(Btb" nil 793 "cyrillic-translit-bulgarian" "Cyrillic" ",L6(Btb" nil
794 "Intuitively transliterated keyboard layout optimized for Bulgarian. 794 "Intuitively transliterated keyboard layout optimized for Bulgarian.
795The only difference with cyrillic-translit is that \"sht\" translates as 795The only difference with cyrillic-translit is that \"sht\" translates as
796,Li(B (SHCHA = Bulgarian SHT) insteat of ,Lhb(B (SH+T)." nil t t t t) 796,Li(B (SHCHA = Bulgarian SHT) insteat of ,Lhb(B (SH+T)."
797 nil t t t t nil nil nil nil nil t)
797 798
798(quail-define-rules 799(quail-define-rules
799 ("a" ?,LP(B)("b" ?,LQ(B) ("v" ?,LR(B) ("w" ?,LR(B) ("g" ?,LS(B) ("d" ?,LT(B) 800 ("a" ?,LP(B)("b" ?,LQ(B) ("v" ?,LR(B) ("w" ?,LR(B) ("g" ?,LS(B) ("d" ?,LT(B)
diff --git a/leim/quail/greek.el b/leim/quail/greek.el
index 37378fcd996..9e6e11954e5 100644
--- a/leim/quail/greek.el
+++ b/leim/quail/greek.el
@@ -32,7 +32,7 @@
32 32
33The layout is same as greek, but uses JIS characters. 33The layout is same as greek, but uses JIS characters.
34Sorry, accents and terminal sigma are not supported in JIS." 34Sorry, accents and terminal sigma are not supported in JIS."
35 nil t t t t) 35 nil t t t t nil nil nil nil nil t)
36 36
37(quail-define-rules 37(quail-define-rules
38 ("1" ?$B#1(B) 38 ("1" ?$B#1(B)
@@ -146,7 +146,7 @@ e.g.
146 ,Fa(B + ,F4(B -> ,F\(B 146 ,Fa(B + ,F4(B -> ,F\(B
147 ,Fi(B + ,F((B -> ,Fz(B 147 ,Fi(B + ,F((B -> ,Fz(B
148 ,Fi(B + ,F((B + ,F4(B -> ,F@(B" 148 ,Fi(B + ,F((B + ,F4(B -> ,F@(B"
149 nil t t t t) 149 nil t t t t nil nil nil nil nil t)
150 150
151;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~ 151;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~
152;; ,F7/(B ,FrS(B ,FeE(B ,FqQ(B ,FtT(B ,FuU(B ,FhH(B ,FiI(B ,FoO(B ,FpP(B [{ ]} 152;; ,F7/(B ,FrS(B ,FeE(B ,FqQ(B ,FtT(B ,FuU(B ,FhH(B ,FiI(B ,FoO(B ,FpP(B [{ ]}
diff --git a/leim/quail/ipa.el b/leim/quail/ipa.el
index 6a1cc51ef40..41a5f27fe47 100644
--- a/leim/quail/ipa.el
+++ b/leim/quail/ipa.el
@@ -31,7 +31,7 @@
31 "International Phonetic Alphabet for English, French, German and Italian 31 "International Phonetic Alphabet for English, French, German and Italian
32 32
33Upside-down characters are obtained by a preceding slash (/)." 33Upside-down characters are obtained by a preceding slash (/)."
34 nil t) 34 nil t nil nil nil nil nil nil nil nil t)
35 35
36(quail-define-rules 36(quail-define-rules
37 ("i" ?,0 (B) 37 ("i" ?,0 (B)
diff --git a/leim/quail/lao.el b/leim/quail/lao.el
index a36b8321856..e5c25afb129 100644
--- a/leim/quail/lao.el
+++ b/leim/quail/lao.el
@@ -97,7 +97,7 @@
97(quail-define-package 97(quail-define-package
98 "lao" "Lao" "(1E(B" t 98 "lao" "Lao" "(1E(B" t
99 "Lao input method simulating Lao keyboard layout based on Thai TIS620" 99 "Lao input method simulating Lao keyboard layout based on Thai TIS620"
100 nil t t t t) 100 nil t t t t nil nil nil nil nil t)
101 101
102(defmacro lao-quail-define-rules (&rest rules) 102(defmacro lao-quail-define-rules (&rest rules)
103 (let ((l rules) 103 (let ((l rules)
diff --git a/leim/quail/lrt.el b/leim/quail/lrt.el
index fd9b21bea8c..e633d02eb93 100644
--- a/leim/quail/lrt.el
+++ b/leim/quail/lrt.el
@@ -400,7 +400,8 @@
400 ("^" . lrt-handle-tone-mark) 400 ("^" . lrt-handle-tone-mark)
401 ("+" . lrt-handle-tone-mark) 401 ("+" . lrt-handle-tone-mark)
402 ("~" . lrt-handle-tone-mark)) 402 ("~" . lrt-handle-tone-mark))
403 'forget-last-selection 'deterministic 'kbd-translate 'show-layout) 403 'forget-last-selection 'deterministic 'kbd-translate 'show-layout
404 nil nil nil nil nil t)
404 405
405(lrt-generate-quail-map) 406(lrt-generate-quail-map)
406 407
diff --git a/leim/quail/thai.el b/leim/quail/thai.el
index dc368bbbbba..2824036243e 100644
--- a/leim/quail/thai.el
+++ b/leim/quail/thai.el
@@ -189,7 +189,7 @@ The difference from the ordinal Thai keyboard:
189 ',T_(B' and ',To(B' are assigned to '\\' and '|' respectively, 189 ',T_(B' and ',To(B' are assigned to '\\' and '|' respectively,
190 ',T#(B' and ',T%(B' are assigned to '`' and '~' respectively, 190 ',T#(B' and ',T%(B' are assigned to '`' and '~' respectively,
191 Don't know where to assign characters ',Tz(B' and ',T{(B'." 191 Don't know where to assign characters ',Tz(B' and ',T{(B'."
192 nil t t nil t) 192 nil t t nil t nil nil nil nil nil t)
193 193
194(thai-quail-define-rules 'kesmanee 194(thai-quail-define-rules 'kesmanee
195 ("1" (",TE(B" . thai-consonant-input)) 195 ("1" (",TE(B" . thai-consonant-input))
@@ -296,7 +296,7 @@ The difference from the ordinal Thai keyboard:
296(quail-define-package 296(quail-define-package
297 "thai-pattachote" "Thai" ",T!;(B>" t 297 "thai-pattachote" "Thai" ",T!;(B>" t
298 "Thai Pattachote input method with TIS620 keyboard layout" 298 "Thai Pattachote input method with TIS620 keyboard layout"
299 nil t t nil t) 299 nil t t nil t nil nil nil nil nil t)
300 300
301(thai-quail-define-rules 'pattachote 301(thai-quail-define-rules 'pattachote
302 ("1" "=") 302 ("1" "=")
diff --git a/leim/quail/viqr.el b/leim/quail/viqr.el
index 1af59fd6146..5f427c77054 100644
--- a/leim/quail/viqr.el
+++ b/leim/quail/viqr.el
@@ -61,7 +61,7 @@
61 no compose | \ | a\. -> a. 61 no compose | \ | a\. -> a.
62 ------------+---------+---------- 62 ------------+---------+----------
63 combination| (~ | a(~ -> ,1G(B 63 combination| (~ | a(~ -> ,1G(B
64" nil t t nil nil t) 64" nil t t nil nil t nil nil nil nil t)
65 65
66 66
67(viet-quail-define-rules) 67(viet-quail-define-rules)