Mercurial > hg > xemacs-beta

comparison src/eval.c @ 94:1040fe1366ac xemacs-20-0f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag xemacs-20-0f2
author cvs
date Mon, 13 Aug 2007 09:12:09 +0200
parents 54cc21c15cbb
children 9f59509498e1
comparison
equal deleted inserted replaced
93:486ff617c2a1 94:1040fe1366ac
401 401
402 static Lisp_Object 402 static Lisp_Object
403 do_debug_on_exit (Lisp_Object val) 403 do_debug_on_exit (Lisp_Object val)
404 { 404 {
405 /* This is falsified by call_debugger */ 405 /* This is falsified by call_debugger */
406 int old_debug_on_next_call = debug_on_next_call;
407 Lisp_Object v = call_debugger (list2 (Qexit, val)); 406 Lisp_Object v = call_debugger (list2 (Qexit, val));
408 debug_on_next_call = old_debug_on_next_call; 407
409 return ((!UNBOUNDP (v)) ? v : val); 408 return ((!UNBOUNDP (v)) ? v : val);
410 } 409 }
411 410
412 /* Called when debug-on-call behavior is called for. Enter the debugger 411 /* Called when debug-on-call behavior is called for. Enter the debugger
413 with the appropriate args for this. VAL is either t for a call 412 with the appropriate args for this. VAL is either t for a call