diff options
author | Kenichi Handa <handa@m17n.org> | 1997-06-09 12:59:28 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 1997-06-09 12:59:28 +0000 |
commit | 8030398b3f29dddda8abe4068539c5ca87530cd8 (patch) | |
tree | 651bf69e486c6839d6f19f2b40e168718a47d39d /src | |
parent | 626e17996a3dd8b9b99f403a97c5b3d3f7cbd1f1 (diff) | |
download | emacs-8030398b3f29dddda8abe4068539c5ca87530cd8.tar.gz |
(Fstart_process):Pay attention to
Vdefault_process_coding_system.
(Fopen_network_stream): Likewise.
Diffstat (limited to 'src')
-rw-r--r-- | src/process.c | 14 |
1 files 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; } |