diff options
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 84 |
1 files changed, 0 insertions, 84 deletions
diff --git a/src/eval.c b/src/eval.c index c46b74ac40c..39c328ea1fa 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -1501,90 +1501,6 @@ internal_condition_case_2 (Lisp_Object (*bfun) (Lisp_Object, Lisp_Object), | |||
| 1501 | } | 1501 | } |
| 1502 | } | 1502 | } |
| 1503 | 1503 | ||
| 1504 | /* Like internal_condition_case_1 but call BFUN with ARG1, ARG2, ARG3 as | ||
| 1505 | its arguments. */ | ||
| 1506 | |||
| 1507 | Lisp_Object | ||
| 1508 | internal_condition_case_3 (Lisp_Object (*bfun) (Lisp_Object, Lisp_Object, | ||
| 1509 | Lisp_Object), | ||
| 1510 | Lisp_Object arg1, Lisp_Object arg2, Lisp_Object arg3, | ||
| 1511 | Lisp_Object handlers, | ||
| 1512 | Lisp_Object (*hfun) (Lisp_Object)) | ||
| 1513 | { | ||
| 1514 | struct handler *c = push_handler (handlers, CONDITION_CASE); | ||
| 1515 | if (sys_setjmp (c->jmp)) | ||
| 1516 | { | ||
| 1517 | Lisp_Object val = handlerlist->val; | ||
| 1518 | clobbered_eassert (handlerlist == c); | ||
| 1519 | handlerlist = handlerlist->next; | ||
| 1520 | return hfun (val); | ||
| 1521 | } | ||
| 1522 | else | ||
| 1523 | { | ||
| 1524 | Lisp_Object val = bfun (arg1, arg2, arg3); | ||
| 1525 | eassert (handlerlist == c); | ||
| 1526 | handlerlist = c->next; | ||
| 1527 | return val; | ||
| 1528 | } | ||
| 1529 | } | ||
| 1530 | |||
| 1531 | /* Like internal_condition_case_1 but call BFUN with ARG1, ARG2, ARG3, ARG4 as | ||
| 1532 | its arguments. */ | ||
| 1533 | |||
| 1534 | Lisp_Object | ||
| 1535 | internal_condition_case_4 (Lisp_Object (*bfun) (Lisp_Object, Lisp_Object, | ||
| 1536 | Lisp_Object, Lisp_Object), | ||
| 1537 | Lisp_Object arg1, Lisp_Object arg2, | ||
| 1538 | Lisp_Object arg3, Lisp_Object arg4, | ||
| 1539 | Lisp_Object handlers, | ||
| 1540 | Lisp_Object (*hfun) (Lisp_Object)) | ||
| 1541 | { | ||
| 1542 | struct handler *c = push_handler (handlers, CONDITION_CASE); | ||
| 1543 | if (sys_setjmp (c->jmp)) | ||
| 1544 | { | ||
| 1545 | Lisp_Object val = handlerlist->val; | ||
| 1546 | clobbered_eassert (handlerlist == c); | ||
| 1547 | handlerlist = handlerlist->next; | ||
| 1548 | return hfun (val); | ||
| 1549 | } | ||
| 1550 | else | ||
| 1551 | { | ||
| 1552 | Lisp_Object val = bfun (arg1, arg2, arg3, arg4); | ||
| 1553 | eassert (handlerlist == c); | ||
| 1554 | handlerlist = c->next; | ||
| 1555 | return val; | ||
| 1556 | } | ||
| 1557 | } | ||
| 1558 | |||
| 1559 | /* Like internal_condition_case_1 but call BFUN with ARG1, ARG2, ARG3, | ||
| 1560 | ARG4, ARG5 as its arguments. */ | ||
| 1561 | |||
| 1562 | Lisp_Object | ||
| 1563 | internal_condition_case_5 (Lisp_Object (*bfun) (Lisp_Object, Lisp_Object, | ||
| 1564 | Lisp_Object, Lisp_Object, | ||
| 1565 | Lisp_Object), | ||
| 1566 | Lisp_Object arg1, Lisp_Object arg2, | ||
| 1567 | Lisp_Object arg3, Lisp_Object arg4, | ||
| 1568 | Lisp_Object arg5, Lisp_Object handlers, | ||
| 1569 | Lisp_Object (*hfun) (Lisp_Object)) | ||
| 1570 | { | ||
| 1571 | struct handler *c = push_handler (handlers, CONDITION_CASE); | ||
| 1572 | if (sys_setjmp (c->jmp)) | ||
| 1573 | { | ||
| 1574 | Lisp_Object val = handlerlist->val; | ||
| 1575 | clobbered_eassert (handlerlist == c); | ||
| 1576 | handlerlist = handlerlist->next; | ||
| 1577 | return hfun (val); | ||
| 1578 | } | ||
| 1579 | else | ||
| 1580 | { | ||
| 1581 | Lisp_Object val = bfun (arg1, arg2, arg3, arg4, arg5); | ||
| 1582 | eassert (handlerlist == c); | ||
| 1583 | handlerlist = c->next; | ||
| 1584 | return val; | ||
| 1585 | } | ||
| 1586 | } | ||
| 1587 | |||
| 1588 | /* Like internal_condition_case but call BFUN with NARGS as first, | 1504 | /* Like internal_condition_case but call BFUN with NARGS as first, |
| 1589 | and ARGS as second argument. */ | 1505 | and ARGS as second argument. */ |
| 1590 | 1506 | ||