Mercurial > emacs
changeset 99077:b884f47f864d
(describe-language-environment): Indent sample text.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 23 Oct 2008 08:05:01 +0000 |
| parents | 06c37ccf1b58 |
| children | 59b3b906b0e6 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Thu Oct 23 07:57:58 2008 +0000 +++ b/lisp/international/mule-cmds.el Thu Oct 23 08:05:01 2008 +0000 @@ -2039,7 +2039,9 @@ (condition-case nil (let ((str (eval (get-language-info language-name 'sample-text)))) (if (stringp str) - (insert "Sample text:\n " str "\n\n"))) + (insert "Sample text:\n " + (replace-regexp-in-string "\n" "\n " str) + "\n\n"))) (error nil)) (let ((input-method (get-language-info language-name 'input-method)) (l (copy-sequence input-method-alist))