("romanian-prefix"): New input method.

("romanian-alt-prefix"): New input method.

diff --git a/leim/quail/latin-pre.el b/leim/quail/latin-pre.el
index 66a3a7ca88dbb8df6234ee0ea25d83beae7c99cd..ec5e2d9b59c2140f5fe5bacf7f6401a7641a3bc1 100644 (file)
--- 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\e,Bb\e(Bne\e,B:\e(Bte) input method with prefix modifiers
+
+    effect   | prefix | examples
+ ------------+--------+------------------
+    tilde    |   ~    | ~a -> \e,Bc\e(B
+  circumflex |   ^    | ^a -> \e,Bb\e(B, ^i -> \e,Bn\e(B
+   cedilla   |   ,    | ,s -> \e,B:\e(B, ,t -> \e,B~\e(B
+   ~         |   ~    | ~~ -> ~
+   ^         |   ^    | ^^ -> ^
+   ,         |   ,    | ,, -> ,
+" nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("~A" ?\e,BC\e(B) ("~a" ?\e,Bc\e(B)
+ ("^A" ?\e,BB\e(B) ("^a" ?\e,Bb\e(B)
+ ("^I" ?\e,BN\e(B) ("^i" ?\e,Bn\e(B)
+ (",S" ?\e,B*\e(B) (",s" ?\e,B:\e(B)
+ (",T" ?\e,B^\e(B) (",t" ?\e,B~\e(B)
+ ("^^" ?^) ("~~" ?~) (",," ?,))
+
+(quail-define-package
+ "romanian-alt-prefix" "Romanian" "RO>" t
+ "Alternative Romanian (rom\e,Bb\e(Bne\e,B:\e(Bte) input method with prefix modifiers
+
+    effect   | prefix | examples
+ ------------+--------+------------------
+    tilde    |   \"    | \"a -> \e,Bb\e(B
+  circumflex |   '    | 'a -> \e,Bb\e(B, 'i -> \e,Bn\e(B
+   cedilla   |   '    | 's -> \e,B:\e(B, 't -> \e,B~\e(B
+   '         |   '    | '' -> '
+   \"         |   \"    | \"\" -> \"
+" nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("'A" ?\e,BC\e(B) ("'a" ?\e,Bc\e(B)
+ ("\"A" ?\e,BB\e(B) ("\"a" ?\e,Bb\e(B)
+ ("'I" ?\e,BN\e(B) ("'i" ?\e,Bn\e(B)
+ ("'S" ?\e,B*\e(B) ("'s" ?\e,B:\e(B)
+ ("'T" ?\e,B^\e(B) ("'t" ?\e,B~\e(B)
+ ("''" ?') ("\"\"" ?\"))
+
 (quail-define-package
  "german-prefix" "Latin-1" "DE>" t
  "German (Deutsch) input method with prefix modifiers