procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

("esperanto-prefix"): Make it produce Latin-3

Browse source 
characters, not Latin-1.
This commit is contained in:
Kenichi Handa 1999-12-13 01:13:00 +00:00
parent 295ccc644c
commit fa4e74ee40
1 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
leim/quail/latin-pre.el
View file

@ -180,28 +180,28 @@
)
(quail-define-package
"esperanto-prefix" "Latin-1" "EO>" t
"esperanto-prefix" "Latin-3" "EO>" t
"Esperanto input method with prefix modifiers
Key translation rules are:
^H -> ?,A&(B ^J -> ?,A,(B ^h -> ?,A6(B ^j -> ?,A<(B ^C -> ?,AF(B ^G -> ?,AX(B,
^S -> ?,A^(B ^c -> ?,Af(B ^g -> ?,Ax(B ^s -> ?,A~(B ~U -> ?,A](B ~u -> ?,A}(B
^H -> ?,C&(B ^J -> ?,C,(B ^h -> ?,C6(B ^j -> ?,C<(B ^C -> ?,CF(B ^G -> ?,CX(B,
^S -> ?,C^(B ^c -> ?,Cf(B ^g -> ?,Cx(B ^s -> ?,C~(B ~U -> ?,C](B ~u -> ?,C}(B
" nil t nil nil nil nil nil nil nil nil t)
(quail-define-rules
("^H" ?,A&(B)
("^J" ?,A,(B)
("^h" ?,A6(B)
("^j" ?,A<(B)
("^C" ?,AF(B)
("^G" ?,AX(B)
("^S" ?,A^(B)
("^c" ?,Af(B)
("^g" ?,Ax(B)
("^s" ?,A~(B)
("^H" ?,C&(B)
("^J" ?,C,(B)
("^h" ?,C6(B)
("^j" ?,C<(B)
("^C" ?,CF(B)
("^G" ?,CX(B)
("^S" ?,C^(B)
("^c" ?,Cf(B)
("^g" ?,Cx(B)
("^s" ?,C~(B)
("^^" ?^)
("^ " ?^)
("~U" ?,A](B)
("~u" ?,A}(B)
("~U" ?,C](B)
("~u" ?,C}(B)
("~ " ?~)
)