# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 973469478 0
# Node ID d5f086989bfded989e4fdf57828ebf435f212136
# Parent  1b0435120e67cd8216042a97d2049d7691826390
(describe-language-environment): Eval
`sample-text' data and insert the result.

diff -r 1b0435120e67 -r d5f086989bfd lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Mon Nov 06 00:10:50 2000 +0000
+++ b/lisp/international/mule-cmds.el	Mon Nov 06 00:11:18 2000 +0000
@@ -1512,9 +1512,11 @@
 	(insert language-name " language environment\n\n")
 	(if (stringp doc)
 	    (insert doc "\n\n"))
-	(let ((str (get-language-info language-name 'sample-text)))
-	  (if (stringp str)
-	      (insert "Sample text:\n  " str "\n\n")))
+	(condition-case nil
+	    (let ((str (eval (get-language-info language-name 'sample-text))))
+	      (if (stringp str)
+		  (insert "Sample text:\n  " str "\n\n")))
+	  (error nil))
 	(let ((input-method (get-language-info language-name 'input-method))
 	      (l (copy-sequence input-method-alist)))
 	  (insert "Input methods")