diff options
| author | Mattias EngdegÄrd | 2023-04-13 17:25:25 +0200 |
|---|---|---|
| committer | Mattias EngdegÄrd | 2023-04-13 17:25:25 +0200 |
| commit | abb43a62365b378b27a85456db42dfa34d2ad760 (patch) | |
| tree | bbc5bcd3aca5d2759164501185cb2058ffc72b2b /src/data.c | |
| parent | df4a6342fa439de49451f6c48c7bfe639e8a3d6e (diff) | |
| download | emacs-abb43a62365b378b27a85456db42dfa34d2ad760.tar.gz emacs-abb43a62365b378b27a85456db42dfa34d2ad760.zip | |
Stop pretending that specpdl overflow can ever occur
* src/eval.c (grow_specpdl_allocation): Remove impossible error.
* src/data.c (syms_of_data): Note obsolence of
`excessive-variable-binding`.
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c index 8dc5000424e..4ab37e86ce5 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -4217,10 +4217,11 @@ syms_of_data (void) | |||
| 4217 | Fput (Qrecursion_error, Qerror_message, build_pure_c_string | 4217 | Fput (Qrecursion_error, Qerror_message, build_pure_c_string |
| 4218 | ("Excessive recursive calling error")); | 4218 | ("Excessive recursive calling error")); |
| 4219 | 4219 | ||
| 4220 | PUT_ERROR (Qexcessive_variable_binding, recursion_tail, | ||
| 4221 | "Variable binding depth exceeds max-specpdl-size"); | ||
| 4222 | PUT_ERROR (Qexcessive_lisp_nesting, recursion_tail, | 4220 | PUT_ERROR (Qexcessive_lisp_nesting, recursion_tail, |
| 4223 | "Lisp nesting exceeds `max-lisp-eval-depth'"); | 4221 | "Lisp nesting exceeds `max-lisp-eval-depth'"); |
| 4222 | /* Error obsolete (from 29.1), kept for compatibility. */ | ||
| 4223 | PUT_ERROR (Qexcessive_variable_binding, recursion_tail, | ||
| 4224 | "Variable binding depth exceeds max-specpdl-size"); | ||
| 4224 | 4225 | ||
| 4225 | /* Types that type-of returns. */ | 4226 | /* Types that type-of returns. */ |
| 4226 | DEFSYM (Qinteger, "integer"); | 4227 | DEFSYM (Qinteger, "integer"); |