summaryrefslogtreecommitdiff
path: root/lisp/international/mule-diag.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2011-02-18 19:38:45 -0800
committerGlenn Morris <rgm@gnu.org>2011-02-18 19:38:45 -0800
commit4d737eb2db5f2847106fa18713381a72895217e5 (patch)
tree57b39bdc2546046e890e5cdebfe7e43122f41b34 /lisp/international/mule-diag.el
parent0d873e93b77d39afd834e80c9f05c3aeeadacee8 (diff)
downloademacs-4d737eb2db5f2847106fa18713381a72895217e5.tar.gz
mule-diag.el fix for bug#8066.
* lisp/international/mule-diag.el (list-input-methods-1): Indent all lines of multi-line doc-strings.
Diffstat (limited to 'lisp/international/mule-diag.el')
-rw-r--r--lisp/international/mule-diag.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 349430f0cd9..d9ac587231e 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1056,7 +1056,10 @@ installed LEIM (Libraries of Emacs Input Methods).")
(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