# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 971397810 0
# Node ID 85cb584c95ba154c9038ac0e164747bef930214b
# Parent  98e7cf21e374980cb0c5b12ed5a4b75cb67b69bc
(select-safe-coding-system): If FROM is string, show it in *Warning*
buffer.

diff -r 98e7cf21e374 -r 85cb584c95ba lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Fri Oct 13 00:42:45 2000 +0000
+++ b/lisp/international/mule-cmds.el	Fri Oct 13 00:43:30 2000 +0000
@@ -598,7 +598,14 @@
 	    (with-output-to-temp-buffer "*Warning*"
 	      (save-excursion
 		(set-buffer standard-output)
-		(insert "The following default coding systems were tried:\n")
+		(insert "These default coding systems were tried")
+		(if (stringp from)
+		    (insert " to encode \""
+			    (if (> (length from) 10)
+				(substring from 0 10)
+			      from)
+			    "...\""))
+		(insert ":\n")
 		(let ((pos (point))
 		      (fill-prefix "  "))
 		  (mapcar (function (lambda (x) (princ "  ") (princ (car x))))