Mercurial > emacs

comparison src/process.c @ 18183:dc9d056f204f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fstart_process):Pay attention to Vdefault_process_coding_system. (Fopen_network_stream): Likewise.
author Kenichi Handa <handa@m17n.org>
date Mon, 09 Jun 1997 12:59:28 +0000
parents 77b137e2d9a7
children 2f1f942f25ca
comparison
equal deleted inserted replaced
18182:967f92654591 18183:dc9d056f204f
1180 GCPRO1 (proc); 1180 GCPRO1 (proc);
1181 coding_systems = Ffind_coding_system (nargs + 1, args2); 1181 coding_systems = Ffind_coding_system (nargs + 1, args2);
1182 UNGCPRO; 1182 UNGCPRO;
1183 if (CONSP (coding_systems)) 1183 if (CONSP (coding_systems))
1184 val = XCONS (coding_systems)->car; 1184 val = XCONS (coding_systems)->car;
1185 else if (CONSP (Vdefault_process_coding_system))
1186 val = XCONS (Vdefault_process_coding_system)->car;
1185 } 1187 }
1186 XPROCESS (proc)->decode_coding_system = val; 1188 XPROCESS (proc)->decode_coding_system = val;
1187 1189
1188 if (NILP (val = Vcoding_system_for_write)) 1190 if (NILP (val = Vcoding_system_for_write))
1189 { 1191 {
1196 coding_systems = Ffind_coding_system (nargs + 1, args2); 1198 coding_systems = Ffind_coding_system (nargs + 1, args2);
1197 UNGCPRO; 1199 UNGCPRO;
1198 } 1200 }
1199 if (CONSP (coding_systems)) 1201 if (CONSP (coding_systems))
1200 val = XCONS (coding_systems)->cdr; 1202 val = XCONS (coding_systems)->cdr;
1203 else if (CONSP (Vdefault_process_coding_system))
1204 val = XCONS (Vdefault_process_coding_system)->cdr;
1201 } 1205 }
1202 XPROCESS (proc)->encode_coding_system = val; 1206 XPROCESS (proc)->encode_coding_system = val;
1203 } 1207 }
1204 1208
1205 XPROCESS (proc)->decoding_buf = make_uninit_string (0); 1209 XPROCESS (proc)->decoding_buf = make_uninit_string (0);
1905 args[0] = Qopen_network_stream, args[1] = name, 1909 args[0] = Qopen_network_stream, args[1] = name,
1906 args[2] = buffer, args[3] = host, args[4] = service; 1910 args[2] = buffer, args[3] = host, args[4] = service;
1907 GCPRO1 (proc); 1911 GCPRO1 (proc);
1908 coding_systems = Ffind_coding_system (5, args); 1912 coding_systems = Ffind_coding_system (5, args);
1909 UNGCPRO; 1913 UNGCPRO;
1910 val = (CONSP (coding_systems) ? XCONS (coding_systems)->car : Qnil); 1914 if (CONSP (coding_systems))
1915 val = XCONS (coding_systems)->car;
1916 else if (CONSP (Vdefault_process_coding_system))
1917 val = XCONS (Vdefault_process_coding_system)->car;
1911 } 1918 }
1912 XPROCESS (proc)->decode_coding_system = val; 1919 XPROCESS (proc)->decode_coding_system = val;
1913 1920
1914 if (NILP (val = Vcoding_system_for_write)) 1921 if (NILP (val = Vcoding_system_for_write))
1915 { 1922 {
1919 args[2] = buffer, args[3] = host, args[4] = service; 1926 args[2] = buffer, args[3] = host, args[4] = service;
1920 GCPRO1 (proc); 1927 GCPRO1 (proc);
1921 coding_systems = Ffind_coding_system (5, args); 1928 coding_systems = Ffind_coding_system (5, args);
1922 UNGCPRO; 1929 UNGCPRO;
1923 } 1930 }
1924 val = (CONSP (coding_systems) ? XCONS (coding_systems)->cdr : Qnil); 1931 if (CONSP (coding_systems))
1932 val = XCONS (coding_systems)->cdr;
1933 else if (CONSP (Vdefault_process_coding_system))
1934 val = XCONS (Vdefault_process_coding_system)->cdr;
1925 } 1935 }
1926 XPROCESS (proc)->encode_coding_system = val; 1936 XPROCESS (proc)->encode_coding_system = val;
1927 } 1937 }
1928 1938
1929 if (!proc_decode_coding_system[inch]) 1939 if (!proc_decode_coding_system[inch])