From f10f03e8ee7efceea04d86ff406814b4f3e576a4 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 3 Sep 1997 05:46:07 +0000 Subject: [PATCH] For each package, pass t for the SIMPLE argument to quail-define-package. --- leim/quail/cyril-jis.el | 2 +- leim/quail/cyrillic.el | 17 +++++++++-------- leim/quail/greek.el | 4 ++-- leim/quail/ipa.el | 2 +- leim/quail/lao.el | 2 +- leim/quail/lrt.el | 3 ++- leim/quail/thai.el | 4 ++-- leim/quail/viqr.el | 2 +- 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 @@ (quail-define-package "cyrillic-jis-russian" "Cyrillic" "$B'('+(B" nil "$B'+'8'5','&'/(B keyboard layout same as JCUKEN (JIS X0208.1983 encoding)" - nil t t t t) + nil t t t t nil nil nil nil nil t) ;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ,L!(B ;; ,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 @@ (quail-define-package "cyrillic-jcuken" "Cyrillic" ",L69(B" nil ",L9FC:5=(B keyboard layout widely used in Russia (ISO 8859-5 encoding)" - nil t t t t) + nil t t t t nil nil nil nil nil t) ;; 1! 2@ 3# 4" 5: 6, 7. 8* 9( 0) -_ =+ ,L!(B ;; ,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 @@ (quail-define-package "cyrillic-macedonian" "Cyrillic" ",L6(BM" nil ",L)*5@B7(B-,L#,(B keyboard layout based on JUS.I.K1.004 (ISO 8859-5 encoding)" - nil t t t t) + nil t t t t nil nil nil nil nil t) ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> ;; ,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 @@ (quail-define-package "cyrillic-serbian" "Cyrillic" ",L6(BS" nil ",L)*5@B7(B-,L"+(B keyboard layout based on JUS.I.K1.005 (ISO 8859-5 encoding)" - nil t t t t) + nil t t t t nil nil nil nil nil t) ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> ;; ,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 @@ (quail-define-package "cyrillic-beylorussian" "Cyrillic" ",L6(BB" nil ",L)*5@B7(B-,L&.(B BEYLORUSSIAN (ISO 8859-5 encoding)" - nil t t t t) + nil t t t t nil nil nil nil nil t) ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> ;; ,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 @@ ",L$'5@B7(B-,L&.(B UKRAINIAN (ISO 8859-5 encoding) Sorry, but 'ghe with upturn' is not included in ISO 8859-5" - nil t t t t) + nil t t t t nil nil nil nil nil t) ;; 1! 2" 3# 4$ 5% 6& 7' 8( 9) 0= /? +* <> ;; ,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. keytop | Q W E R T Y U I O P A S D --------+--------------------------------------- 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" - nil t t t t) + nil t t t t nil nil nil nil nil t) ;; 1! 2,Lq(B 3,Lj(B 4,L!(B 5% 6^ 7& 8* 9( 0) -_ ,LG(B ,LN(B ;; ,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\", Macedonian ,Ls(B (GJE) = \"/g\", ,Lu(B (DZE) = \"/s\", ,L|(B (KJE) = \"/k\", cyrillic ,Lv(B (I DECIMAL) = \"/i\", ,Lx(B (JE) = \"/j\", ,Ly(B (LJE) = \"/l\", ,Lz(B (NJE) = \"/n\" and ,L(B (DZE) =\"/z\"." - nil t t t t) + nil t t t t nil nil nil nil nil t) (quail-define-rules ("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\", "cyrillic-translit-bulgarian" "Cyrillic" ",L6(Btb" nil "Intuitively transliterated keyboard layout optimized for Bulgarian. The only difference with cyrillic-translit is that \"sht\" translates as -,Li(B (SHCHA = Bulgarian SHT) insteat of ,Lhb(B (SH+T)." nil t t t t) +,Li(B (SHCHA = Bulgarian SHT) insteat of ,Lhb(B (SH+T)." + nil t t t t nil nil nil nil nil t) (quail-define-rules ("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 @@ The layout is same as greek, but uses JIS characters. Sorry, accents and terminal sigma are not supported in JIS." - nil t t t t) + nil t t t t nil nil nil nil nil t) (quail-define-rules ("1" ?$B#1(B) @@ -146,7 +146,7 @@ e.g. ,Fa(B + ,F4(B -> ,F\(B ,Fi(B + ,F((B -> ,Fz(B ,Fi(B + ,F((B + ,F4(B -> ,F@(B" - nil t t t t) + nil t t t t nil nil nil nil nil t) ;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~ ;; ,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 @@ "International Phonetic Alphabet for English, French, German and Italian Upside-down characters are obtained by a preceding slash (/)." - nil t) + nil t nil nil nil nil nil nil nil nil t) (quail-define-rules ("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 @@ (quail-define-package "lao" "Lao" "(1E(B" t "Lao input method simulating Lao keyboard layout based on Thai TIS620" - nil t t t t) + nil t t t t nil nil nil nil nil t) (defmacro lao-quail-define-rules (&rest rules) (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 @@ ("^" . lrt-handle-tone-mark) ("+" . lrt-handle-tone-mark) ("~" . lrt-handle-tone-mark)) - 'forget-last-selection 'deterministic 'kbd-translate 'show-layout) + 'forget-last-selection 'deterministic 'kbd-translate 'show-layout + nil nil nil nil nil t) (lrt-generate-quail-map) 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: ',T_(B' and ',To(B' are assigned to '\\' and '|' respectively, ',T#(B' and ',T%(B' are assigned to '`' and '~' respectively, Don't know where to assign characters ',Tz(B' and ',T{(B'." - nil t t nil t) + nil t t nil t nil nil nil nil nil t) (thai-quail-define-rules 'kesmanee ("1" (",TE(B" . thai-consonant-input)) @@ -296,7 +296,7 @@ The difference from the ordinal Thai keyboard: (quail-define-package "thai-pattachote" "Thai" ",T!;(B>" t "Thai Pattachote input method with TIS620 keyboard layout" - nil t t nil t) + nil t t nil t nil nil nil nil nil t) (thai-quail-define-rules 'pattachote ("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 @@ no compose | \ | a\. -> a. ------------+---------+---------- combination| (~ | a(~ -> ,1G(B -" nil t t nil nil t) +" nil t t nil nil t nil nil nil nil t) (viet-quail-define-rules) -- 2.39.2