changeset 90434:8c71fed372cf

(Fcall_process): Sync with HEAD.
author Kenichi Handa <handa@m17n.org>
date Thu, 08 Jun 2006 07:08:36 +0000
parents b2d7f23441da
children 8dea9daf4355
files src/callproc.c
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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);
+	  }
       }
   }