diff options
| author | Kenichi Handa <handa@m17n.org> | 2008-10-23 08:05:36 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2008-10-23 08:05:36 +0000 |
| commit | fd0dd4c36627a366a764a5fc87bb8d480863e26b (patch) | |
| tree | 018c22428ca1512a022b555db283d38e7628b67a /lisp/international | |
| parent | f54857320dc58681dd189f8ff4d01db15f715685 (diff) | |
| download | emacs-fd0dd4c36627a366a764a5fc87bb8d480863e26b.tar.gz | |
(describe-language-environment): Indent sample text.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/mule-cmds.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 894f2f70216..31eea7abee3 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -2039,7 +2039,9 @@ Setting this variable directly does not take effect. See (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)) |