diff options
| author | Richard M. Stallman | 2004-06-21 03:24:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-06-21 03:24:25 +0000 |
| commit | f90a5bf53ae425bee1f729d80c0d426d2500c6ed (patch) | |
| tree | 8153292fe4d165398a20ffea8542ec2d8e30e61d /src | |
| parent | 3cb7143cd863e82070e20732ddefdf19876fd7d9 (diff) | |
| download | emacs-f90a5bf53ae425bee1f729d80c0d426d2500c6ed.tar.gz emacs-f90a5bf53ae425bee1f729d80c0d426d2500c6ed.zip | |
(match_limit): Cleaner err msg when no match data available.
Diffstat (limited to 'src')
| -rw-r--r-- | src/search.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/search.c b/src/search.c index 24f21f053a5..ec83065bbc3 100644 --- a/src/search.c +++ b/src/search.c | |||
| @@ -2622,8 +2622,10 @@ match_limit (num, beginningp) | |||
| 2622 | 2622 | ||
| 2623 | CHECK_NUMBER (num); | 2623 | CHECK_NUMBER (num); |
| 2624 | n = XINT (num); | 2624 | n = XINT (num); |
| 2625 | if (n < 0 || search_regs.num_regs <= 0) | 2625 | if (n < 0) |
| 2626 | args_out_of_range (num, make_number (search_regs.num_regs)); | 2626 | args_out_of_range (num, 0); |
| 2627 | if (search_regs.num_regs <= 0) | ||
| 2628 | error ("No match data, because no search succeeded"); | ||
| 2627 | if (n >= search_regs.num_regs | 2629 | if (n >= search_regs.num_regs |
| 2628 | || search_regs.start[n] < 0) | 2630 | || search_regs.start[n] < 0) |
| 2629 | return Qnil; | 2631 | return Qnil; |