From 715f75777f53d0d61ef0d3792d50b4216da8ceda Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 2 Jul 1997 12:54:06 +0000 Subject: [PATCH] (Fstart_process): Call Ffind_operation_coding_system. (Fopen_network_stream): Likewise. --- src/process.c | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/process.c b/src/process.c index 7ac4175aa35..e718533f035 100644 --- a/src/process.c +++ b/src/process.c @@ -1169,7 +1169,7 @@ Remaining arguments are strings to give program as arguments.") 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 @@ Remaining arguments are strings to give program as arguments.") 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 @@ Remaining arguments are strings to give program as arguments.") 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 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\ { /* 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 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\ 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 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\ 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)) -- 2.39.2