From 83502605bef92e975139e695792bcb333d80736e Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 9 Jun 1997 12:59:28 +0000 Subject: [PATCH] (Fstart_process):Pay attention to Vdefault_process_coding_system. (Fopen_network_stream): Likewise. --- src/process.c | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/src/process.c b/src/process.c index 21fd0322a52..1b8174299ff 100644 --- a/src/process.c +++ b/src/process.c @@ -1182,6 +1182,8 @@ Remaining arguments are strings to give program as arguments.") UNGCPRO; if (CONSP (coding_systems)) val = XCONS (coding_systems)->car; + else if (CONSP (Vdefault_process_coding_system)) + val = XCONS (Vdefault_process_coding_system)->car; } XPROCESS (proc)->decode_coding_system = val; @@ -1198,6 +1200,8 @@ Remaining arguments are strings to give program as arguments.") } if (CONSP (coding_systems)) val = XCONS (coding_systems)->cdr; + else if (CONSP (Vdefault_process_coding_system)) + val = XCONS (Vdefault_process_coding_system)->cdr; } XPROCESS (proc)->encode_coding_system = val; } @@ -1907,7 +1911,10 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\ GCPRO1 (proc); coding_systems = Ffind_coding_system (5, args); UNGCPRO; - 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; } XPROCESS (proc)->decode_coding_system = val; @@ -1921,7 +1928,10 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\ coding_systems = Ffind_coding_system (5, args); UNGCPRO; } - 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; } XPROCESS (proc)->encode_coding_system = val; } -- 2.39.2