Mercurial > emacs

comparison src/coding.c @ 46839:4acadb428f41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Ffind_operation_coding_system): Fix Lisp_Object/int mixup.
author Ken Raeburn <raeburn@raeburn.org>
date Thu, 08 Aug 2002 16:59:15 +0000
parents 395572099269
children a26dd8891732
comparison
equal deleted inserted replaced
46838:395572099269 46839:4acadb428f41
6882 argument to write-region) is string, it must be treated as a 6882 argument to write-region) is string, it must be treated as a
6883 target file name. */ 6883 target file name. */
6884 if (EQ (operation, Qwrite_region) 6884 if (EQ (operation, Qwrite_region)
6885 && nargs > 5 6885 && nargs > 5
6886 && STRINGP (args[5])) 6886 && STRINGP (args[5]))
6887 target_idx = 4; 6887 target_idx = make_number (4);
6888 target = args[XINT (target_idx) + 1]; 6888 target = args[XINT (target_idx) + 1];
6889 if (!(STRINGP (target) 6889 if (!(STRINGP (target)
6890 || (EQ (operation, Qopen_network_stream) && INTEGERP (target)))) 6890 || (EQ (operation, Qopen_network_stream) && INTEGERP (target))))
6891 error ("Invalid argument %d", XINT (target_idx) + 1); 6891 error ("Invalid argument %d", XINT (target_idx) + 1);
6892 6892