Mercurial > emacs
comparison src/eval.c @ 30058:cbdbc61ee760
(internal_condition_case): Comment out abort if
interrupt_input_blocked is not zero.
author | Andrew Innes <andrewi@gnu.org> |
---|---|
date | Wed, 05 Jul 2000 15:40:14 +0000 |
parents | 86eaa645e6bc |
children | ed8f34a43649 |
comparison
equal
deleted
inserted
replaced
30057:6413c7b9a6c3 | 30058:cbdbc61ee760 |
---|---|
1170 { | 1170 { |
1171 Lisp_Object val; | 1171 Lisp_Object val; |
1172 struct catchtag c; | 1172 struct catchtag c; |
1173 struct handler h; | 1173 struct handler h; |
1174 | 1174 |
1175 #if 0 /* Can't do this check anymore because realize_basic_faces has | |
1176 to BLOCK_INPUT, and can call Lisp. What's really needed is a | |
1177 flag indicating that we're currently handling a signal. */ | |
1175 /* Since Fsignal resets this to 0, it had better be 0 now | 1178 /* Since Fsignal resets this to 0, it had better be 0 now |
1176 or else we have a potential bug. */ | 1179 or else we have a potential bug. */ |
1177 if (interrupt_input_blocked != 0) | 1180 if (interrupt_input_blocked != 0) |
1178 abort (); | 1181 abort (); |
1182 #endif | |
1179 | 1183 |
1180 c.tag = Qnil; | 1184 c.tag = Qnil; |
1181 c.val = Qnil; | 1185 c.val = Qnil; |
1182 c.backlist = backtrace_list; | 1186 c.backlist = backtrace_list; |
1183 c.handlerlist = handlerlist; | 1187 c.handlerlist = handlerlist; |