From 7d03c5b15dd52ca04c95d443c89fb1760f177eb9 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 27 Dec 2006 01:25:31 +0000 Subject: [PATCH] (select-safe-coding-system-interactively): Improve the message in *Warning* buffer. --- lisp/ChangeLog | 5 +++++ lisp/international/mule-cmds.el | 14 ++++++++------ 2 files changed, 13 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b3c47a63eb8..81f19cbff69 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-12-27 Kenichi Handa + + * international/mule-cmds.el (select-safe-coding-system-interactively): + Improve the message in *Warning* buffer. + 2006-12-27 Kim F. Storm * ido.el (ido-set-matches-1): Never put current buffer first if diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 4b415baf5fa..e558b49df4c 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -787,19 +787,21 @@ e.g., for sending an email message.\n ") (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 -- 2.39.2