diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-11-06 00:11:18 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-11-06 00:11:18 +0000 |
| commit | e036b0a6b33659732b7ddda6880ca50b0762632c (patch) | |
| tree | 62b76a56fbb561db3d56eb5d55cd21747ddc6ec5 | |
| parent | e2a20aa7918fe70d13423b43e8cc72e2a94d6dfc (diff) | |
| download | emacs-e036b0a6b33659732b7ddda6880ca50b0762632c.tar.gz emacs-e036b0a6b33659732b7ddda6880ca50b0762632c.tar.bz2 emacs-e036b0a6b33659732b7ddda6880ca50b0762632c.zip | |
(describe-language-environment): Eval
`sample-text' data and insert the result.
| -rw-r--r-- | lisp/international/mule-cmds.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index f02c470c8b5..d21f9de2628 100644 --- 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") |