From: Kenichi Handa <handa@m17n.org>
Date: Fri, 13 Oct 2000 00:43:30 +0000 (+0000)
Subject: (select-safe-coding-system): If FROM is string, show it in *Warning*
X-Git-Tag: emacs-pretest-21.0.90~920
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=038f27a72e582d5a8b7f7935bf36ee7ed6ecb8bd;p=emacs.git

(select-safe-coding-system): If FROM is string, show it in *Warning*
buffer.
---

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 9c0cfa5cf42..69f11ea8952 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -598,7 +598,14 @@ and TO is ignored."
 	    (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))))