Mercurial > emacs

comparison src/coding.c @ 90432:0608690171d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Ffind_operation_coding_system): Sync with HEAD.
author Kenichi Handa <handa@m17n.org>
date Thu, 08 Jun 2006 06:48:34 +0000
parents a8190f7e546e
children 8a8e69664178
comparison
equal deleted inserted replaced
90431:884c305a9799 90432:0608690171d1
8351 if (nargs < 1 + XINT (target_idx)) 8351 if (nargs < 1 + XINT (target_idx))
8352 error ("Too few arguments for operation: %s", 8352 error ("Too few arguments for operation: %s",
8353 SDATA (SYMBOL_NAME (operation))); 8353 SDATA (SYMBOL_NAME (operation)));
8354 target = args[XINT (target_idx) + 1]; 8354 target = args[XINT (target_idx) + 1];
8355 if (!(STRINGP (target) 8355 if (!(STRINGP (target)
8356 || (EQ (operation, Qinsert_file_contents) && CONSP (target)
8357 && STRINGP (XCAR (target)) && BUFFERP (XCDR (target)))
8356 || (EQ (operation, Qopen_network_stream) && INTEGERP (target)))) 8358 || (EQ (operation, Qopen_network_stream) && INTEGERP (target))))
8357 error ("Invalid %dth argument", XINT (target_idx) + 1); 8359 error ("Invalid %dth argument", XINT (target_idx) + 1);
8360 if (CONSP (target))
8361 target = XCAR (target);
8358 8362
8359 chain = ((EQ (operation, Qinsert_file_contents) 8363 chain = ((EQ (operation, Qinsert_file_contents)
8360 || EQ (operation, Qwrite_region)) 8364 || EQ (operation, Qwrite_region))
8361 ? Vfile_coding_system_alist 8365 ? Vfile_coding_system_alist
8362 : (EQ (operation, Qopen_network_stream) 8366 : (EQ (operation, Qopen_network_stream)