diff options
| -rw-r--r-- | src/eval.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index 60672553f15..45147ecfb35 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -1212,11 +1212,11 @@ The symbol `error' should normally be one of them.\n\ | |||
| 1212 | DATA should be a list. Its elements are printed as part of the error message.\n\ | 1212 | DATA should be a list. Its elements are printed as part of the error message.\n\ |
| 1213 | If the signal is handled, DATA is made available to the handler.\n\ | 1213 | If the signal is handled, DATA is made available to the handler.\n\ |
| 1214 | See also the function `condition-case'.") | 1214 | See also the function `condition-case'.") |
| 1215 | /* When memory is full, ERROR-SYMBOL is nil, | ||
| 1216 | and DATA is (REAL-ERROR-SYMBOL . REAL-DATA). */ | ||
| 1217 | (error_symbol, data) | 1215 | (error_symbol, data) |
| 1218 | Lisp_Object error_symbol, data; | 1216 | Lisp_Object error_symbol, data; |
| 1219 | { | 1217 | { |
| 1218 | /* When memory is full, ERROR-SYMBOL is nil, | ||
| 1219 | and DATA is (REAL-ERROR-SYMBOL . REAL-DATA). */ | ||
| 1220 | register struct handler *allhandlers = handlerlist; | 1220 | register struct handler *allhandlers = handlerlist; |
| 1221 | Lisp_Object conditions; | 1221 | Lisp_Object conditions; |
| 1222 | extern int gc_in_progress; | 1222 | extern int gc_in_progress; |