# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1181960178 0
# Node ID 996f89a629d781cc28dac243ecb4ff81b4082016
# Parent  2943395de0ab5048beb5a94473efbca0cbc00b5d
(select-safe-coding-system-interactively): Fix printing of
rejected and unsafe coding-systems.

diff -r 2943395de0ab -r 996f89a629d7 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Sat Jun 16 02:15:01 2007 +0000
+++ b/lisp/international/mule-cmds.el	Sat Jun 16 02:16:18 2007 +0000
@@ -715,7 +715,7 @@
 	    (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