diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2006-12-27 13:19:19 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2006-12-27 13:19:19 +0000 |
| commit | 3fc0b26e75b8fa5aeaf11dc608b21b8e7fe7af15 (patch) | |
| tree | 65580b2bbb5955eb6b5f97b756c4fd4aea23533c /lisp | |
| parent | e7379492d077d91ea2a6b6daefa37eefce91352e (diff) | |
| download | emacs-3fc0b26e75b8fa5aeaf11dc608b21b8e7fe7af15.tar.gz | |
(select-safe-coding-system-interactively): Improve the message in the
*Warning* buffer.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/mule-cmds.el | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index aacce1b4190..b813a6f4943 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -737,18 +737,18 @@ DEFAULT is the coding system to use by default in the query." (insert "\n") (fill-region-as-paragraph pos (point))) (when rejected - (insert "These safely encodes the target text, -but it is not recommended for encoding text in this context, + (insert "These safely encode the text in the buffer, +but are not recommended for encoding text in this context, e.g., for sending an email message.\n ") (dolist (x rejected) (princ " ") (princ x)) (insert "\n")) (when unsafe - (insert (if rejected "And the others" + (insert (if rejected "The other coding systems" "However, each of them") - " encountered these problematic characters:\n") + " encountered characters it couldn't encode:\n") (dolist (coding unsafe) - (insert (format " %s:" (car coding))) + (insert (format " %s cannot encode these:" (car coding))) (let ((i 0) (func1 #'(lambda (bufname pos) @@ -790,14 +790,15 @@ e.g., for sending an email message.\n ") (insert "\n")) (insert "\ -Click those characters to jump to the place they appear,\n" +Click a character to jump to the place it appears,\n" (substitute-command-keys "\ -and there \\[universal-argument] \\[what-cursor-position] will give information about it.\n")))) +where `\\[universal-argument] \\[what-cursor-position]' will give information about it.\n")))) (insert (substitute-command-keys "\nSelect \ -one of the following safe coding systems,\n\ -or cancel the writing by \\[keyboard-quit] and edit the buffer,\n\ -or specify any other coding system at the risk of -losing the problematic characters.\n")) +one of the safe coding systems listed below,\n\ +or cancel the writing with \\[keyboard-quit] and edit the buffer\n\ + to remove or modify the problematic characters,\n\ +or specify any other coding system (and risk losing\n\ + the problematic characters).\n\n")) (let ((pos (point)) (fill-prefix " ")) (dolist (x codings) |