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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5e2440d7a6a1760f35b8a23a8bbb6a8c33ef47fa..73be7036c541fa8a26cf3cdce4773b08665878f5 100644 (file)
--- 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 894f2f7021618d1f6004ef0e704714d7fe221267..31eea7abee38ee2574cc5f39b2edaef12ebf8b78 100644 (file)
--- 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))