# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 976186539 0
# Node ID 0378b3d771444e89584d32ed1e790f5f13ac79c6
# Parent  f0d4c79a1d0ce3213813663d3b7156390b1df914
(describe-language-environment): Fix
for the case that an input method title is not string but a list.

diff -r f0d4c79a1d0c -r 0378b3d77144 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Thu Dec 07 10:54:43 2000 +0000
+++ b/lisp/international/mule-cmds.el	Thu Dec 07 10:55:39 2000 +0000
@@ -1532,7 +1532,11 @@
 	      (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")