Initial revision

1 files changed, 519 insertions, 0 deletions

diff --git a/leim/quail/tibetan.el b/leim/quail/tibetan.el
new file mode 100644
index 00000000000..00f7b1ed489
--- /dev/null
+++ b/leim/quail/tibetan.el
@@ -0,0 +1,519 @@
+;;; quail/tibetan.el -- Quail package for inputting Tibetan characters
+
+;; Copyright (C) 1995 Free Software Foundation, Inc.
+;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
+
+;; Keywords: multilingual, input method, Tibetan
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;; Author: Toru TOMABECHI, <Toru.Tomabechi@orient.unil.ch>
+
+;; Created: Feb. 17. 1997
+
+;; History:
+;; 1997.03.13 Support for inputting special signs and punctuations added.
+;;            (Only Ext. Wylie input)
+
+;;; Code:
+
+(require 'quail)
+
+;;;
+;;; Functions for making some composite punctuations.
+;;;
+
+(defun tibetan-quail-bzhi-shad (&rest ignore)
+  (quail-delete-region)
+  (quail-delete-overlays)
+  (insert (compose-chars ?$(7!>(B '(mr . ml) ?\x20 '(mr . ml) ?$(7!>(B))
+  (throw 'quail-tag nil))
+
+(defun tibetan-quail-nyi-zla (&rest ignore)
+  (quail-delete-region)
+  (quail-delete-overlays)
+  (insert (compose-chars ?$(7#R(B '(mr . ml) ?$(7#S(B))
+  (throw 'quail-tag nil))
+
+(defun tibetan-quail-nyi-zla-phur-shad (&rest ignore)
+  (quail-delete-region)
+  (quail-delete-overlays)
+  (insert (compose-chars ?$(7#R(B '(mr . ml) ?$(7#S(B '(bc . tl) ?$(7!I(B))
+  (throw 'quail-tag nil))
+
+(defun tibetan-quail-nyi-zla-double (&rest ignore)
+  (quail-delete-region)
+  (quail-delete-overlays)
+  (insert (compose-chars ?$(7#R(B '(mr . ml) ?$(7#S(B '(mr . ml) ?$(7#S(B))
+  (throw 'quail-tag nil))
+
+(defun tibetan-quail-nyi-zla-triple (&rest ignore)
+  (quail-delete-region)
+  (quail-delete-overlays)
+  (insert (compose-chars ?$(7#R(B '(mr . ml) ?$(7#S(B '(mr . ml) ?$(7#S(B '(mr . ml) ?$(7#S(B))
+  (throw 'quail-tag nil))
+
+;;;
+;;; Setting-ups for Extended Wylie input.
+;;;
+
+(defun quail-tibetan-input-wylie (key &rest ignore)
+  (let (pc)
+    (quail-delete-region)
+    (quail-delete-overlays)
+    (setq pc (preceding-char))
+    (if (not (eq (point) (point-min)))
+        (delete-backward-char 1 nil))
+    (insert (tibetan-composition pc key))
+    (throw 'quail-tag nil)))
+
+
+(quail-define-package "tibetan-wylie" "Tibetan" "TIBw" t
+"Tibetan character input by Extended Wylie key assignment.
+
+    +-------------------------------------+
+    |2$(7"!`#T1$(8!;(B k |2$(7""`#T1$(8!;(B kh |2$(7"#`#T1$(8!;(B g  |2$(7"$`#T1$(8!;(B gh |2$(7"%`#T1$(8!;(B ng|   $(7"S(B i          $(8!=(B        /
+    |2$(7"&`#T1$(8!;(B c |2$(7"'`#T1$(8!;(B ch |2$(7"(`#T1$(8!;(B j  |       |$(7"*$(8!;(B ny|   $(7"U(B u          $(7!>(B       //
+    |$(7"+$(8!;(B T |$(7",$(8!;(B TH |$(7"-$(8!;(B D  |$(7".$(8!;(B DH |$(7"/$(8!;(B N |   $(7"[(B e          2$(7!>P(B P$(7!>1(B    ////
+    |$(7"0$(8!;(B t |$(7"1$(8!;(B th |$(7"2$(8!;(B d  |$(7"3$(8!;(B dh |$(7"4$(8!;(B n |   $(7"](B o          $(7!A(B       ;
+    |$(7"5$(8!;(B p |$(7"6$(8!;(B ph |$(7"7$(8!;(B b  |$(7"8$(8!;(B bh |$(7"9$(8!;(B m |   $(7"\(B ai (ee, E) $(8!?(B        $
+    |$(7":$(8!;(B ts|$(7";$(8!;(B tsh|$(7"<$(8!;(B dz |$(7"=$(8!;(B dzh|$(7">$(8!;(B w |   $(7"^(B au (oo, O) $(8!@(B        &
+    |$(7"?$(8!;(B zh|$(7"@$(8!;(B z  |$(7"A$(8!;(B '  |       |$(7"B$(8!;(B y |   $(7"a(B I          2$(7#RP#SP#S1(B   *
+    |$(7"C$(8!;(B r |$(7"D$(8!;(B l  |$(7"E$(8!;(B sh |$(7"F$(8!;(B SH |$(7"G$(8!;(B s |   $(7"`(B :          2$(7#RP#SP#SP#S1(B #
+    |$(7"H$(8!;(B h |$(7"I$(8!;(B A  |$(7"J$(8!;(B kSH|       |      |   $(7"_(B M           $(7!l(B $(7!m(B   < >
+    +-------------------------------------+   $(8!D(B  %
+    (The consonant $(7"I$(8!;(B must be typed explicitly.)
+
+  NOT SPECIFIED IN EXT. WYLIE:
+    +--------------------------------------------------------+
+    |$(7"c(B = ~ |$(7"d(B = ` |$(7"e(B = , |$(7"f(B = @ |$(7!g(B = _o|$(7!e(B = _O|2$(7#RP#S_!I1(B = ^|
+    +--------------------------------------------------------+
+    |$(7"i(B = x |$(7"j(B = X |$(7"g(B = v |$(7"h(B = V |$(7"k(B = q |$(7"l(B = Q |
+    +-----------------------------------------------+
+
+  SPECIAL KEYS
+  +     :  Consonant Stacking
+          \(Consonant stacking for ordinary Tibetan is done automatically)
+  -     : No Consonant Stacking
+          \(To suppress automatic stacking for \"g-y\",
+            and to get da-drag in  -r-d, -l-d .)
+  |     : Special signs.
+
+  Tsheg is assigned to SPC. Space is assigned to period '.'.
+"
+ nil nil nil)
+
+(quail-define-rules
+ ("."    ?\x20)
+ ("k"    quail-tibetan-input-wylie)
+ ("g"    quail-tibetan-input-wylie)
+ ("c"    quail-tibetan-input-wylie)
+ ("j"    quail-tibetan-input-wylie)
+ ("T"    quail-tibetan-input-wylie)
+ ("D"    quail-tibetan-input-wylie)
+ ("N"    quail-tibetan-input-wylie)
+ ("t"    quail-tibetan-input-wylie)
+ ("d"    quail-tibetan-input-wylie)
+ ("n"    quail-tibetan-input-wylie)
+ ("p"    quail-tibetan-input-wylie)
+ ("b"    quail-tibetan-input-wylie)
+ ("m"    quail-tibetan-input-wylie)
+ ("w"    quail-tibetan-input-wylie)
+ ("z"    quail-tibetan-input-wylie)
+ ("'"    quail-tibetan-input-wylie)
+ ("y"    quail-tibetan-input-wylie)
+ ("r"    quail-tibetan-input-wylie)
+ ("l"    quail-tibetan-input-wylie)
+ ("SH"   quail-tibetan-input-wylie)
+ ("s"    quail-tibetan-input-wylie)
+ ("h"    quail-tibetan-input-wylie)
+ ("H"    quail-tibetan-input-wylie)
+ ("A"    quail-tibetan-input-wylie)
+ ("+k"   quail-tibetan-input-wylie)
+ ("+g"   quail-tibetan-input-wylie)
+ ("+c"   quail-tibetan-input-wylie)
+ ("+j"   quail-tibetan-input-wylie)
+ ("+T"   quail-tibetan-input-wylie)
+ ("+D"   quail-tibetan-input-wylie)
+ ("+N"   quail-tibetan-input-wylie)
+ ("+t"   quail-tibetan-input-wylie)
+ ("+d"   quail-tibetan-input-wylie)
+ ("+n"   quail-tibetan-input-wylie)
+ ("+p"   quail-tibetan-input-wylie)
+ ("+b"   quail-tibetan-input-wylie)
+ ("+m"   quail-tibetan-input-wylie)
+ ("+w"   quail-tibetan-input-wylie)
+ ("+z"   quail-tibetan-input-wylie)
+ ("+'"   quail-tibetan-input-wylie)
+ ("+y"   quail-tibetan-input-wylie)
+ ("+r"   quail-tibetan-input-wylie)
+ ("+l"   quail-tibetan-input-wylie)
+ ("+SH"  quail-tibetan-input-wylie)
+ ("+s"   quail-tibetan-input-wylie)
+ ("+h"   quail-tibetan-input-wylie)
+ ("+H"   quail-tibetan-input-wylie)
+ ("+A"   quail-tibetan-input-wylie)
+ ("-d"  ?$(7"2(B)                             ; To avoid default stacking
+ ("-y"  ?$(7"B(B)                             ; Idem.
+ ("a"    quail-tibetan-input-wylie)     ; invisible vowel sign
+ ("i"    quail-tibetan-input-wylie)
+ ("u"    quail-tibetan-input-wylie)
+ ("e"    quail-tibetan-input-wylie)
+ ("o"    quail-tibetan-input-wylie)
+ ("I"    quail-tibetan-input-wylie)
+ ("E"    quail-tibetan-input-wylie)
+ ("O"    quail-tibetan-input-wylie)
+ ("M"    quail-tibetan-input-wylie)
+ ("~"    quail-tibetan-input-wylie)
+ ("`"    quail-tibetan-input-wylie)
+ (","    quail-tibetan-input-wylie)
+ ("x"    quail-tibetan-input-wylie)
+ ("X"    quail-tibetan-input-wylie)
+ ("v"    quail-tibetan-input-wylie)
+ ("V"    quail-tibetan-input-wylie)
+ ("q"    quail-tibetan-input-wylie)
+ ("Q"    quail-tibetan-input-wylie)
+ ("_o"    quail-tibetan-input-wylie)
+ ("_O"    quail-tibetan-input-wylie)
+;;; ("_/"    quail-tibetan-input-wylie)
+ (":"   ?$(8"`(B)
+ (" "   ?$(8!;(B)
+ ("/"   ?$(8!=(B)
+ ("//"  ?$(7!>(B)
+ ("////" tibetan-quail-bzhi-shad)
+ ("$"   ?$(8!?(B)
+ ("/\"" ?$(8!@(B)                             ; Not defined in Ext. Wylie.
+ ("&"   ?$(8!@(B)
+ (";"   ?$(8!A(B)
+ ("%"   ?$(8!D(B)
+ ("!"   ?$(7!8(B)
+ ("<"   ?$(7!l(B)
+ (">"   ?$(7!m(B)
+ ("@"   ?$(7"f(B)
+ ("*" tibetan-quail-nyi-zla-double)
+ ("#" tibetan-quail-nyi-zla-triple)
+ ("^" tibetan-quail-nyi-zla-phur-shad)
+ ("0" ?$(7!P(B)
+ ("1" ?$(7!Q(B)
+ ("2" ?$(7!R(B)
+ ("3" ?$(7!S(B)
+ ("4" ?$(7!T(B)
+ ("5" ?$(7!U(B)
+ ("6" ?$(7!V(B)
+ ("7" ?$(7!W(B)
+ ("8" ?$(7!X(B)
+ ("9" ?$(7!Y(B)
+ ("-0" ?$(7!c(B)
+ ("-1" ?$(7!Z(B)
+ ("-2" ?$(7![(B)
+ ("-3" ?$(7!\(B)
+ ("-4" ?$(7!](B)
+ ("-5" ?$(7!^(B)
+ ("-6" ?$(7!_(B)
+ ("-7" ?$(7!`(B)
+ ("-8" ?$(7!a(B)
+ ("-9" ?$(7!b(B)
+ ("|"  "$(7!1!2!3!9!:!B!C!E!F!G!H!I!J!K!L!M!N!O!d!f!h!j!k!n!o(B")
+ )
+
+;;;
+;;; Setting-ups for TibKey input
+;;;
+
+(defconst tibetan-tibkey-to-transcription-alist
+  '(
+    ("`" . "`")                         ; sna ldan
+    ("~" . "~")                         ; sna ldan + nada
+    ("q" . "k")                         ; ka
+    ("Q" ."kSH")                        ; kSHa
+    ("w" . "kh")                        ; kha
+    ("e" . "g")                         ; ga
+    ("r" . "ng")                        ; nga
+    ("t" . "c")                         ; ca
+    ("T" . "I")                         ; gi gu log
+    ("y" . "ch")                        ; cha
+    ("u" . "j")                         ; ja
+    ("i" . "ny")                        ; nya
+    ("o" . "t")                         ; ta
+    ("O" . "T")                         ; Ta
+    ("p" . "th")                        ; tha
+    ("P" . "TH")                        ; THa
+    ("[" . "d")                         ; da 
+    ("{" . "D")                         ; Da
+    ("]" . "n")                         ; na
+    ("}" . "N")                         ; Na
+    ("a" . "p")                         ; pa
+    ("A" . "a")                         ; Vowel a (not used in original TibKey)
+    ("s" . "ph")                        ; pha
+    ("d" . "b")                         ; ba
+    ("f" . "m")                         ; ma
+    ("F" . "M")                         ; anusvara
+    ("g" . "u")                         ; zhabs kyu
+    ("G" . "i")                         ; gi gu
+    ("H" . ",")                         ; viraama
+    ("j" . "o")                         ; naro
+    ("J" . "e")                         ; 'greng bu
+    ("k" . "ts")                        ; tsa
+    ("l" . "tsh")                       ; tsha
+    (";" . "dz")                        ; dza
+    ("'" . "w")                         ; wa
+    ("\"" . "+w")                       ; wa zur
+    ("z" . "zh")                        ; zha
+    ("x" . "z")                         ; za
+    ("c" . "'")                         ; 'a
+    ("C" . "+'")                        ; 'a chung
+    ("v" . "y")                         ; ya
+    ("V" . "+y")                        ; ya btags
+    ("b" . "r")                         ; ra
+    ("B" . "+r")                        ; ra btags
+    ("n" . "l")                         ; la
+    ("N" . "+l")                        ; la btags
+    ("m" . "sh")                        ; sha
+    ("M" . "SH")                        ; SHa
+    ("," . "s")                         ; sa
+    ("." . "h")                         ; ha
+    ("/" . "A")                         ; Aa
+    ;;subjoined
+    ("hq" . "+k")                       ; ka
+    ("hQ" ."+kSH")                      ; kSHa
+    ("hw" . "+kh")                      ; kha
+    ("he" . "+g")                       ; ga
+    ("hr" . "+ng")                      ; nga
+    ("ht" . "+c")                       ; ca
+    ("hy" . "+ch")                      ; cha
+    ("hu" . "+j")                       ; ja
+    ("hi" . "+ny")                      ; nya
+    ("ho" . "+t")                       ; ta
+    ("hO" . "+T")                       ; Ta
+    ("hp" . "+th")                      ; tha
+    ("hP" . "+TH")                      ; THa
+    ("h[" . "+d")                       ; da 
+    ("h{" . "+D")                       ; Da
+    ("h]" . "+n")                       ; na
+    ("h}" . "+N")                       ; Na
+    ("ha" . "+p")                       ; pa 
+    ("hs" . "+ph")                      ; pha
+    ("hd" . "+b")                       ; ba
+    ("hf" . "+m")                       ; ma
+    ("hk" . "+ts")                      ; tsa
+    ("hl" . "+tsh")                     ; tsha
+    ("h;" . "+dz")                      ; dza
+    ("h'" . "+w")                       ; wa
+    ("hz" . "+zh")                      ; zha
+    ("hx" . "+z")                       ; za
+    ("hc" . "+'")                       ; 'a
+    ("hv" . "+y")                       ; ya
+    ("hb" . "+r")                       ; ra
+    ("hn" . "+l")                       ; la
+    ("hm" . "+sh")                      ; sha
+    ("hM" . "+SH")                      ; SHa
+    ("h," . "+s")                       ; sa
+    ("h." . "+h")                       ; ha
+    ("h/" . "+A")                       ; Aa
+    ))
+
+(defun quail-tibetan-input-tibkey (key &rest ignore)
+  (let (trans pc)
+    (setq trans (cdr (assoc key tibetan-tibkey-to-transcription-alist)))
+    (quail-delete-region)
+    (quail-delete-overlays)
+    (setq pc (preceding-char))
+    (if (not (eq (point) (point-min)))
+        (delete-backward-char 1 nil))
+    (insert (tibetan-composition pc trans))
+    (throw 'quail-tag nil)))
+
+
+
+(quail-define-package "tibetan-tibkey" "Tibetan" "TIBt" t
+"Tibetan character input by TibKey key assignment.
+
+(This implementation is still incomplete.
+ Therefore, the following key assignment is a provisional one.)
+
+  [NOT SHIFTED]
+
+  +-------------------------------------------------------+
+  |`$(7"d(B|1$(7!Q(B|2$(7!R(B|3$(7!S(B|4$(7!T(B|5$(7!U(B|6$(7!V(B|7$(7!W(B|8$(7!X(B|9$(7!Y(B|0$(7!P(B|-  |=  |\\$(7!8(B|
+  +-------------------------------------------------------+
+     |q$(7"!(B|w$(7""(B|e$(7"#(B|r$(7"%(B|t$(7"&(B|y$(7"'(B|u$(7"((B|i$(7"*(B|o$(7"0(B|p$(7"1(B|[$(7"2(B|]$(7"4(B|
+     +-----------------------------------------------+
+      |a$(7"5(B| s$(7"6(B| d$(7"7(B|f$(7"9(B|g$(7"U(B|h  |j$(7"](B|k$(7":(B|l$(7";(B|;$(7"<(B|'$(7">(B|
+      +---------------------------------------------+
+         |z$(7"?(B|x$(7"@(B|c$(7"A(B|v$(7"B(B|b$(7"C(B|n$(7"D(B|m$(7"E(B|,$(7"G(B|.$(7"H(B|/$(7"I(B|
+         +---------------------------------------+
+  The key 'h' is used for consonant stacking.
+
+  [SHIFTED]
+
+  +----------------------------------------------------------+
+  |~$(7"c(B|!2$(7#RP#S1(B|@$(7#S(B|#  |$  |%$(8!D(B |^$(7!1(B|&  |*  |($(7!l(B|)$(7!m(B|_  |+$(7!A(B| |$(7!8(B|
+  +----------------------------------------------------------+
+     |Q$(7"J(B|W$(7#T(B|E  |R  |T$(7"a(B|Y  |U  |I$(7"f(B|O$(7"+(B|P$(7",(B|{$(7"-(B|}$(7"/(B|
+     +-----------------------------------------------+
+      |A  |S  |D  |F$(7"_(B|G$(7"S(B|H$(7"e(B|J$(7"[(B|K  |L  |:$(7"`(B|\"$(7#>(B|
+      +-------------------------------------------+
+         |Z  |X  |C$(7#A(B|V$(7#B(B|B$(7#C(B|N$(7#D(B|M$(7"F(B|<  |>  |?$(8!=(B |
+         +---------------------------------------+        
+
+  DIFFERENCE FROM THE ORIGINAL TIBKEY:
+
+    1. Vowel 'a' should be typed explicitly by the key 'A'.
+       This is really inconvenient. But to make the coding
+       scheme clear, it is desirable to have an explicite
+       vowel sign for 'a'.
+    2. Tsheg is assigned to SPC key. You can input a space
+       by typing '>'.
+    4. To avoid the default stacking $(7$B(B and to obtain $(7"#"B(B,
+       type 'E' instead of 'v' (=$(7"B(B).
+    3. There are many characters that are not supported in the
+       current implementation (especially special signs). I hope
+       I'll complete in a future revision.
+"
+ nil t)
+
+(quail-define-rules
+ ("`" quail-tibetan-input-tibkey)       ; sna ldan, not supported yet
+ ("~" quail-tibetan-input-tibkey)       ; sna ldan + nada
+ ("1" ?$(7!Q(B)
+ ("!" tibetan-quail-nyi-zla)            ; nyi zla long
+ ("2" ?$(7!R(B)
+ ("@" ?$(7#S(B)                               ; nyi zla simple
+ ("3" ?$(7!S(B)
+;;; ("#" )
+ ("4" ?$(7!T(B)
+;;; ("$" )
+ ("5" ?$(7!U(B)
+ ("%" ?$(8!D(B)
+ ("6" ?$(7!V(B)
+ ("^" ?$(7!1(B)
+ ("7" ?$(7!W(B)
+ ("8" ?$(7!X(B)
+;;; ("*" ) ; avagraha, not supported yet
+ ("9" ?$(7!Y(B)
+ ("(" ?$(7!l(B)
+ ("0" ?$(7!P(B)
+ (")" ?$(7!m(B)
+;;; ("-" ) ; enphatic, not yet supported 
+;;; ("_" ) ; id.
+;;; ("=" ) ; special sign, not yet supported
+ ("+" ?$(8!A(B)
+ ("\\" ?$(8!?(B)
+ ("|" ?$(7!8(B)
+ ("q" quail-tibetan-input-tibkey)       ; ka
+ ("Q" quail-tibetan-input-tibkey)       ; kSHa
+ ("w" quail-tibetan-input-tibkey)       ; kha
+ ("e" quail-tibetan-input-tibkey)       ; ga
+ ("E" ?$(7"B(B)
+ ("r" quail-tibetan-input-tibkey)       ; nga
+ ("t" quail-tibetan-input-tibkey)       ; ca
+ ("T" quail-tibetan-input-tibkey)       ; gi gu log
+ ("y" quail-tibetan-input-tibkey)       ; cha
+ ("u" quail-tibetan-input-tibkey)       ; ja
+ ("i" quail-tibetan-input-tibkey)       ; nya
+ ("I" ?$(7"f(B)                               ; avagraha
+ ("o" quail-tibetan-input-tibkey)       ; ta
+ ("O" quail-tibetan-input-tibkey)       ; Ta
+ ("p" quail-tibetan-input-tibkey)       ; tha
+ ("P" quail-tibetan-input-tibkey)       ; THa
+ ("[" quail-tibetan-input-tibkey)       ; da 
+ ("{" quail-tibetan-input-tibkey)       ; Da
+ ("]" quail-tibetan-input-tibkey)       ; na
+ ("}" quail-tibetan-input-tibkey)       ; Na
+ ("a" quail-tibetan-input-tibkey)       ; pa 
+ ("A" quail-tibetan-input-tibkey)       ; Vowel sign a
+ ("s" quail-tibetan-input-tibkey)       ; pha
+ ("d" quail-tibetan-input-tibkey)       ; ba
+;;; ("D" ) ; special sign, not supported yet
+ ("f" quail-tibetan-input-tibkey)       ; ma
+ ("F" quail-tibetan-input-tibkey)       ; anusvara
+ ("g" quail-tibetan-input-tibkey)       ; zhabs kyu
+ ("G" quail-tibetan-input-tibkey)       ; gi gu
+ ("H" quail-tibetan-input-tibkey)       ; viraama
+ ("j" quail-tibetan-input-tibkey)       ; naro
+ ("J" quail-tibetan-input-tibkey)       ; 'greng bu
+ ("k" quail-tibetan-input-tibkey);;tsa
+;;; ("K" ) ; tsadru, not supported yet
+ ("l" quail-tibetan-input-tibkey)       ; tsha
+ (";" quail-tibetan-input-tibkey)       ; dza
+ (":" ?$(8"`(B)
+ ("'" quail-tibetan-input-tibkey)       ; wa
+ ("\"" quail-tibetan-input-tibkey)      ; wa zur
+ ("z" quail-tibetan-input-tibkey)       ; zha
+ ("x" quail-tibetan-input-tibkey)       ; za
+ ("c" quail-tibetan-input-tibkey)       ; 'a
+ ("C" quail-tibetan-input-tibkey)       ; 'a chung
+ ("v" quail-tibetan-input-tibkey)       ; ya
+ ("V" quail-tibetan-input-tibkey)       ; ya btags
+ ("b" quail-tibetan-input-tibkey)       ; ra
+ ("B" quail-tibetan-input-tibkey)       ; ra btags
+ ("n" quail-tibetan-input-tibkey)       ; la
+ ("N" quail-tibetan-input-tibkey)       ; la btags
+ ("m" quail-tibetan-input-tibkey)       ; sha
+ ("M" quail-tibetan-input-tibkey)       ; SHa
+ ("," quail-tibetan-input-tibkey)       ; sa
+ ("." quail-tibetan-input-tibkey)       ; ha
+;;; (">" ?$(8!;(B) ; to be assigned to SPC
+ (">" ?\x20)
+ ("/" quail-tibetan-input-tibkey)       ; Aa
+ ("?" ?$(8!=(B)
+ ("??" ?$(7!>(B)
+ ("????" tibetan-quail-bzhi-shad)
+ (" " ?$(8!;(B)
+ ;;subjoined
+ ("hq" quail-tibetan-input-tibkey)      ; ka
+ ("hQ" quail-tibetan-input-tibkey)      ; kSHa
+ ("hw" quail-tibetan-input-tibkey)      ; kha
+ ("he" quail-tibetan-input-tibkey)      ; ga
+ ("hr" quail-tibetan-input-tibkey)      ; nga
+ ("ht" quail-tibetan-input-tibkey)      ; ca
+ ("hy" quail-tibetan-input-tibkey)      ; cha
+ ("hu" quail-tibetan-input-tibkey)      ; ja
+ ("hi" quail-tibetan-input-tibkey)      ; nya
+ ("ho" quail-tibetan-input-tibkey)      ; ta
+ ("hO" quail-tibetan-input-tibkey)      ; Ta
+ ("hp" quail-tibetan-input-tibkey)      ; tha
+ ("hP" quail-tibetan-input-tibkey)      ; THa
+ ("h[" quail-tibetan-input-tibkey)      ; da 
+ ("h{" quail-tibetan-input-tibkey)      ; Da
+ ("h]" quail-tibetan-input-tibkey)      ; na
+ ("h}" quail-tibetan-input-tibkey)      ; Na
+ ("ha" quail-tibetan-input-tibkey)      ; pa 
+ ("hs" quail-tibetan-input-tibkey)      ; pha
+ ("hd" quail-tibetan-input-tibkey)      ; ba
+ ("hf" quail-tibetan-input-tibkey)      ; ma
+ ("hk" quail-tibetan-input-tibkey)      ; tsa
+ ("hl" quail-tibetan-input-tibkey)      ; tsha
+ ("h;" quail-tibetan-input-tibkey)      ; dza
+ ("h'" quail-tibetan-input-tibkey)      ; wa
+ ("hz" quail-tibetan-input-tibkey)      ; zha
+ ("hx" quail-tibetan-input-tibkey)      ; za
+ ("hc" quail-tibetan-input-tibkey)      ; 'a
+ ("hv" quail-tibetan-input-tibkey)      ; ya
+ ("hb" quail-tibetan-input-tibkey)      ; ra
+ ("hn" quail-tibetan-input-tibkey)      ; la
+ ("hm" quail-tibetan-input-tibkey)      ; sha
+ ("hM" quail-tibetan-input-tibkey)      ; SHa
+ ("h," quail-tibetan-input-tibkey)      ; sa
+ ("h." quail-tibetan-input-tibkey)      ; ha
+ ("h/" quail-tibetan-input-tibkey)      ; Aa
+ )
+
+;;; quail/tibetan.el ends here.
+
+
+