From: Kenichi Handa <handa@m17n.org>
Date: Thu, 7 Dec 2000 10:55:39 +0000 (+0000)
Subject: (describe-language-environment): Fix
X-Git-Tag: emacs-pretest-21.0.93~125
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2fa7e20272ab26a661d5842cdeebc290eaaee5c4;p=emacs.git

(describe-language-environment): Fix
for the case that an input method title is not string but a list.
---

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")