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;