# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 973469450 0
# Node ID 1b0435120e67cd8216042a97d2049d7691826390
# Parent  16e812e93e0dd8cb595a3dddb2e6a2a4763a5f9b
("Thai"): Set a lisp form that produces
composed string in `sample-text' language info.

diff -r 16e812e93e0d -r 1b0435120e67 lisp/language/thai.el
--- a/lisp/language/thai.el	Mon Nov 06 00:10:12 2000 +0000
+++ b/lisp/language/thai.el	Mon Nov 06 00:10:50 2000 +0000
@@ -49,7 +49,9 @@
 	  (input-method . "thai-kesmanee")
 	  (unibyte-display . thai-tis620)
 	  (features thai-util)
-	  (sample-text . "Thai (,T@RIRd7B(B)		,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")
+	  (sample-text 
+	   . (thai-compose-string
+	      (copy-sequence "Thai (,T@RIRd7B(B)		,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")))
 	  (documentation . t)))