From 888dc2a0b5e937ae8976ebef0f4b8091c0cd542c Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 17 Aug 2025 16:48:35 +0200 Subject: [PATCH] Reject invalid error symbols (Bug#76447) * src/eval.c (signal_or_quit): Signal an error if 'signal' gets called with an invalid error symbol. --- src/eval.c | 2 ++ 1 file changed, 2 insertions(+) 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) } conditions = Fget (real_error_symbol, Qerror_conditions); + if (NILP (conditions)) + signal_error ("Invalid error symbol", error_symbol); /* Remember from where signal was called. Skip over the frame for `signal' itself. If a frame for `error' follows, skip that,