Pass t for the SIMPLE argument to quail-define-package.

diff --git a/leim/quail/latin-post.el b/leim/quail/latin-post.el
index 770d9485f78dc1768f5dd59fda1795656557a029..1ab651f3ecb6fdde2961602e5c3395cf9c13ab55 100644 (file)
--- a/leim/quail/latin-post.el
+++ b/leim/quail/latin-post.el
@@ -40,7 +40,7 @@
    cedilla   |    ,    | c, -> \e,Ag\e(B
    nordic    |    /    | d/ -> \e,Ap\e(B   t/ -> \e,A~\e(B   a/ -> \e,Ae\e(B   e/ -> \e,Af\e(B   o/ -> \e,Ax\e(B
    special   |   /<>   | s/ -> \e,A_\e(B   ?/ -> \e,A?\e(B   !/ -> \e,A!\e(B   << -> \e,A+\e(B   >> -> \e,A;\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("A`" ?\e,A@\e(B)
@@ -138,7 +138,7 @@
      dot     |    .    | z. -> \e,B?\e(B
     stroke   |    /    | d/ -> \e,Bp\e(B
    special   |    /    | s/ -> \e,B_\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("A'" ?\e,BA\e(B)
@@ -240,7 +240,7 @@
     tilde    |    ~    | n~ -> \e,Cq\e(B
    stroke    |    /    | h/ -> \e,C1\e(B
    special   |    /    | s/ -> \e,C_\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("A`" ?\e,C@\e(B)
@@ -334,7 +334,7 @@
    stroke    |    /    | d/ -> \e,Dp\e(B
    nordic    |    /    | a/ -> \e,De\e(B   e/ -> \e,Df\e(B   o/ -> \e,Dx\e(B
    special   |    /    | s/ -> \e,D_\e(B   n/ -> \e,D?\e(B   k/ -> \e,D"\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("A," ?\e,D!\e(B)
@@ -437,7 +437,7 @@
      dot     |    .    | i. -> \e,M}\e(B   I. -> \e,M]\e(B
    nordic    |    /    | a/ -> \e,Me\e(B   e/ -> \e,Mf\e(B   o/ -> \e,Mx\e(B
    special   |    /    | s/ -> \e,M_\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("A'" ?\e,MA\e(B)
@@ -507,7 +507,7 @@
 (quail-define-package
  "danish-postfix" "Latin-1" "DA<" t
  "Danish input method (rule: AE -> \e,AF\e(B, OE -> \e,AX\e(B, AA -> \e,AE\e(B, E' -> \e,AI\e(B)"
- nil t)
+ nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("AE" ?\e,AF\e(B)
@@ -529,7 +529,7 @@
 
 Preceding ^ or following x will produce accented characters,
 e.g. ^C -> \e,CF\e(B, Gx -> \e,CX\e(B.
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("Cx" ?\e,CF\e(B)
@@ -568,7 +568,7 @@ e.g. ^C -> \e,CF\e(B, Gx -> \e,CX\e(B.
 (quail-define-package
  "finnish-postfix" "Latin-1" "FI<" t
  "Finnish (Suomi) input method (rule: AE -> \e,AD\e(B, OE -> \e,AV\e(B)"
- nil t)
+ nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("AE" ?\e,AD\e(B)
@@ -588,7 +588,7 @@ Par exemple A` -> \e,A@\e(B, E' -> \e,AI\e(B.
 \e,AG\e(B, \e,A+\e(B, et \e,A;\e(B sont produits par C/, <<, et >>.
 
 <e dans l'o> n'est pas disponible."
- nil t)
+ nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("A`" ?\e,A@\e(B)
@@ -632,7 +632,7 @@ Par exemple A` -> \e,A@\e(B, E' -> \e,AI\e(B.
  "German (Deutsch) input method (rule: AE -> \e,AD\e(B, OE -> \e,AV\e(B, UE -> \e,A\\e(B, sz -> \e,A_\e(B)
 
 \e,A_\e(B can also be input by 'ss' followed by M-n."
- nil t)
+ nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("AE" ?\e,AD\e(B)
@@ -662,7 +662,7 @@ AE -> \e,AF\e(B
 OE -> \e,AV\e(B
 D/ -> \e,AP\e(B (eth)
 T/ -> \e,A^\e(B (thorn)"
- nil t)
+ nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("A'" ?\e,AA\e(B)
@@ -705,7 +705,7 @@ E` -> \e,AH\e(B
 I` -> \e,AL\e(B
 O` -> \e,AR\e(B
 U` -> \e,AY\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("A`" ?\e,A@\e(B)
@@ -727,7 +727,7 @@ U` -> \e,AY\e(B
 (quail-define-package
  "norwegian-postfix" "Latin-1" "NO<" t
  "Norwegian (Norsk) input method (rule: AE->\e,AF\e(B, OE->\e,AX\e(B, AA->\e,AE\e(B, E'->\e,AI\e(B)"
- nil t)
+ nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("AE" ?\e,AF\e(B)
@@ -751,7 +751,7 @@ Supported languages are Swidish, Norwegian, Danish, and Finnish.
 
 You can toggle between \e,AD\e(B and \e,AF\e(B, or between OE and \e,AV\e(B, by typing M-n
 when the character is underlined.
-" nil)
+" nil nil nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("AE" [?\e,AD\e(B ?\e,AF\e(B])
@@ -779,7 +779,7 @@ U' -> \e,AZ\e(B
 N~ -> \e,AQ\e(B
 !/ -> \e,A!\e(B
 ?/ -> \e,A?\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("A'" ?\e,AA\e(B)
@@ -807,7 +807,7 @@ N~ -> \e,AQ\e(B
 (quail-define-package
  "swedish-postfix" "Latin-1" "SV<" t
  "Swedish (Svenska) input method (rule: AA -> \e,AE\e(B, AE -> \e,AD\e(B, OE -> \e,AV\e(B, E' -> \e,AI\e(B)"
- nil t)
+ nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("AA" ?\e,AE\e(B)
@@ -840,7 +840,7 @@ O\" -> \e,CV\e(B
 S/ -> \e,C*\e(B
 U\" -> \e,C\\e(B
 U^ -> \e,C[\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("A^" ?\e,CB\e(B)
@@ -871,7 +871,7 @@ U^ -> \e,C[\e(B
 (quail-define-package
  "british" "Latin-1" "\e,A#\e(B@" t
  "British English input method with Latin-1 character \e,A#\e(B (# -> \e,A#\e(B)"
- nil t)
+ nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("#" [?\e,A#\e(B ?#])
@@ -899,7 +899,7 @@ U^ -> \e,C[\e(B
 (quail-define-package
  "french-keyboard" "Latin-1" "FR@" t
  "French (Fran\e,Ag\e(Bais) input method simulating some French keyboard
-<e dans l'o> n'est pas disponible." nil t t t t)
+<e dans l'o> n'est pas disponible." nil t t t t nil nil nil nil nil t)
 
 ;; \e,Aj\e(B1  \e,Ai\e(B2  \e,Ah\e(B3  \e,At\e(B4  \e,An\e(B5  \e,Ao\e(B6  \e,Ab\e(B7  \e,A{\e(B8  \e,Ay\e(B9  \e,A`\e(B0  -_  \e,Ak\e(B+  `~
 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AgG\e(B  \e,A|\e(B&
@@ -944,7 +944,7 @@ U^ -> \e,C[\e(B
 
 Similaire au clavier fran\e,Ag\e(Bais de SUN.
 pr\e,Ai\e(Bfixes:  ^ pour circonflexe,  \e,A(\e(B pour tr\e,Ai\e(Bma.
-<e dans l'o> n'est pas disponible." nil t t t t)
+<e dans l'o> n'est pas disponible." nil t t t t nil nil nil nil nil t)
 
 ;; &1  \e,Ai\e(B2  "3  '4  (5  \e,A'\e(B6  \e,Ah\e(B7  !8  \e,Ag\e(B9  \e,A`\e(B0  )\e,A0\e(B -_  @~
 ;;  aA  zZ  eE  rR  tT  yY  uU  iI  oO  pP  ^\e,A(\e(B  `$
@@ -1064,7 +1064,7 @@ pr\e,Ai\e(Bfixes:  ^ pour circonflexe,  \e,A(\e(B pour tr\e,Ai\e(Bma.
  "icelandic-keyboard" "Latin-1" "IS@" t
  "Icelandic (\e,AM\e(Bslenska) input method simulating some Icelandic keyboard
 
-Dead accent is right to \e,Af\e(B." nil t t t t)
+Dead accent is right to \e,Af\e(B." nil t t t t nil nil nil nil nil t)
 
 ;; 1!  2"  3#  4$  5%  6^  7&  8*  9(  0)  \e,AvV\e(B  -_  `~
 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,ApP\e(B  '?
@@ -1111,7 +1111,7 @@ Dead accent is right to \e,Af\e(B." nil t t t t)
 (quail-define-package
  "danish-keyboard" "Latin-1" "DA@" t
  "Danish input method simulating SUN Danish keyboard"
- nil t t t t)
+ nil t t t t nil nil nil nil nil t)
 
 ;; 1!  2"  3#  4\e,A$\e(B  5%  6&  7/  8(  9)  0=  +?  \e,A='\e(B  ~^
 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AeE\e(B  \e,AiI\e(B
@@ -1153,7 +1153,7 @@ Dead accent is right to \e,Af\e(B." nil t t t t)
 (quail-define-package
  "norwegian-keyboard" "Latin-1" "NO@" t
  "Norwegian (Norsk) input method simulating SUN Norwegian keyboard"
- nil t t t t)
+ nil t t t t nil nil nil nil nil t)
 
 ;; 1!  2"  3#  4\e,A$\e(B  5%  6&  7/  8(  9)  0=  +?  |\e,A'\e(B  ~^
 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AeE\e(B  \e,AiI\e(B
@@ -1196,7 +1196,7 @@ Dead accent is right to \e,Af\e(B." nil t t t t)
 (quail-define-package
  "swedish-keyboard" "Latin-1" "SV@" t
  "Swedish (Svenska) input method simulating SUN Swedish/Finnish keyboard"
- nil t t t t)
+ nil t t t t nil nil nil nil nil t)
 
 ;; 1!  2"  3#  4\e,A$\e(B  5%  6&  7/  8(  9)  0=  +?  \e,A'=\e(B  ~^
 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AeE\e(B  \e,AiI\e(B
@@ -1238,7 +1238,7 @@ Dead accent is right to \e,Af\e(B." nil t t t t)
 (quail-define-package
  "finish-keyboard" "Latin-1" "FI@" t
  "Finish input method simulating SUN Finnish/Swedish keyboard"
- nil t t t t)
+ nil t t t t nil nil nil nil nil t)
 
 ;; 1!  2"  3#  4\e,A$\e(B  5%  6&  7/  8(  9)  0=  +?  \e,A'=\e(B  ~^
 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AeE\e(B  \e,AiI\e(B
@@ -1280,7 +1280,7 @@ Dead accent is right to \e,Af\e(B." nil t t t t)
 (quail-define-package
  "german" "Latin-1" "DE@" t
  "German (Deutsch) input method simulating SUN German keyboard"
- nil t t t t)
+ nil t t t t nil nil nil nil nil t)
 
 ;; 1!  2"  3\e,A'\e(B  4$  5%  6&  7/  8(  9)  0=  \e,A_\e(B?  [{  ]}
 ;;  qQ  wW  eE  rR  tT  zZ  uU  iI  oO  pP  \e,A|\\e(B  +*
@@ -1322,7 +1322,7 @@ Dead accent is right to \e,Af\e(B." nil t t t t)
 (quail-define-package
  "italian-keyboard" "Latin-1" "IT@" t
  "Italian (Italiano) input method simulating SUN Italian keyboard"
- nil t t t t)
+ nil t t t t nil nil nil nil nil t)
 
 ;; 1!  2"  3\e,A#\e(B  4$  5%  6&  7/  8(  9)  0=  '?  \e,Al\e(B^  `~
 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,Ahi\e(B  +*
@@ -1363,7 +1363,7 @@ Dead accent is right to \e,Af\e(B." nil t t t t)
 (quail-define-package
  "spanish-keyboard" "Latin-1" "ES@" t
  "Spanish (Espa\e,Aq\e(Bol) input method simulating SUN Spanish keyboard"
- nil t t t t)
+ nil t t t t nil nil nil nil nil t)
 
 ;; 1!  2"  3\e,A7\e(B  4$  5%  6&  7/  8(  9)  0=  '?  \e,A!?\e(B  \e,AmM\e(B
 ;;  qQ  wW  eE  rR  tT  yY  uU  iI  oO  pP  \e,AiI\e(B  \e,AsS\e(B
@@ -1405,7 +1405,7 @@ Dead accent is right to \e,Af\e(B." nil t t t t)
 (quail-define-package
  "english-dvorak" "English" "DV@" t
  "English (ASCII) input method simulating Dvorak keyboard"
- 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)  [{  ]}  `~
 ;;  '"  ,<  .>  pP  yY  fF  gG  cC  rR  lL  /?  =+

diff --git a/leim/quail/latin-pre.el b/leim/quail/latin-pre.el
index 54a6189b6d4912c5eb99aca7dc241dd31c55e021..050118a875e9fbb03d8c22ae2845955e86c5af24 100644 (file)
--- a/leim/quail/latin-pre.el
+++ b/leim/quail/latin-pre.el
@@ -44,7 +44,7 @@
    cedilla   |   ~    | ~c -> \e,Ag\e(B
     misc     |  ----  | \"s -> \e,A_\e(B, ~d -> \e,Ap\e(B, ~t -> \e,A~\e(B, /a -> \e,Ae\e(B, /e -> \e,Af\e(B, /o -> \e,Ax\e(B
    symbol    |   ~    | ~> -> \e,A;\e(B, ~< -> \e,A+\e(B, ~! -> \e,A!\e(B, ~? -> \e,A?\e(B, ~~ -> \e,A8\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("'A" ?\e,AA\e(B)
@@ -139,7 +139,7 @@
     tilde    |   ~    | ~n -> \e,Aq\e(B
    cedilla   |   ~    | ~c -> \e,Ag\e(B
    symbol    |   ~    | ~> -> \e,A;\e(B, ~< -> \e,A+\e(B, ~! -> \e,A!\e(B, ~? -> \e,A?\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("'A" ?\e,AA\e(B)
@@ -182,7 +182,7 @@
 Key translation rules are:
  ^H -> ?\e,A&\e(B, ^J -> ?\e,A,\e(B, ^h -> ?\e,A6\e(B, ^j -> ?\e,A<\e(B, ^C -> ?\e,AF\e(B, ^G -> ?\e,AX\e(B,
  ^S -> ?\e,A^\e(B, ^c -> ?\e,Af\e(B, ^g -> ?\e,Ax\e(B, ^s -> ?\e,A~\e(B, ~U -> ?\e,A]\e(B, ~u -> ?\e,A}\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("^H" ?\e,A&\e(B)
@@ -214,7 +214,7 @@ Key translation rules are:
   diaeresis  |   \"   | \"i -> \e,Ao\e(B
    cedilla   | ~ or , | ~c -> \e,Ag\e(B, ,c -> \e,Ag\e(B
    symbol    |   ~    | ~> -> \e,A;\e(B, ~< -> \e,A+\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("'E" ?\e,AI\e(B)
@@ -260,7 +260,7 @@ Key translation rules are:
  "German (Deutsch) input method with prefix modifiers
 Key translation rules are:
  \"A -> \e,AD\e(B -> \"O -> \e,AV\e(B, \"U -> \e,A\\e(B, \"s -> ?\e,A_\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("\"A" ?\e,AD\e(B)
@@ -278,7 +278,7 @@ Key translation rules are:
  "Irish input method with prefix modifiers
 Key translation rules are:
  'A -> \e,AA\e(B, 'E -> \e,AI\e(B, 'I -> \e,AM\e(B, 'O -> \e,AS\e(B, 'U -> \e,AZ\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("'A" ?\e,AA\e(B)
@@ -306,7 +306,7 @@ Key translation rules are:
   diaeresis  |   \"    | \"u -> \e,A|\e(B
     tilde    |   ~    | ~a -> \e,Ac\e(B
    cedilla   | ' or , | 'c -> \e,Ag\e(B, ,c -> \e,Ag\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("'A" ?\e,AA\e(B)
@@ -355,7 +355,7 @@ Key translation rules are:
   diaeresis  |   \"    | \"u -> \e,A|\e(B
     tilde    |   ~    | ~n -> \e,Aq\e(B
    symbol    |   ~    | ~> -> \e,A;\e(B, ~< -> \e,A+\e(B, ~! -> \e,A!\e(B, ~? -> \e,A?\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("'A" ?\e,AA\e(B)
@@ -395,7 +395,7 @@ Key translation rules are:
    cedilla   |   `    | `c -> \e,Bg\e(B, `e -> ?\e,Bj\e(B
     misc     |  ----  | 'd -> \e,Bp\e(B, `l -> \e,B3\e(B, `z -> \e,B?\e(B, ~o -> \e,Bu\e(B, ~u -> \e,B{\e(B
    symbol    |   ~    | `. -> \e,B\7f\e(B, ~~ -> \e,B"\e(B, ~. -> ?\e,B8\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("'A" ?\e,BA\e(B)
@@ -504,7 +504,7 @@ Key translation rules are:
   dot above  | ~ / .  | ~o -> \e,Cu\e(B, /o -> \e,Cu\e(B, .o -> \e,Cu\e(B
     misc     |  ----  | \"s -> \e,C_\e(B, ~g -> \e,C;\e(B, ~u -> \e,C}\e(B, /h -> \e,C1\e(B, /i -> \e,C9\e(B
    symbol    |   ~    | ~` -> \e,C"\e(B, /# -> \e,C#\e(B, /$ -> \e,C$\e(B, // -> \e,C0\e(B
-" nil t)
+" nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
  ("'A" ?\e,CA\e(B)