diff options
| -rw-r--r-- | lisp/international/mule-cmds.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 9c0cfa5cf42..69f11ea8952 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -598,7 +598,14 @@ and TO is ignored." | |||
| 598 | (with-output-to-temp-buffer "*Warning*" | 598 | (with-output-to-temp-buffer "*Warning*" |
| 599 | (save-excursion | 599 | (save-excursion |
| 600 | (set-buffer standard-output) | 600 | (set-buffer standard-output) |
| 601 | (insert "The following default coding systems were tried:\n") | 601 | (insert "These default coding systems were tried") |
| 602 | (if (stringp from) | ||
| 603 | (insert " to encode \"" | ||
| 604 | (if (> (length from) 10) | ||
| 605 | (substring from 0 10) | ||
| 606 | from) | ||
| 607 | "...\"")) | ||
| 608 | (insert ":\n") | ||
| 602 | (let ((pos (point)) | 609 | (let ((pos (point)) |
| 603 | (fill-prefix " ")) | 610 | (fill-prefix " ")) |
| 604 | (mapcar (function (lambda (x) (princ " ") (princ (car x)))) | 611 | (mapcar (function (lambda (x) (princ " ") (princ (car x)))) |