comparison src/eval.c @ 406:b8cc9ab3f761 r21-2-33

Import from CVS: tag r21-2-33
author cvs
date Mon, 13 Aug 2007 11:17:09 +0200
parents 2f8bb876ab1d
children 501cfd01ee6d
comparison
equal deleted inserted replaced
405:0e08f63c74d2 406:b8cc9ab3f761
4639 void 4639 void
4640 unbind_to_hairy (int count) 4640 unbind_to_hairy (int count)
4641 { 4641 {
4642 int quitf; 4642 int quitf;
4643 4643
4644 ++specpdl_ptr;
4645 ++specpdl_depth_counter;
4646
4644 check_quit (); /* make Vquit_flag accurate */ 4647 check_quit (); /* make Vquit_flag accurate */
4645 quitf = !NILP (Vquit_flag); 4648 quitf = !NILP (Vquit_flag);
4646 Vquit_flag = Qnil; 4649 Vquit_flag = Qnil;
4647
4648 ++specpdl_ptr;
4649 ++specpdl_depth_counter;
4650 4650
4651 while (specpdl_depth_counter != count) 4651 while (specpdl_depth_counter != count)
4652 { 4652 {
4653 --specpdl_ptr; 4653 --specpdl_ptr;
4654 --specpdl_depth_counter; 4654 --specpdl_depth_counter;