diff options
| author | Ken Raeburn | 2002-08-08 16:59:23 +0000 |
|---|---|---|
| committer | Ken Raeburn | 2002-08-08 16:59:23 +0000 |
| commit | d90ed3b46f7cbee36a60ce73deb4f5ad9917b65a (patch) | |
| tree | b65af4e47be43b4dcccfa1a7f37ccd4db9933b0e /src/coding.c | |
| parent | 7f787cfd76c86511c86724ab6276c66a054f5b9d (diff) | |
| download | emacs-d90ed3b46f7cbee36a60ce73deb4f5ad9917b65a.tar.gz emacs-d90ed3b46f7cbee36a60ce73deb4f5ad9917b65a.zip | |
(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 952fc1408f5..57d7e4b21fd 100644 --- a/src/coding.c +++ b/src/coding.c | |||
| @@ -6884,7 +6884,7 @@ usage: (find-operation-coding-system OPERATION ARGUMENTS ...) */) | |||
| 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)))) |