[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el,v

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   08/10/23 08:05:02

Index: mule-cmds.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.342
retrieving revision 1.343
diff -u -b -r1.342 -r1.343
--- mule-cmds.el        22 Oct 2008 06:44:52 -0000      1.342
+++ mule-cmds.el        23 Oct 2008 08:05:01 -0000      1.343
@@ -2039,7 +2039,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))