From fd0dd4c36627a366a764a5fc87bb8d480863e26b Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 23 Oct 2008 08:05:36 +0000 Subject: [PATCH] (describe-language-environment): Indent sample text. --- lisp/ChangeLog | 5 +++++ lisp/international/mule-cmds.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5e2440d7a6a..73be7036c54 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-10-23 Ulrich Mueller + + * international/mule-cmds.el (describe-language-environment): + Indent sample text. + 2008-10-23 Glenn Morris * pcmpl-rpm.el (pcomplete/rpm): Doc fix. 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)) -- 2.39.5