diff options
| author | Paul Eggert | 2011-09-27 09:31:12 -0700 |
|---|---|---|
| committer | Paul Eggert | 2011-09-27 09:31:12 -0700 |
| commit | 7b09a37a895ab2d428d1ab0786aa262ef82efba2 (patch) | |
| tree | 6c5c801a75e935804a4a25d524d83124d4de029b /src/coding.c | |
| parent | eee134655504adba0a868dc064078e814d6aa33a (diff) | |
| download | emacs-7b09a37a895ab2d428d1ab0786aa262ef82efba2.tar.gz emacs-7b09a37a895ab2d428d1ab0786aa262ef82efba2.zip | |
* coding.c (Ffind_operation_coding_system): Avoid subscript error.
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 25ac0e9764c..e8765aea96d 100644 --- a/src/coding.c +++ b/src/coding.c | |||
| @@ -9291,7 +9291,7 @@ usage: (find-operation-coding-system OPERATION ARGUMENTS...) */) | |||
| 9291 | if (!SYMBOLP (operation) | 9291 | if (!SYMBOLP (operation) |
| 9292 | || (target_idx = Fget (operation, Qtarget_idx), !NATNUMP (target_idx))) | 9292 | || (target_idx = Fget (operation, Qtarget_idx), !NATNUMP (target_idx))) |
| 9293 | error ("Invalid first argument"); | 9293 | error ("Invalid first argument"); |
| 9294 | if (nargs < 1 + XFASTINT (target_idx)) | 9294 | if (nargs <= 1 + XFASTINT (target_idx)) |
| 9295 | error ("Too few arguments for operation `%s'", | 9295 | error ("Too few arguments for operation `%s'", |
| 9296 | SDATA (SYMBOL_NAME (operation))); | 9296 | SDATA (SYMBOL_NAME (operation))); |
| 9297 | target = args[XFASTINT (target_idx) + 1]; | 9297 | target = args[XFASTINT (target_idx) + 1]; |