From: Kenichi Handa <handa@m17n.org>
Date: Thu, 23 Oct 2008 08:05:36 +0000 (+0000)
Subject: (describe-language-environment): Indent sample text.
X-Git-Tag: emacs-pretest-23.0.90~2228
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd0dd4c36627a366a764a5fc87bb8d480863e26b;p=emacs.git

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

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))