diff options
author | Ken Raeburn <[email protected]> | 2002-08-08 16:59:23 +0000 |
---|---|---|
committer | Ken Raeburn <[email protected]> | 2002-08-08 16:59:23 +0000 |
commit | d90ed3b46f7cbee36a60ce73deb4f5ad9917b65a (patch) | |
tree | b65af4e47be43b4dcccfa1a7f37ccd4db9933b0e /src/coding.c | |
parent | 7f787cfd76c86511c86724ab6276c66a054f5b9d (diff) |
(Ffind_operation_coding_system): Fix Lisp_Object/int mixup.
Diffstat (limited to 'src/coding.c')
-rw-r--r-- | src/coding.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/coding.c b/src/coding.c index 952fc1408f..57d7e4b21f 100644 --- a/src/coding.c +++ b/src/coding.c @@ -6884,7 +6884,7 @@ usage: (find-operation-coding-system OPERATION ARGUMENTS ...) */) if (EQ (operation, Qwrite_region) && nargs > 5 && STRINGP (args[5])) - target_idx = 4; + target_idx = make_number (4); target = args[XINT (target_idx) + 1]; if (!(STRINGP (target) || (EQ (operation, Qopen_network_stream) && INTEGERP (target)))) |