Mercurial > emacs
changeset 18540:c9470cd6de93
(Fstart_process): Call Ffind_operation_coding_system.
(Fopen_network_stream): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 02 Jul 1997 12:54:06 +0000 |
| parents | 8c13c54d52c8 |
| children | 1f40243c42d1 |
| files | src/process.c |
| diffstat | 1 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/process.c Wed Jul 02 12:54:04 1997 +0000 +++ b/src/process.c Wed Jul 02 12:54:06 1997 +0000 @@ -1169,7 +1169,7 @@ else { /* Setup coding systems for communicating with the process. */ - /* Qt denotes that we have not yet called Ffind_coding_system. */ + /* Qt denotes we have not yet called Ffind_operation_coding_system. */ Lisp_Object coding_systems = Qt; Lisp_Object val, *args2; struct gcpro gcpro1; @@ -1180,7 +1180,7 @@ args2[0] = Qstart_process; for (i = 0; i < nargs; i++) args2[i + 1] = args[i]; GCPRO1 (proc); - coding_systems = Ffind_coding_system (nargs + 1, args2); + coding_systems = Ffind_operation_coding_system (nargs + 1, args2); UNGCPRO; if (CONSP (coding_systems)) val = XCONS (coding_systems)->car; @@ -1197,7 +1197,8 @@ args2[0] = Qstart_process; for (i = 0; i < nargs; i++) args2[i + 1] = args[i]; GCPRO1 (proc); - coding_systems = Ffind_coding_system (nargs + 1, args2); + coding_systems = + Ffind_operation_coding_system (nargs + 1, args2); UNGCPRO; } if (CONSP (coding_systems)) @@ -1902,7 +1903,7 @@ { /* Setup coding systems for communicating with the network stream. */ struct gcpro gcpro1; - /* Qt denotes that we have not yet called Ffind_coding_system. */ + /* Qt denotes we have not yet called Ffind_operation_coding_system. */ Lisp_Object coding_systems = Qt; Lisp_Object args[5], val; @@ -1911,7 +1912,7 @@ args[0] = Qopen_network_stream, args[1] = name, args[2] = buffer, args[3] = host, args[4] = service; GCPRO1 (proc); - coding_systems = Ffind_coding_system (5, args); + coding_systems = Ffind_operation_coding_system (5, args); UNGCPRO; if (CONSP (coding_systems)) val = XCONS (coding_systems)->car; @@ -1927,7 +1928,7 @@ args[0] = Qopen_network_stream, args[1] = name, args[2] = buffer, args[3] = host, args[4] = service; GCPRO1 (proc); - coding_systems = Ffind_coding_system (5, args); + coding_systems = Ffind_operation_coding_system (5, args); UNGCPRO; } if (CONSP (coding_systems))