# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1167182680 0
# Node ID a53153ed1c2bceade859d2f4b8628a3f8db4dd9f
# Parent  d2cfe143b8028888a25ccad74d1d3c87e2cfaebb
(select-safe-coding-system-interactively):
Improve the message in *Warning* buffer.

diff -r d2cfe143b802 -r a53153ed1c2b lisp/international/mule-cmds.el
--- 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