Mercurial > emacs
changeset 34774:316a3cf24c90
(select-safe-coding-system): Improve help message.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 21 Dec 2000 06:46:52 +0000 |
| parents | 664ee7cb8bf9 |
| children | 08149a9e4ec0 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 24 insertions(+), 21 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Thu Dec 21 06:46:32 2000 +0000 +++ b/lisp/international/mule-cmds.el Thu Dec 21 06:46:52 2000 +0000 @@ -603,27 +603,30 @@ (with-output-to-temp-buffer "*Warning*" (save-excursion (set-buffer standard-output) - (insert "These default coding systems were tried") - (if (stringp from) - (insert " to encode \"" - (if (> (length from) 10) - (substring from 0 10) - from) - "...\"")) - (insert ":\n") - (let ((pos (point)) - (fill-prefix " ")) - (mapcar (function (lambda (x) (princ " ") (princ (car x)))) - default-coding-system) - (insert "\n") - (fill-region-as-paragraph pos (point))) - (insert - (if (consp coding-system) - (concat (format "%s safely encodes the target text,\n" - (car coding-system)) - "but it is not recommended for encoding text in this context,\n" - "e.g., for sending an email message.\n") - "However, none of them safely encodes the target text.\n")) + (if (not default-coding-system) + (insert "No default coding systems to try.") + (insert "These default coding systems were tried") + (if (stringp from) + (insert " to encode \"" + (if (> (length from) 10) + (substring from 0 10) + from) + "...\"")) + (insert ":\n") + (let ((pos (point)) + (fill-prefix " ")) + (mapcar (function (lambda (x) + (princ " ") (princ (car x)))) + default-coding-system) + (insert "\n") + (fill-region-as-paragraph pos (point))) + (insert + (if (consp coding-system) + (concat (format "%s safely encodes the target text,\n" + (car coding-system)) + "but it is not recommended for encoding text in this context,\n" + "e.g., for sending an email message.\n") + "However, none of them safely encodes the target text.\n"))) (insert (if (consp coding-system) "\nSelect the above, or " "\nSelect ")