procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Ffind_operation_coding_system): Fix Lisp_Object/int mixup.

Browse source
This commit is contained in:
Ken Raeburn 2002-08-08 16:59:23 +00:00
parent 7f787cfd76
commit d90ed3b46f
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/ChangeLog
View file

@ -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> 2002-08-08 Kenichi Handa <handa@etl.go.jp>
* coding.c (Ffind_operation_coding_system): For write-region, if * coding.c (Ffind_operation_coding_system): For write-region, if

2
src/coding.c
View file

@ -6884,7 +6884,7 @@ usage: (find-operation-coding-system OPERATION ARGUMENTS ...) */)
if (EQ (operation, Qwrite_region) if (EQ (operation, Qwrite_region)
&& nargs > 5 && nargs > 5
&& STRINGP (args[5])) && STRINGP (args[5]))
target_idx = 4; target_idx = make_number (4);
target = args[XINT (target_idx) + 1]; target = args[XINT (target_idx) + 1];
if (!(STRINGP (target) if (!(STRINGP (target)
|| (EQ (operation, Qopen_network_stream) && INTEGERP (target)))) || (EQ (operation, Qopen_network_stream) && INTEGERP (target))))