diff options
| author | Ken Raeburn <raeburn@raeburn.org> | 2002-08-08 16:59:23 +0000 |
|---|---|---|
| committer | Ken Raeburn <raeburn@raeburn.org> | 2002-08-08 16:59:23 +0000 |
| commit | d90ed3b46f7cbee36a60ce73deb4f5ad9917b65a (patch) | |
| tree | b65af4e47be43b4dcccfa1a7f37ccd4db9933b0e | |
| parent | 7f787cfd76c86511c86724ab6276c66a054f5b9d (diff) | |
| download | emacs-d90ed3b46f7cbee36a60ce73deb4f5ad9917b65a.tar.gz emacs-d90ed3b46f7cbee36a60ce73deb4f5ad9917b65a.tar.bz2 emacs-d90ed3b46f7cbee36a60ce73deb4f5ad9917b65a.zip | |
(Ffind_operation_coding_system): Fix Lisp_Object/int mixup.
| -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)))) |