diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-11-06 00:10:12 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-11-06 00:10:12 +0000 |
| commit | ec724c29053d59cef65cd62c5cfcf8640edbdd76 (patch) | |
| tree | 70f51335e59f5bc932e0dc83b6fa1f496c6a92ee /lisp/language/tibetan.el | |
| parent | 6eaec747c2e3e15ff840689b18422373b0069c4a (diff) | |
| download | emacs-ec724c29053d59cef65cd62c5cfcf8640edbdd76.tar.gz | |
("Tibetan"): Set a lisp form that produces
composed string in `sample-text' language info.
Diffstat (limited to 'lisp/language/tibetan.el')
| -rw-r--r-- | lisp/language/tibetan.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el index f8d5992a59c..86417da19b0 100644 --- a/lisp/language/tibetan.el +++ b/lisp/language/tibetan.el @@ -98,8 +98,10 @@ (input-method . "tibetan-wylie") (features tibet-util) (documentation . t) - (sample-text . -"Tibetan (4$(7"7r'"]0"7"]14"20"21!;4%P0"G#!"Q14"20"21!;(B) $(7!4!5!5!>4"70"714$P0"!#C"Q1!;4"Er'"S0"E"S14"G0"G1!;4"70"714"2r'"[0"2"[1!;4"Dr'"[0"D"[14"#0"#14"G0"G1!>4"Ir'"]r'"_0"I"]"_1!;4"90"9"Q1!;4"/r'"S0"/"S1!;4"50"5"Q14#2x!#9r'"[0"2#9"[1!;4"Hx!"Rx!"Ur'"c0"H"A"U"c1!>(B"))) + (sample-text + . (tibetan-compose-string + (copy-sequence +"Tibetan (4$(7"7r'"]0"7"]14"20"21!;4%P0"G#!"Q14"20"21!;(B) $(7!4!5!5!>4"70"714$P0"!#C"Q1!;4"Er'"S0"E"S14"G0"G1!;4"70"714"2r'"[0"2"[1!;4"Dr'"[0"D"[14"#0"#14"G0"G1!>4"Ir'"]r'"_0"I"]"_1!;4"90"9"Q1!;4"/r'"S0"/"S1!;4"50"5"Q14#2x!#9r'"[0"2#9"[1!;4"Hx!"Rx!"Ur'"c0"H"A"U"c1!>(B"))))) ;; `$(7"A(B' is included in the pattern for subjoined consonants because we |