(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 9c0cfa5cf42675e6424e8db5465746955343b13e..69f11ea89520607842ed7a04f36bf1fb4c2b267d 100644 (file)
--- 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))))