(select-safe-coding-system-interactively): Fix message.

2 files changed, 13 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db118187f1..ec53b2ad1c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-09  Kenichi Handa  <[email protected]>
+
+	* international/mule-cmds.el
+	(select-safe-coding-system-interactively): Fix message.
+
 2007-01-09  Michael Albinus  <[email protected]>
 
 	* net/tramp.el: (tramp-process-one-action): Remove `with-timeout'.
@@ -317,6 +322,11 @@
 2006-12-27  Kenichi Handa  <[email protected]>
 
 	* international/mule-cmds.el (select-safe-coding-system-interactively):
+	Use face `link' for problematic chars.
+
+2006-12-27  Kenichi Handa  <[email protected]>
+
+	* international/mule-cmds.el (select-safe-coding-system-interactively):
 	Improve the message in *Warning* buffer.
 
 2006-12-27  Kim F. Storm  <[email protected]>
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 701dee4300..9b0c98fc85 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -788,10 +788,10 @@ e.g., for sending an email message.\n ")
 					  (car coding)))))
 		    (setq i (1+ i))))
 		(insert "\n"))
-	      (insert "\
+	      (insert (substitute-command-keys "\
 
-Click on a character to jump to the place it appears,\n"
-		      (substitute-command-keys "\
+Click on a character (or switch to this window by `\\[other-window]'\n\
+and select the characters by RET) to jump to the place it appears,\n\
 where `\\[universal-argument] \\[what-cursor-position]' will give information about it.\n"))))
 	  (insert (substitute-command-keys "\nSelect \
 one of the safe coding systems listed below,\n\