Mercurial > emacs
changeset 74927:a53153ed1c2b
(select-safe-coding-system-interactively):
Improve the message in *Warning* buffer.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 27 Dec 2006 01:24:40 +0000 |
| parents | d2cfe143b802 |
| children | 776d8b77ba1f |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 8 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Wed Dec 27 00:26:54 2006 +0000 +++ b/lisp/international/mule-cmds.el Wed Dec 27 01:24:40 2006 +0000 @@ -787,19 +787,21 @@ (setq i (1+ i)))) (insert "\n")) (insert "\ -The first problematic character is at point in the displayed buffer,\n" + +Click those characters to jump to the place they appear,\n" (substitute-command-keys "\ and \\[universal-argument] \\[what-cursor-position] will give information about it.\n")))) - (insert "\nSelect \ -one of the following safe coding systems, or edit the buffer:\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")) (let ((pos (point)) (fill-prefix " ")) (dolist (x codings) (princ " ") (princ x)) (insert "\n") - (fill-region-as-paragraph pos (point))) - (insert "Or specify any other coding system -at the risk of losing the problematic characters.\n"))) + (fill-region-as-paragraph pos (point))))) ;; Read a coding system. (setq coding-system