Mercurial > hg > xemacs-beta

comparison src/eval.c @ 203:850242ba4a81 r20-3b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents a2f645c6b9f8
children 78478c60bfcd
comparison
equal deleted inserted replaced
202:61eefc8fc970 203:850242ba4a81
1394 static void 1394 static void
1395 unwind_to_catch (struct catchtag *c, Lisp_Object val) 1395 unwind_to_catch (struct catchtag *c, Lisp_Object val)
1396 { 1396 {
1397 #if 0 /* FSFmacs */ 1397 #if 0 /* FSFmacs */
1398 /* #### */ 1398 /* #### */
1399 register int last_time; 1399 REGISTER int last_time;
1400 #endif 1400 #endif
1401 1401
1402 /* Unwind the specbind, catch, and handler stacks back to CATCH 1402 /* Unwind the specbind, catch, and handler stacks back to CATCH
1403 Before each catch is discarded, unbind all special bindings 1403 Before each catch is discarded, unbind all special bindings
1404 and execute all unwind-protect clauses made above that catch. 1404 and execute all unwind-protect clauses made above that catch.