From: Kenichi Handa <handa@m17n.org>
Date: Mon, 6 Nov 2000 00:10:12 +0000 (+0000)
Subject: ("Tibetan"): Set a lisp form that produces
X-Git-Tag: emacs-pretest-21.0.90~291
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec724c29053d59cef65cd62c5cfcf8640edbdd76;p=emacs.git

("Tibetan"): Set a lisp form that produces
composed string in `sample-text' language info.
---

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