comparison src/callproc.c @ 19135:71a5378a1f06

(Fcall_process_region): Use cdr part (not car part) of Vdefault_process_coding_system for writing out text.
author Kenichi Handa <handa@m17n.org>
date Mon, 04 Aug 1997 06:59:57 +0000
parents b08145625f89
children 34057e215ab1
comparison
equal deleted inserted replaced
19134:8fa6e23f8d22 19135:71a5378a1f06
819 for (i = 0; i < nargs; i++) args2[i + 1] = args[i]; 819 for (i = 0; i < nargs; i++) args2[i + 1] = args[i];
820 coding_systems = Ffind_operation_coding_system (nargs + 1, args2); 820 coding_systems = Ffind_operation_coding_system (nargs + 1, args2);
821 if (CONSP (coding_systems)) 821 if (CONSP (coding_systems))
822 val = XCONS (coding_systems)->cdr; 822 val = XCONS (coding_systems)->cdr;
823 else if (CONSP (Vdefault_process_coding_system)) 823 else if (CONSP (Vdefault_process_coding_system))
824 val = XCONS (Vdefault_process_coding_system)->car; 824 val = XCONS (Vdefault_process_coding_system)->cdr;
825 else 825 else
826 val = Qnil; 826 val = Qnil;
827 } 827 }
828 } 828 }
829 specbind (intern ("coding-system-for-write"), val); 829 specbind (intern ("coding-system-for-write"), val);