[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

small formatting problem in describe-language-environment

From: Ulrich Mueller
Subject: small formatting problem in describe-language-environment
Date: Thu, 23 Oct 2008 09:31:59 +0200

"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.


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 
+++ emacs/lisp/international/mule-cmds.el       2008-10-23 09:09:22.000000000 
@@ -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))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]