diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-03 16:00:20 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-03 16:00:20 +0200 |
| commit | 18e163fd3455deaa30b1effd19f51a5094bc0885 (patch) | |
| tree | 3eb2bab1fe2b981c1f2e04b75e9dc53cb63e4310 /src/search.c | |
| parent | f77a39514687f57c947e9105172c3d3821a759cc (diff) | |
| download | emacs-18e163fd3455deaa30b1effd19f51a5094bc0885.tar.gz emacs-18e163fd3455deaa30b1effd19f51a5094bc0885.tar.bz2 emacs-18e163fd3455deaa30b1effd19f51a5094bc0885.zip | |
Fix error message in replace-match for subexpressions
* src/search.c (Freplace_match): Output a more understandable
error message when replacing a subexpression (bug#19208).
Diffstat (limited to 'src/search.c')
| -rw-r--r-- | src/search.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/search.c b/src/search.c index 2fa8b277195..0e2ae059e81 100644 --- a/src/search.c +++ b/src/search.c @@ -2404,6 +2404,12 @@ since only regular expressions have distinguished subexpressions. */) args_out_of_range (subexp, make_fixnum (search_regs.num_regs)); } + /* Check whether the subexpression to replace is greater than the + number of subexpressions in the regexp. */ + if (sub > 0 && search_regs.start[sub] == -1) + args_out_of_range (build_string ("Attempt to replace regexp subexpression that doesn't exist"), + subexp); + /* Sanity check to see whether the text to replace is present in the buffer/string. */ if (NILP (string)) |