From 847fb74822ac8959c1ffca36b8cf1adbef9ec609 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 10 May 1999 00:56:54 +0000 Subject: [PATCH] ("romanian-prefix"): New input method. ("romanian-alt-prefix"): New input method. --- leim/quail/latin-pre.el | 43 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) diff --git a/leim/quail/latin-pre.el b/leim/quail/latin-pre.el index 66a3a7ca88..ec5e2d9b59 100644 --- a/leim/quail/latin-pre.el +++ b/leim/quail/latin-pre.el @@ -258,6 +258,49 @@ Key translation rules are: (", " ?~) ) +(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 -- 2.39.2