(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 c5ce71f2a0..9a648f53a3 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")