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.
+
+
+