Mercurial > emacs
changeset 34317:0378b3d77144
(describe-language-environment): Fix
for the case that an input method title is not string but a list.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 07 Dec 2000 10:55:39 +0000 |
| parents | f0d4c79a1d0c |
| children | d302f6935ff8 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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")