changeset 18182:967f92654591

(Fcall_process): Pay attention to Vdefault_process_coding_system. (Fcall_process_region): Likewise.
author Kenichi Handa <handa@m17n.org>
date Mon, 09 Jun 1997 12:59:22 +0000
parents 1d91f0e4ff7d
children dc9d056f204f
files src/callproc.c
diffstat 1 files changed, 13 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/callproc.c	Mon Jun 09 12:59:20 1997 +0000
+++ b/src/callproc.c	Mon Jun 09 12:59:22 1997 +0000
@@ -251,7 +251,10 @@
 	    args2[0] = Qcall_process;
 	    for (i = 0; i < nargs; i++) args2[i + 1] = args[i];
 	    coding_systems = Ffind_coding_system (nargs + 1, args2);
-	    val = CONSP (coding_systems) ? XCONS (coding_systems)->cdr : Qnil;
+	    if (CONSP (coding_systems))
+	      val = XCONS (coding_systems)->cdr;
+	    else if (CONSP (Vdefault_process_coding_system))
+	      val = XCONS (Vdefault_process_coding_system)->cdr;
 	  }
 	setup_coding_system (Fcheck_coding_system (val), &argument_coding);
       }
@@ -272,7 +275,10 @@
 		for (i = 0; i < nargs; i++) args2[i + 1] = args[i];
 		coding_systems = Ffind_coding_system (nargs + 1, args2);
 	      }
-	    val = CONSP (coding_systems) ? XCONS (coding_systems)->car : Qnil;
+	    if (CONSP (coding_systems))
+	      val = XCONS (coding_systems)->car;
+	    else if (CONSP (Vdefault_process_coding_system))
+	      val = XCONS (Vdefault_process_coding_system)->car;
 	  }
 	setup_coding_system (Fcheck_coding_system (val), &process_coding);
       }
@@ -775,10 +781,13 @@
 	args2[0] = Qcall_process_region;
 	for (i = 0; i < nargs; i++) args2[i + 1] = args[i];
 	coding_systems = Ffind_coding_system (nargs + 1, args2);
-	val = CONSP (coding_systems) ? XCONS (coding_systems)->cdr : Qnil;
+	if (CONSP (coding_systems))
+	  val = XCONS (coding_systems)->cdr;
+	else if (CONSP (Vdefault_process_coding_system))
+	  val = XCONS (Vdefault_process_coding_system)->car;
       }
   specbind (intern ("coding-system-for-write"), val);
-  Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil);
+  Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil);
 
 #ifdef DOS_NT
   if (NILP (Vbinary_process_input))