diff options
| author | Stefan Monnier | 2025-08-17 16:48:35 +0200 |
|---|---|---|
| committer | Philipp Stephani | 2025-08-17 17:26:09 +0200 |
| commit | 888dc2a0b5e937ae8976ebef0f4b8091c0cd542c (patch) | |
| tree | a7bd80a01bd2d5a2788a6fa1cba353c56c0b3908 /src/eval.c | |
| parent | 1f4e2e82649bb2a122b1406caf645ea06a933dc6 (diff) | |
| download | emacs-888dc2a0b5e937ae8976ebef0f4b8091c0cd542c.tar.gz emacs-888dc2a0b5e937ae8976ebef0f4b8091c0cd542c.zip | |
Reject invalid error symbols (Bug#76447)
* src/eval.c (signal_or_quit): Signal an error if 'signal' gets called
with an invalid error symbol.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/eval.c b/src/eval.c index 0d4ae91136e..2dc14b6d431 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -1948,6 +1948,8 @@ signal_or_quit (Lisp_Object error_symbol, Lisp_Object data, bool continuable) | |||
| 1948 | } | 1948 | } |
| 1949 | 1949 | ||
| 1950 | conditions = Fget (real_error_symbol, Qerror_conditions); | 1950 | conditions = Fget (real_error_symbol, Qerror_conditions); |
| 1951 | if (NILP (conditions)) | ||
| 1952 | signal_error ("Invalid error symbol", error_symbol); | ||
| 1951 | 1953 | ||
| 1952 | /* Remember from where signal was called. Skip over the frame for | 1954 | /* Remember from where signal was called. Skip over the frame for |
| 1953 | `signal' itself. If a frame for `error' follows, skip that, | 1955 | `signal' itself. If a frame for `error' follows, skip that, |