diff options
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/coding.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 85064397cf1..8c87db20540 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2002-08-08 Ken Raeburn <raeburn@mit.edu> + + * coding.c (Ffind_operation_coding_system): Fix Lisp_Object/int + mixup. + 2002-08-08 Kenichi Handa <handa@etl.go.jp> * coding.c (Ffind_operation_coding_system): For write-region, if diff --git a/src/coding.c b/src/coding.c index 952fc1408f5..57d7e4b21fd 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)))) |