Mercurial > hg > xemacs-beta
diff src/eval.c @ 94:1040fe1366ac xemacs-20-0f2
Import from CVS: tag xemacs-20-0f2
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:12:09 +0200 |
parents | 54cc21c15cbb |
children | 9f59509498e1 |
line wrap: on
line diff
--- a/src/eval.c Mon Aug 13 09:11:41 2007 +0200 +++ b/src/eval.c Mon Aug 13 09:12:09 2007 +0200 @@ -403,9 +403,8 @@ do_debug_on_exit (Lisp_Object val) { /* This is falsified by call_debugger */ - int old_debug_on_next_call = debug_on_next_call; Lisp_Object v = call_debugger (list2 (Qexit, val)); - debug_on_next_call = old_debug_on_next_call; + return ((!UNBOUNDP (v)) ? v : val); }