(describe-language-environment): Fix

for the case that an input method title is not string but a list.

1 files changed, 5 insertions, 1 deletions

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index c5ce71f2a07..9a648f53a34 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1532,7 +1532,11 @@ of buffer-file-coding-system set by this function."
               (help-xref-button 0 #'describe-input-method (car (car l))
                                 "mouse-2, RET: describe this input method")
               (goto-char (point-max))
-              (insert " (\"" (nth 3 (car l)) "\" in mode line)\n"))
+              (insert " (\""
+                      (if (stringp (nth 3 (car l)))
+                          (nth 3 (car l))
+                        (car (nth 3 (car l))))
+                      "\" in mode line)\n"))
             (setq l (cdr l)))
           (insert "\n"))
         (insert "Character sets:\n")