Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Reject invalid error symbols (Bug#76447)

Browse source 
* src/eval.c (signal_or_quit): Signal an error if 'signal' gets called
with an invalid error symbol.
This commit is contained in:
Stefan Monnier 2025-08-17 16:48:35 +02:00 committed by Philipp Stephani
parent 1f4e2e8264
commit 888dc2a0b5
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/eval.c
View file

@ -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,