Mercurial > emacs
diff src/callproc.c @ 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 | 19b17b4f765d |
| children | 43ce16d5f31e |
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))