diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-06-09 12:59:22 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-06-09 12:59:22 +0000 |
| commit | 626e17996a3dd8b9b99f403a97c5b3d3f7cbd1f1 (patch) | |
| tree | a5f15e74e59d4ec94342950e913d925d19dbbc0b /src/callproc.c | |
| parent | ff9a13a0e59352f16bb0f3bff509a8385c081402 (diff) | |
| download | emacs-626e17996a3dd8b9b99f403a97c5b3d3f7cbd1f1.tar.gz | |
(Fcall_process): Pay attention to
Vdefault_process_coding_system.
(Fcall_process_region): Likewise.
Diffstat (limited to 'src/callproc.c')
| -rw-r--r-- | src/callproc.c | 17 |
1 files changed, 13 insertions, 4 deletions
diff --git a/src/callproc.c b/src/callproc.c index 958ad19fb82..04484dd55e7 100644 --- a/src/callproc.c +++ b/src/callproc.c @@ -251,7 +251,10 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.") 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 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.") 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 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.") 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)) |