Mercurial > emacs
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); |