(describe-language-environment): Eval

`sample-text' data and insert the result.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index f02c470c8b58980274f50aa66f2e228364e7da25..d21f9de262817ea9f4995060f535f4d83f734b51 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1512,9 +1512,11 @@ of buffer-file-coding-system set by this function."
        (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")