Mercurial > hg > xemacs-beta
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; |