Mercurial > emacs
changeset 33226:d5f086989bfd
(describe-language-environment): Eval
`sample-text' data and insert the result.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 06 Nov 2000 00:11:18 +0000 |
| parents | 1b0435120e67 |
| children | 791ce66d397e |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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")