Mercurial > emacs
changeset 24705:af1bca0bf79b
("romanian-prefix"): New input method.
("romanian-alt-prefix"): New input method.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 10 May 1999 00:56:54 +0000 |
| parents | c5be96c5a5c1 |
| children | 778b3f056f7f |
| files | leim/quail/latin-pre.el |
| diffstat | 1 files changed, 43 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/leim/quail/latin-pre.el Sun May 09 17:57:03 1999 +0000 +++ b/leim/quail/latin-pre.el Mon May 10 00:56:54 1999 +0000 @@ -259,6 +259,49 @@ ) (quail-define-package + "romanian-prefix" "Romanian" "RO>" t + "Romanian (rom,Bb(Bne,B:(Bte) input method with prefix modifiers + + effect | prefix | examples + ------------+--------+------------------ + tilde | ~ | ~a -> ,Bc(B + circumflex | ^ | ^a -> ,Bb(B, ^i -> ,Bn(B + cedilla | , | ,s -> ,B:(B, ,t -> ,B~(B + ~ | ~ | ~~ -> ~ + ^ | ^ | ^^ -> ^ + , | , | ,, -> , +" nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("~A" ?,BC(B) ("~a" ?,Bc(B) + ("^A" ?,BB(B) ("^a" ?,Bb(B) + ("^I" ?,BN(B) ("^i" ?,Bn(B) + (",S" ?,B*(B) (",s" ?,B:(B) + (",T" ?,B^(B) (",t" ?,B~(B) + ("^^" ?^) ("~~" ?~) (",," ?,)) + +(quail-define-package + "romanian-alt-prefix" "Romanian" "RO>" t + "Alternative Romanian (rom,Bb(Bne,B:(Bte) input method with prefix modifiers + + effect | prefix | examples + ------------+--------+------------------ + tilde | \" | \"a -> ,Bb(B + circumflex | ' | 'a -> ,Bb(B, 'i -> ,Bn(B + cedilla | ' | 's -> ,B:(B, 't -> ,B~(B + ' | ' | '' -> ' + \" | \" | \"\" -> \" +" nil t nil nil nil nil nil nil nil nil t) + +(quail-define-rules + ("'A" ?,BC(B) ("'a" ?,Bc(B) + ("\"A" ?,BB(B) ("\"a" ?,Bb(B) + ("'I" ?,BN(B) ("'i" ?,Bn(B) + ("'S" ?,B*(B) ("'s" ?,B:(B) + ("'T" ?,B^(B) ("'t" ?,B~(B) + ("''" ?') ("\"\"" ?\")) + +(quail-define-package "german-prefix" "Latin-1" "DE>" t "German (Deutsch) input method with prefix modifiers Key translation rules are: