(describe-language-environment): Fix

for the case that an input method title is not string but a list.
This commit is contained in:
Kenichi Handa 2000-12-07 10:55:39 +00:00
parent ffbaa12258
commit 2fa7e20272

View file

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