(describe-language-environment): Indent sample text.

2 files changed, 8 insertions, 1 deletions

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  <ulm@kph.uni-mainz.de>
+
+        * international/mule-cmds.el (describe-language-environment):
+        Indent sample text.
+
 2008-10-23  Glenn Morris  <rgm@gnu.org>
 
         * 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))