Commit e036b0a6 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(describe-language-environment): Eval

`sample-text' data and insert the result.
parent e2a20aa7
......@@ -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")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment