changeset 90947:996f89a629d7

(select-safe-coding-system-interactively): Fix printing of rejected and unsafe coding-systems.
author Kenichi Handa <handa@m17n.org>
date Sat, 16 Jun 2007 02:16:18 +0000
parents 2943395de0ab
children e934ce2db665
files lisp/international/mule-cmds.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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