small formatting problem in describe-language-environment

[Ulrich Mueller]

"C-h L German RET" displays the following sample text which is not
properly indented:

Sample text:
  German (Deutsch Nord) Guten Tag
German (Deutsch Süd)    Grüß Gott

Patch is included below.

Ulrich


2008-10-23  Ulrich Mueller  <address@hidden>

        * international/mule-cmds.el (describe-language-environment):
        Indent sample text.

--- emacs-orig/lisp/international/mule-cmds.el  2008-10-08 10:25:53.000000000 
+0200
+++ emacs/lisp/international/mule-cmds.el       2008-10-23 09:09:22.000000000 
+0200
@@ -2036,7 +2036,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))