("lithuanian-numeric", "lithuanian-keyboard", "latvian-keyboard"):

Fix bogus LHS of rules.

1 files changed, 67 insertions, 68 deletions

diff --git a/leim/quail/latin-alt.el b/leim/quail/latin-alt.el
index 361fd172ebb..c81a893b6cc 100644
--- a/leim/quail/latin-alt.el
+++ b/leim/quail/latin-alt.el
@@ -1628,27 +1628,26 @@ Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 " nil t t t t nil nil nil nil nil t)
 
 (quail-define-rules
- (?1 ?$,1 %(B)
- (?2 ?$,1 -(B)
- (?3 ?$,1 9(B)
- (?4 ?$,1 7(B)
- (?5 ?$,1 O(B)
- (?6 ?$,1!!(B)
- (?7 ?$,1!3(B)
- (?8 ?$,1!+(B)
- (?9 ?$,1r~(B)
- (?0 ?$,1r|(B)
- (?= ?$,1!>(B)
- (?! ?$,1 $(B)
- (?@ ?$,1 ,(B)
- (?# ?$,1 8(B)
- (?$ ?$,1 6(B)
- (?% ?$,1 N(B)
- (?^ ?$,1! (B)
- (?& ?$,1!2(B)
- (?* ?$,1!*(B)
- (?+ ?$,1!=(B))
-
+ ("?1" ?$,1 %(B)
+ ("?2" ?$,1 -(B)
+ ("?3" ?$,1 9(B)
+ ("?4" ?$,1 7(B)
+ ("?5" ?$,1 O(B)
+ ("?6" ?$,1!!(B)
+ ("?7" ?$,1!3(B)
+ ("?8" ?$,1!+(B)
+ ("?9" ?$,1r~(B)
+ ("?0" ?$,1r|(B)
+ ("?=" ?$,1!>(B)
+ ("?!" ?$,1 $(B)
+ ("?@" ?$,1 ,(B)
+ ("?#" ?$,1 8(B)
+ ("?$" ?$,1 6(B)
+ ("?%" ?$,1 N(B)
+ ("?^" ?$,1! (B)
+ ("?&" ?$,1!2(B)
+ ("?*" ?$,1!*(B)
+ ("?+" ?$,1!=(B))
 
 ;; From XFree 4.1 /usr/X11R6/lib/X11/xkb/symbols/lt, suggested by
 ;; Albertas Agejevas <alga@uosis.mif.vu.lt>
@@ -1658,23 +1657,23 @@ Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 " nil t t t t nil nil nil nil nil t)
 
 (quail-define-rules
- (?1 ?$,1 %(B)
- (?! ?$,1 $(B)
- (?2 ?$,1 -(B)
- (?@ ?$,1 ,(B)
- (?# ?$,1 8(B)
- (?4 ?$,1 7(B)
- (?$ ?$,1 6(B)
- (?5 ?$,1 O(B)
- (?% ?$,1 N(B)
- (?6 ?$,1!!(B)
- (?^ ?$,1! (B)
- (?7 ?$,1!3(B)
- (?& ?$,1!2(B)
- (?9 ?$,1r~(B)
- (?0 ?$,1r|(B)
- (?= ?$,1!>(B)
- (?+ ?$,1!=(B))
+ ("?1" ?$,1 %(B)
+ ("?!" ?$,1 $(B)
+ ("?2" ?$,1 -(B)
+ ("?@" ?$,1 ,(B)
+ ("?#" ?$,1 8(B)
+ ("?4" ?$,1 7(B)
+ ("?$" ?$,1 6(B)
+ ("?5" ?$,1 O(B)
+ ("?%" ?$,1 N(B)
+ ("?6" ?$,1!!(B)
+ ("?^" ?$,1! (B)
+ ("?7" ?$,1!3(B)
+ ("?&" ?$,1!2(B)
+ ("?9" ?$,1r~(B)
+ ("?0" ?$,1r|(B)
+ ("?=" ?$,1!>(B)
+ ("?+" ?$,1!=(B))
 
 ;; From XFree 4.1 /usr/X11R6/lib/X11/xkb/symbols/lv
 (quail-define-package
@@ -1683,35 +1682,35 @@ Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
 " nil t t t t nil nil nil nil nil t)
 
 (quail-define-rules
- (?4 ?$,1tL(B)
- (?$ ?,A"(B)
- (?e ?$,1 3(B)
- (?E ?$,1 2(B)
- (?r ?$,1 w(B)
- (?R ?$,1 v(B)
- (?u ?$,1!+(B)
- (?U ?$,1!*(B)
- (?i ?$,1 K(B)
- (?I ?$,1 J(B)
- (?o ?$,1 m(B)
- (?O ?$,1 l(B)
- (?a ?$,1 !(B)
- (?A ?$,1  (B)
- (?s ?$,1!!(B)
- (?S ?$,1! (B)
- (?g ?$,1 C(B)
- (?G ?$,1 B(B)
- (?k ?$,1 W(B)
- (?K ?$,1 V(B)
- (?l ?$,1 \(B)
- (?L ?$,1 [(B)
- (?\' ?$,1r|(B)
- (?\" ?$,1r~(B)
- (?z ?$,1!>(B)
- (?Z ?$,1!=(B)
- (?c ?$,1 -(B)
- (?C ?$,1 ,(B)
- (?n ?$,1 f(B)
- (?N ?$,1 e(B))
+ ("?4" ?$,1tL(B)
+ ("?$" ?,A"(B)
+ ("?e" ?$,1 3(B)
+ ("?E" ?$,1 2(B)
+ ("?r" ?$,1 w(B)
+ ("?R" ?$,1 v(B)
+ ("?u" ?$,1!+(B)
+ ("?U" ?$,1!*(B)
+ ("?i" ?$,1 K(B)
+ ("?I" ?$,1 J(B)
+ ("?o" ?$,1 m(B)
+ ("?O" ?$,1 l(B)
+ ("?a" ?$,1 !(B)
+ ("?A" ?$,1  (B)
+ ("?s" ?$,1!!(B)
+ ("?S" ?$,1! (B)
+ ("?g" ?$,1 C(B)
+ ("?G" ?$,1 B(B)
+ ("?k" ?$,1 W(B)
+ ("?K" ?$,1 V(B)
+ ("?l" ?$,1 \(B)
+ ("?L" ?$,1 [(B)
+ ("?\'" ?$,1r|(B)
+ ("?\"" ?$,1r~(B)
+ ("?z" ?$,1!>(B)
+ ("?Z" ?$,1!=(B)
+ ("?c" ?$,1 -(B)
+ ("?C" ?$,1 ,(B)
+ ("?n" ?$,1 f(B)
+ ("?N" ?$,1 e(B))
 
 ;;; latin-alt.el ends here