aboutsummaryrefslogtreecommitdiffstats
path: root/src/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c84
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
1507Lisp_Object
1508internal_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
1534Lisp_Object
1535internal_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
1562Lisp_Object
1563internal_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