diff options
Diffstat (limited to 'src')
| -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, |