From 2fa7e20272ab26a661d5842cdeebc290eaaee5c4 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 7 Dec 2000 10:55:39 +0000 Subject: [PATCH] (describe-language-environment): Fix for the case that an input method title is not string but a list. --- lisp/international/mule-cmds.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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") -- 2.39.5