* cyrillic.el (bulgarian-alt-phonetic): New input method. (tiny change)

Fixes: debbugs:10893

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 7f37934faf83b495aa1e51e596fe70b9b9528682..40e570c99c176f433870d7bdc6fc4898346e6ded 100644 (file)
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-13  Йордан Миладинов  <jordanmiladinov@gmail.com>  (tiny change)
+
+       * quail/cyrillic.el (bulgarian-alt-phonetic):
+       New input method.  (Bug#10893)
+
 2012-03-09  Mohsen BANAN  <libre@mohsen.1.banan.byname.net>
 
        * quail/persian.el: Update which includes: (1) full compliance to

diff --git a/leim/quail/cyrillic.el b/leim/quail/cyrillic.el
index 0c2f64e3d693b0829e2bcfbe03f6c1a9aaeacebd..0e5fb0cdb8310b580ff268430783b53d42899f50 100644 (file)
--- a/leim/quail/cyrillic.el
+++ b/leim/quail/cyrillic.el
@@ -1236,6 +1236,79 @@ Unicode based."
  ("." ?\e$,1(n\e(B)
  ("/" ?.))
 
+(quail-define-package
+ "bulgarian-alt-phonetic" "Bulgarian" "\e$,1(1(=(D\e(B"
+ nil
+ "Bulgarian alternative Phonetic keyboard layout, producing Unicode.
+
+This phonetic layout replaces all the Latin letters with Bulgarian
+\(Cyrillic\) letters based on similarities in their pronunciation or look.
+
+Note that, since the letters '\e,Li\e(B', '\e,Ll\e(B', '\e,Ln\e(B' and '\e,Lo\e(B' are attached to the
+']', '\', '`' and '[' keys respectively, Caps Lock does not affect them."
+nil t t t t nil nil nil nil nil t)
+
+;;  \e$,1(N\e(B  1! 2@ 3\e$,1uV\e(B 4$ 5% 6\e$,1tL\e(B 7\e,A'\e(B 8* 9( 0) -\e$,1rs\e(B =+ \e$,1(l(}\e(B
+;;      \e$,1(G\e(B  \e$,1(H\e(B  \e$,1(5\e(B  \e$,1(@\e(B  \e$,1(B\e(B  \e$,1(J\e(B  \e$,1(C\e(B  \e$,1(8\e(B  \e$,1(>\e(B  \e$,1(?\e(B  \e$,1(O\e(B  \e$,1(I\e(B
+;;       \e,L0\e(B  \e$,1(A\e(B  \e$,1(4\e(B  \e$,1(D\e(B  \e$,1(3\e(B  \e$,1(E\e(B  \e$,1(9\e(B  \e$,1(:\e(B  \e$,1(;\e(B  :; '"
+;;        \e$,1(7\e(B  \e$,1(6\e(B  \e$,1(F\e(B  \e$,1(2\e(B  \e$,1(1\e(B  \e$,1(=\e(B  \e$,1(<\e(B  ,\e$,1r~\e(B .\e$,1r|\e(B /?
+
+(quail-define-rules
+ ("#" ?\e,Lp\e(B)
+ ("&" ?\e,A'\e(B)
+ ("/#" ?#)
+ ("/&" ?&)
+ ("/<" ?<)
+ ("/>" ?>)
+ ("/[" ?\[)
+ ("/\\" ?\\)
+ ("/]" ?\])
+ ("/^" ?^)
+ ("/_" ?_)
+ ("/`" ?`)
+ ("/{" ?{)
+ ("/|" ?|)
+ ("/}" ?})
+ ("/~" ?~)
+ ("<" ?\e$,1r~\e(B)
+ (">" ?\e$,1r|\e(B)
+ ("A" ?\e$,1(0\e(B) ("a" ?\e$,1(P\e(B)
+ ("B" ?\e$,1(1\e(B) ("b" ?\e$,1(Q\e(B)
+ ("C" ?\e$,1(F\e(B) ("c" ?\e$,1(f\e(B)
+ ("D" ?\e$,1(4\e(B) ("d" ?\e$,1(T\e(B)
+ ("E" ?\e$,1(5\e(B) ("e" ?\e$,1(U\e(B)
+ ("F" ?\e$,1(D\e(B) ("f" ?\e$,1(d\e(B)
+ ("G" ?\e$,1(3\e(B) ("g" ?\e$,1(S\e(B)
+ ("H" ?\e$,1(E\e(B) ("h" ?\e$,1(e\e(B)
+ ("I" ?\e$,1(8\e(B) ("i" ?\e$,1(X\e(B)
+ ("J" ?\e$,1(9\e(B) ("j" ?\e$,1(Y\e(B)
+ ("K" ?\e$,1(:\e(B) ("k" ?\e$,1(Z\e(B)
+ ("L" ?\e$,1(;\e(B) ("l" ?\e$,1([\e(B)
+ ("M" ?\e$,1(<\e(B) ("m" ?\e$,1(\\e(B)
+ ("N" ?\e$,1(=\e(B) ("n" ?\e$,1(]\e(B)
+ ("O" ?\e$,1(>\e(B) ("o" ?\e$,1(^\e(B)
+ ("P" ?\e$,1(?\e(B) ("p" ?\e$,1(_\e(B)
+ ("Q" ?\e$,1(G\e(B) ("q" ?\e$,1(g\e(B)
+ ("R" ?\e$,1(@\e(B) ("r" ?\e$,1(`\e(B)
+ ("S" ?\e$,1(A\e(B) ("s" ?\e$,1(a\e(B)
+ ("T" ?\e$,1(B\e(B) ("t" ?\e$,1(b\e(B)
+ ("U" ?\e$,1(C\e(B) ("u" ?\e$,1(c\e(B)
+ ("V" ?\e$,1(2\e(B) ("v" ?\e$,1(R\e(B)
+ ("W" ?\e$,1(H\e(B) ("w" ?\e$,1(h\e(B)
+ ("X" ?\e$,1(6\e(B) ("x" ?\e$,1(V\e(B)
+ ("Y" ?\e$,1(J\e(B) ("y" ?\e$,1(j\e(B)
+ ("Z" ?\e$,1(7\e(B) ("z" ?\e$,1(W\e(B)
+ ("[" ?\e$,1(o\e(B)
+ ("\\" ?\e$,1(l\e(B)
+ ("]" ?\e$,1(i\e(B)
+ ("^" ?\e$,1tL\e(B)
+ ("_" ?\e$,1rs\e(B)
+ ("`" ?\e$,1(n\e(B)
+ ("{" ?\e$,1(O\e(B)
+ ("|" ?\e$,1(}\e(B)
+ ("}" ?\e$,1(I\e(B)
+ ("~" ?\e$,1(N\e(B))
+
 ;; From `Bulgarian-PHO.kmap for Yudit', Alexander Shopov
 ;; <al_shopov@web.bg>.