/[emacs]/emacs/src/eval.c
ViewVC logotype

Diff of /emacs/src/eval.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.239 by lute, Thu May 26 09:32:15 2005 UTC revision 1.240 by kfstorm, Fri Jun 3 23:02:21 2005 UTC
# Line 3130  unbind_to (count, value) Line 3130  unbind_to (count, value)
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)
# Line 3182  unbind_to (count, value) Line 3182  unbind_to (count, value)
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;

Legend:
Removed from v.1.239  
changed lines
  Added in v.1.240

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26