diff options
| -rw-r--r-- | src/emacs-module.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/emacs-module.c b/src/emacs-module.c index 20dcff2b67a..d7704efcf6e 100644 --- a/src/emacs-module.c +++ b/src/emacs-module.c | |||
| @@ -614,8 +614,11 @@ module_copy_string_contents (emacs_env *env, emacs_value value, char *buffer, | |||
| 614 | 614 | ||
| 615 | if (*length < required_buf_size) | 615 | if (*length < required_buf_size) |
| 616 | { | 616 | { |
| 617 | ptrdiff_t actual = *length; | ||
| 617 | *length = required_buf_size; | 618 | *length = required_buf_size; |
| 618 | xsignal0 (Qargs_out_of_range); | 619 | args_out_of_range_3 (INT_TO_INTEGER (actual), |
| 620 | INT_TO_INTEGER (required_buf_size), | ||
| 621 | INT_TO_INTEGER (PTRDIFF_MAX)); | ||
| 619 | } | 622 | } |
| 620 | 623 | ||
| 621 | *length = required_buf_size; | 624 | *length = required_buf_size; |