[Emacs-diffs] /srv/bzr/emacs/trunk r103344: mule-diag.el fix for bug#8066.

[Glenn Morris]

------------------------------------------------------------
revno: 103344
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2011-02-18 19:38:45 -0800
message:
  mule-diag.el fix for bug#8066.
  
  * lisp/international/mule-diag.el (list-input-methods-1):
  Indent all lines of multi-line doc-strings.
modified:
  lisp/ChangeLog
  lisp/international/mule-diag.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-18 22:52:58 +0000
+++ b/lisp/ChangeLog    2011-02-19 03:38:45 +0000
@@ -1,3 +1,8 @@
+2011-02-19  Glenn Morris  <address@hidden>
+
+       * international/mule-diag.el (list-input-methods-1):
+       Indent all lines of multi-line doc-strings.  (Bug#8066)
+
 2011-02-18  Chong Yidong  <address@hidden>
 
        Fix 2011-02-02 changes.

=== modified file 'lisp/international/mule-diag.el'
--- a/lisp/international/mule-diag.el   2011-01-25 04:08:28 +0000
+++ b/lisp/international/mule-diag.el   2011-02-19 03:38:45 +0000
@@ -1056,7 +1056,10 @@
                         (if (and (consp title) (stringp (car title)))
                             (car title)
                           title))
-                      (nth 4 elt)))))))
+                      ;; If the doc is multi-line, indent all
+                      ;; non-blank lines. (Bug#8066)
+                      (replace-regexp-in-string "\n\\(.\\)" "\n    \\1"
+                                                (or (nth 4 elt) ""))))))))
 
 ;;; DIAGNOSIS