(select-safe-coding-system-interactively): Fix printing of

rejected and unsafe coding-systems.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 702fab3..5ffd017 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -715,7 +715,7 @@ DEFAULT is the coding system to use by default in the query."
            (let ((pos (point))
                  (fill-prefix "  "))
              (dolist (x (append rejected unsafe))
-               (princ "  ") (princ (car x)))
+               (princ "  ") (princ x))
              (insert "\n")
              (fill-region-as-paragraph pos (point)))
            (when rejected