/[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.170 by pj, Fri Nov 2 20:23:55 2001 UTC revision 1.171 by pj, Fri Nov 2 22:40:00 2001 UTC
# Line 134  int max_lisp_eval_depth; Line 134  int max_lisp_eval_depth;
134    
135  int debug_on_next_call;  int debug_on_next_call;
136    
137  /* Non-zero means debuffer may continue.  This is zero when the  /* Non-zero means debugger may continue.  This is zero when the
138     debugger is called during redisplay, where it might not be safe to     debugger is called during redisplay, where it might not be safe to
139     continue the interrupted redisplay. */     continue the interrupted redisplay. */
140    
# Line 151  Lisp_Object Vstack_trace_on_error; Line 151  Lisp_Object Vstack_trace_on_error;
151  Lisp_Object Vdebug_on_error;  Lisp_Object Vdebug_on_error;
152    
153  /* List of conditions and regexps specifying error messages which  /* List of conditions and regexps specifying error messages which
154     do not enter the debugger even if Vdebug_on_errors says they should.  */     do not enter the debugger even if Vdebug_on_error says they should.  */
155    
156  Lisp_Object Vdebug_ignored_errors;  Lisp_Object Vdebug_ignored_errors;
157    
# Line 265  call_debugger (arg) Line 265  call_debugger (arg)
265    
266    /* Interrupting redisplay and resuming it later is not safe under    /* Interrupting redisplay and resuming it later is not safe under
267       all circumstances.  So, when the debugger returns, abort the       all circumstances.  So, when the debugger returns, abort the
268       interupted redisplay by going back to the top-level.  */       interrupted redisplay by going back to the top-level.  */
269    if (debug_while_redisplaying)    if (debug_while_redisplaying)
270      Ftop_level ();      Ftop_level ();
271    
# Line 1184  struct handler *handlerlist; Line 1184  struct handler *handlerlist;
1184    
1185  DEFUN ("condition-case", Fcondition_case, Scondition_case, 2, UNEVALLED, 0,  DEFUN ("condition-case", Fcondition_case, Scondition_case, 2, UNEVALLED, 0,
1186         doc: /* Regain control when an error is signaled.         doc: /* Regain control when an error is signaled.
1187  executes BODYFORM and returns its value if no error happens.  Executes BODYFORM and returns its value if no error happens.
1188  Each element of HANDLERS looks like (CONDITION-NAME BODY...)  Each element of HANDLERS looks like (CONDITION-NAME BODY...)
1189  where the BODY is made of Lisp expressions.  where the BODY is made of Lisp expressions.
1190    
# Line 1555  wants_debugger (list, conditions) Line 1555  wants_debugger (list, conditions)
1555    
1556  /* Return 1 if an error with condition-symbols CONDITIONS,  /* Return 1 if an error with condition-symbols CONDITIONS,
1557     and described by SIGNAL-DATA, should skip the debugger     and described by SIGNAL-DATA, should skip the debugger
1558     according to debugger-ignore-errors.  */     according to debugger-ignored-errors.  */
1559    
1560  static int  static int
1561  skip_debugger (conditions, data)  skip_debugger (conditions, data)
# Line 3069  unbind_to (count, value) Line 3069  unbind_to (count, value)
3069        /* If the symbol is a list, it is really (SYMBOL WHERE        /* If the symbol is a list, it is really (SYMBOL WHERE
3070           . CURRENT-BUFFER) where WHERE is either nil, a buffer, or a           . CURRENT-BUFFER) where WHERE is either nil, a buffer, or a
3071           frame.  If WHERE is a buffer or frame, this indicates we           frame.  If WHERE is a buffer or frame, this indicates we
3072           bound a variable that had a buffer-local or frmae-local           bound a variable that had a buffer-local or frame-local
3073           binding..  WHERE nil means that the variable had the default           binding.  WHERE nil means that the variable had the default
3074           value when it was bound.  CURRENT-BUFFER is the buffer that           value when it was bound.  CURRENT-BUFFER is the buffer that
3075           was current when the variable was bound.  */           was current when the variable was bound.  */
3076        else if (CONSP (specpdl_ptr->symbol))        else if (CONSP (specpdl_ptr->symbol))

Legend:
Removed from v.1.170  
changed lines
  Added in v.1.171

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