# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1149750516 0
# Node ID 8c71fed372cf894fe6780395d906868d51d64aac
# Parent  b2d7f23441daaccc8a2d8775bc13365312f12aa2
(Fcall_process): Sync with HEAD.

diff -r b2d7f23441da -r 8c71fed372cf src/callproc.c
--- a/src/callproc.c	Thu Jun 08 06:54:41 2006 +0000
+++ b/src/callproc.c	Thu Jun 08 07:08:36 2006 +0000
@@ -269,6 +269,7 @@
     if (nargs >= 5)
       {
 	int must_encode = 0;
+	Lisp_Object coding_attrs;
 
 	for (i = 4; i < nargs; i++)
 	  CHECK_STRING (args[i]);
@@ -296,6 +297,13 @@
 	  }
 	val = coding_inherit_eol_type (val, Qnil);
 	setup_coding_system (Fcheck_coding_system (val), &argument_coding);
+	coding_attrs = CODING_ID_ATTRS (argument_coding.id);
+	if (NILP (CODING_ATTR_ASCII_COMPAT (coding_attrs)))
+	  {
+	    /* We should not use an ASCII incompatible coding system.  */
+	    val = raw_text_coding_system (val);
+	    setup_coding_system (val, &argument_coding);
+	  }
       }
   }