3130 |
int count; |
int count; |
3131 |
Lisp_Object value; |
Lisp_Object value; |
3132 |
{ |
{ |
3133 |
int quitf = !NILP (Vquit_flag); |
Lisp_Object quitf = Vquit_flag; |
3134 |
struct gcpro gcpro1; |
struct gcpro gcpro1, gcpro2; |
3135 |
|
|
3136 |
GCPRO1 (value); |
GCPRO2 (value, quitf); |
3137 |
Vquit_flag = Qnil; |
Vquit_flag = Qnil; |
3138 |
|
|
3139 |
while (specpdl_ptr != specpdl + count) |
while (specpdl_ptr != specpdl + count) |
3182 |
} |
} |
3183 |
} |
} |
3184 |
|
|
3185 |
if (NILP (Vquit_flag) && quitf) |
if (NILP (Vquit_flag) && !NILP (quitf)) |
3186 |
Vquit_flag = Qt; |
Vquit_flag = quitf; |
3187 |
|
|
3188 |
UNGCPRO; |
UNGCPRO; |
3189 |
return value; |
return value; |