From 08ee4e8761bf2a384f729c0224c059599b151f81 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 2 Jul 1997 12:54:04 +0000 Subject: [PATCH] Call Ffind_operation_coding_system. --- src/callproc.c | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/callproc.c b/src/callproc.c index 7cd94646dec..14a439bc444 100644 --- a/src/callproc.c +++ b/src/callproc.c @@ -238,7 +238,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.") output. */ { Lisp_Object val, *args2; - /* 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; int i; @@ -250,7 +250,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.") args2 = (Lisp_Object *) alloca ((nargs + 1) * sizeof *args2); args2[0] = Qcall_process; for (i = 0; i < nargs; i++) args2[i + 1] = args[i]; - coding_systems = Ffind_coding_system (nargs + 1, args2); + coding_systems = Ffind_operation_coding_system (nargs + 1, args2); if (CONSP (coding_systems)) val = XCONS (coding_systems)->cdr; else if (CONSP (Vdefault_process_coding_system)) @@ -273,7 +273,8 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.") args2 = (Lisp_Object *) alloca ((nargs + 1) * sizeof *args2); args2[0] = Qcall_process; for (i = 0; i < nargs; i++) args2[i + 1] = args[i]; - coding_systems = Ffind_coding_system (nargs + 1, args2); + coding_systems + = Ffind_operation_coding_system (nargs + 1, args2); } if (CONSP (coding_systems)) val = XCONS (coding_systems)->car; @@ -735,7 +736,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.") Lisp_Object filename_string; register Lisp_Object start, end; int count = specpdl_ptr - specpdl; - /* 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; int i; @@ -785,7 +786,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.") args2 = (Lisp_Object *) alloca ((nargs + 1) * sizeof *args2); args2[0] = Qcall_process_region; for (i = 0; i < nargs; i++) args2[i + 1] = args[i]; - coding_systems = Ffind_coding_system (nargs + 1, args2); + coding_systems = Ffind_operation_coding_system (nargs + 1, args2); if (CONSP (coding_systems)) val = XCONS (coding_systems)->cdr; else if (CONSP (Vdefault_process_coding_system)) @@ -806,7 +807,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.") args2 = (Lisp_Object *) alloca ((nargs + 1) * sizeof *args2); args2[0] = Qcall_process_region; for (i = 0; i < nargs; i++) args2[i + 1] = args[i]; - coding_systems = Ffind_coding_system (nargs + 1, args2); + coding_systems = Ffind_operation_coding_system (nargs + 1, args2); } val = CONSP (coding_systems) ? XCONS (coding_systems)->car : Qnil; } -- 2.39.2