diff options
| -rw-r--r-- | lisp/international/mule-cmds.el | 6 |
1 files changed, 5 insertions, 1 deletions
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." | |||
| 1532 | (help-xref-button 0 #'describe-input-method (car (car l)) | 1532 | (help-xref-button 0 #'describe-input-method (car (car l)) |
| 1533 | "mouse-2, RET: describe this input method") | 1533 | "mouse-2, RET: describe this input method") |
| 1534 | (goto-char (point-max)) | 1534 | (goto-char (point-max)) |
| 1535 | (insert " (\"" (nth 3 (car l)) "\" in mode line)\n")) | 1535 | (insert " (\"" |
| 1536 | (if (stringp (nth 3 (car l))) | ||
| 1537 | (nth 3 (car l)) | ||
| 1538 | (car (nth 3 (car l)))) | ||
| 1539 | "\" in mode line)\n")) | ||
| 1536 | (setq l (cdr l))) | 1540 | (setq l (cdr l))) |
| 1537 | (insert "\n")) | 1541 | (insert "\n")) |
| 1538 | (insert "Character sets:\n") | 1542 | (insert "Character sets:\n") |