diff options
| author | Richard M. Stallman | 1997-07-12 06:34:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-12 06:34:16 +0000 |
| commit | 2f69f2ec362f43b768d560caa00a05a48a84c03c (patch) | |
| tree | d035b47bf044ad0631837cca4122dfac84fca65c | |
| parent | 29df77ba6cee42f1fbf6c022c2474c35a354e540 (diff) | |
| download | emacs-2f69f2ec362f43b768d560caa00a05a48a84c03c.tar.gz emacs-2f69f2ec362f43b768d560caa00a05a48a84c03c.zip | |
(EXFUN, P_): New definitions. Use them to declare
prototypes for external functions.
| -rw-r--r-- | src/lisp.h | 786 |
1 files changed, 492 insertions, 294 deletions
diff --git a/src/lisp.h b/src/lisp.h index ecfc0b657c2..5b3f0693747 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | /* Fundamental definitions for GNU Emacs Lisp interpreter. | 1 | /* Fundamental definitions for GNU Emacs Lisp interpreter. |
| 2 | Copyright (C) 1985,86,87,93,94,95 Free Software Foundation, Inc. | 2 | Copyright (C) 1985,86,87,93,94,95, 1997 Free Software Foundation, Inc. |
| 3 | 3 | ||
| 4 | This file is part of GNU Emacs. | 4 | This file is part of GNU Emacs. |
| 5 | 5 | ||
| @@ -1436,6 +1436,25 @@ if (1) \ | |||
| 1436 | } \ | 1436 | } \ |
| 1437 | else | 1437 | else |
| 1438 | 1438 | ||
| 1439 | /* Declare a Lisp-callable function. The MAXARGS parameter has the same | ||
| 1440 | meaning as in the DEFUN macro, and is used to construct a prototype. */ | ||
| 1441 | #if !defined (__STDC__) || defined (USE_NONANSI_DEFUN) | ||
| 1442 | #define EXFUN(fnname, maxargs) \ | ||
| 1443 | extern Lisp_Object fnname () | ||
| 1444 | #else | ||
| 1445 | /* We can use the same trick as in the DEFUN macro to generate the | ||
| 1446 | appropriate prototype. */ | ||
| 1447 | #define EXFUN(fnname, maxargs) \ | ||
| 1448 | extern Lisp_Object fnname DEFUN_ARGS_ ## maxargs | ||
| 1449 | #endif | ||
| 1450 | |||
| 1451 | /* Declare the prototype for a general external function. */ | ||
| 1452 | #ifdef __STDC__ | ||
| 1453 | #define P_(proto) proto | ||
| 1454 | #else | ||
| 1455 | #define P_(proto) () | ||
| 1456 | #endif | ||
| 1457 | |||
| 1439 | /* Defined in data.c */ | 1458 | /* Defined in data.c */ |
| 1440 | extern Lisp_Object Qnil, Qt, Qquote, Qlambda, Qsubr, Qunbound; | 1459 | extern Lisp_Object Qnil, Qt, Qquote, Qlambda, Qsubr, Qunbound; |
| 1441 | extern Lisp_Object Qerror_conditions, Qerror_message, Qtop_level; | 1460 | extern Lisp_Object Qerror_conditions, Qerror_message, Qtop_level; |
| @@ -1466,156 +1485,262 @@ extern Lisp_Object Qfloatp, Qinteger_or_floatp, Qinteger_or_float_or_marker_p; | |||
| 1466 | 1485 | ||
| 1467 | extern Lisp_Object Qframep; | 1486 | extern Lisp_Object Qframep; |
| 1468 | 1487 | ||
| 1469 | extern Lisp_Object Feq (), Fnull (), Flistp (), Fconsp (), Fatom (), Fnlistp (); | 1488 | EXFUN (Feq, 2); |
| 1470 | extern Lisp_Object Fintegerp (), Fnatnump (), Fsymbolp (); | 1489 | EXFUN (Fnull, 1); |
| 1471 | extern Lisp_Object Fvectorp (), Fstringp (), Farrayp (), Fsequencep (); | 1490 | EXFUN (Flistp, 1); |
| 1472 | extern Lisp_Object Fbufferp (), Fmarkerp (), Fsubrp (), Fchar_or_string_p (); | 1491 | EXFUN (Fconsp, 1); |
| 1473 | extern Lisp_Object Finteger_or_marker_p (); | 1492 | EXFUN (Fatom, 1); |
| 1493 | EXFUN (Fnlistp, 1); | ||
| 1494 | EXFUN (Fintegerp, 1); | ||
| 1495 | EXFUN (Fnatnump, 1); | ||
| 1496 | EXFUN (Fsymbolp, 1); | ||
| 1497 | EXFUN (Fvectorp, 1); | ||
| 1498 | EXFUN (Fstringp, 1); | ||
| 1499 | EXFUN (Farrayp, 1); | ||
| 1500 | EXFUN (Fsequencep, 1); | ||
| 1501 | EXFUN (Fbufferp, 1); | ||
| 1502 | EXFUN (Fmarkerp, 1); | ||
| 1503 | EXFUN (Fsubrp, 1); | ||
| 1504 | EXFUN (Fchar_or_string_p, 1); | ||
| 1505 | EXFUN (Finteger_or_marker_p, 1); | ||
| 1474 | #ifdef LISP_FLOAT_TYPE | 1506 | #ifdef LISP_FLOAT_TYPE |
| 1475 | extern Lisp_Object Ffloatp(), Finteger_or_floatp(); | 1507 | EXFUN (Ffloatp, 1); |
| 1476 | extern Lisp_Object Finteger_or_float_or_marker_p(), Ftruncate(); | 1508 | EXFUN (Finteger_or_floatp, 1); |
| 1509 | EXFUN (Finteger_or_float_or_marker_p, 1); | ||
| 1477 | #endif /* LISP_FLOAT_TYPE */ | 1510 | #endif /* LISP_FLOAT_TYPE */ |
| 1478 | 1511 | ||
| 1479 | extern Lisp_Object Fcar (), Fcar_safe(), Fcdr (), Fcdr_safe(); | 1512 | EXFUN (Fcar, 1); |
| 1480 | extern Lisp_Object Fsetcar (), Fsetcdr (); | 1513 | EXFUN (Fcar_safe, 1); |
| 1481 | extern Lisp_Object Fboundp (), Ffboundp (), Fmakunbound (), Ffmakunbound (); | 1514 | EXFUN (Fcdr, 1); |
| 1482 | extern Lisp_Object Fsymbol_function (), Fsymbol_plist (), Fsymbol_name (); | 1515 | EXFUN (Fcdr_safe, 1); |
| 1483 | extern Lisp_Object indirect_function (), Findirect_function (); | 1516 | EXFUN (Fsetcar, 2); |
| 1484 | extern Lisp_Object Ffset (), Fsetplist (); | 1517 | EXFUN (Fsetcdr, 2); |
| 1485 | extern Lisp_Object Fsymbol_value (), find_symbol_value (), Fset (); | 1518 | EXFUN (Fboundp, 1); |
| 1486 | extern Lisp_Object Fdefault_value (), Fset_default (), Fdefault_boundp (); | 1519 | EXFUN (Ffboundp, 1); |
| 1487 | extern Lisp_Object Fmake_local_variable (); | 1520 | EXFUN (Fmakunbound, 1); |
| 1488 | extern Lisp_Object Flocal_variable_if_set_p (); | 1521 | EXFUN (Ffmakunbound, 1); |
| 1489 | 1522 | EXFUN (Fsymbol_function, 1); | |
| 1490 | extern Lisp_Object Faref (), Faset (); | 1523 | EXFUN (Fsymbol_plist, 1); |
| 1491 | 1524 | EXFUN (Fsymbol_name, 1); | |
| 1492 | extern Lisp_Object Fstring_to_number (), Fnumber_to_string (); | 1525 | extern Lisp_Object indirect_function P_ ((Lisp_Object)); |
| 1493 | extern Lisp_Object Feqlsign (), Fgtr (), Flss (), Fgeq (), Fleq (); | 1526 | EXFUN (Findirect_function, 1); |
| 1494 | extern Lisp_Object Fneq (), Fzerop (); | 1527 | EXFUN (Ffset, 2); |
| 1495 | extern Lisp_Object Fplus (), Fminus (), Ftimes (), Fquo (), Frem (); | 1528 | EXFUN (Fsetplist, 2); |
| 1496 | extern Lisp_Object Fmax (), Fmin (); | 1529 | EXFUN (Fsymbol_value, 1); |
| 1497 | extern Lisp_Object Flogand (), Flogior (), Flogxor (), Flognot (); | 1530 | EXFUN (find_symbol_value, 1); |
| 1498 | extern Lisp_Object Flsh (), Fash (); | 1531 | EXFUN (Fset, 2); |
| 1499 | 1532 | EXFUN (Fdefault_value, 1); | |
| 1500 | extern Lisp_Object Fadd1 (), Fsub1 (); | 1533 | EXFUN (Fset_default, 2); |
| 1501 | 1534 | EXFUN (Fdefault_boundp, 1); | |
| 1502 | extern Lisp_Object long_to_cons (); | 1535 | EXFUN (Fmake_local_variable, 1); |
| 1503 | extern unsigned long cons_to_long (); | 1536 | EXFUN (Flocal_variable_if_set_p, 2); |
| 1504 | extern void args_out_of_range (); | 1537 | |
| 1505 | extern void args_out_of_range_3 (); | 1538 | EXFUN (Faref, 2); |
| 1506 | extern Lisp_Object wrong_type_argument (); | 1539 | EXFUN (Faset, 3); |
| 1507 | extern void store_symval_forwarding (); | 1540 | |
| 1508 | extern Lisp_Object do_symval_forwarding (); | 1541 | EXFUN (Fstring_to_number, 2); |
| 1509 | #ifdef LISP_FLOAT_TYPE | 1542 | EXFUN (Fnumber_to_string, 1); |
| 1510 | extern Lisp_Object Ffloat_to_int(), Fint_to_float(); | 1543 | EXFUN (Feqlsign, 2); |
| 1511 | extern double extract_float(); | 1544 | EXFUN (Fgtr, 2); |
| 1512 | extern Lisp_Object make_float (); | 1545 | EXFUN (Flss, 2); |
| 1513 | extern Lisp_Object Ffloat (); | 1546 | EXFUN (Fgeq, 2); |
| 1514 | #endif /* LISP_FLOAT_TYPE */ | 1547 | EXFUN (Fleq, 2); |
| 1548 | EXFUN (Fneq, 2); | ||
| 1549 | EXFUN (Fzerop, 1); | ||
| 1550 | EXFUN (Fplus, MANY); | ||
| 1551 | EXFUN (Fminus, MANY); | ||
| 1552 | EXFUN (Ftimes, MANY); | ||
| 1553 | EXFUN (Fquo, MANY); | ||
| 1554 | EXFUN (Frem, 2); | ||
| 1555 | EXFUN (Fmax, MANY); | ||
| 1556 | EXFUN (Fmin, MANY); | ||
| 1557 | EXFUN (Flogand, MANY); | ||
| 1558 | EXFUN (Flogior, MANY); | ||
| 1559 | EXFUN (Flogxor, MANY); | ||
| 1560 | EXFUN (Flognot, 1); | ||
| 1561 | EXFUN (Flsh, 2); | ||
| 1562 | EXFUN (Fash, 2); | ||
| 1563 | |||
| 1564 | EXFUN (Fadd1, 1); | ||
| 1565 | EXFUN (Fsub1, 1); | ||
| 1566 | |||
| 1567 | extern Lisp_Object long_to_cons P_ ((unsigned long)); | ||
| 1568 | extern unsigned long cons_to_long P_ ((Lisp_Object)); | ||
| 1569 | extern void args_out_of_range P_ ((Lisp_Object, Lisp_Object)); | ||
| 1570 | extern void args_out_of_range_3 P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); | ||
| 1571 | extern Lisp_Object wrong_type_argument P_ ((Lisp_Object, Lisp_Object)); | ||
| 1572 | extern void store_symval_forwarding P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); | ||
| 1573 | extern Lisp_Object do_symval_forwarding P_ ((Lisp_Object)); | ||
| 1515 | 1574 | ||
| 1516 | /* Defined in cmds.c */ | 1575 | /* Defined in cmds.c */ |
| 1517 | extern Lisp_Object Fend_of_line (), Fforward_char (), Fforward_line (); | 1576 | EXFUN (Fend_of_line, 1); |
| 1577 | EXFUN (Fforward_char, 1); | ||
| 1578 | EXFUN (Fforward_line, 1); | ||
| 1518 | 1579 | ||
| 1519 | /* Defined in coding.c */ | 1580 | /* Defined in coding.c */ |
| 1520 | extern Lisp_Object Fcoding_system_p (), Fcheck_coding_system (); | 1581 | EXFUN (Fcoding_system_p, 1); |
| 1521 | extern Lisp_Object Fread_coding_system (), Fread_non_nil_coding_system (); | 1582 | EXFUN (Fcheck_coding_system, 1); |
| 1522 | extern Lisp_Object Ffind_coding_system (); | 1583 | EXFUN (Fread_coding_system, 1); |
| 1584 | EXFUN (Fread_non_nil_coding_system, 1); | ||
| 1585 | EXFUN (Ffind_coding_system, MANY); | ||
| 1523 | 1586 | ||
| 1524 | /* Defined in syntax.c */ | 1587 | /* Defined in syntax.c */ |
| 1525 | extern Lisp_Object Fforward_word (); | 1588 | EXFUN (Fforward_word, 1); |
| 1589 | EXFUN (Fskip_chars_forward, 2); | ||
| 1590 | EXFUN (Fskip_chars_backward, 2); | ||
| 1526 | 1591 | ||
| 1527 | /* Defined in fns.c */ | 1592 | /* Defined in fns.c */ |
| 1528 | extern Lisp_Object Qstring_lessp; | 1593 | extern Lisp_Object Qstring_lessp; |
| 1529 | extern Lisp_Object Vfeatures; | 1594 | extern Lisp_Object Vfeatures; |
| 1530 | extern Lisp_Object Fidentity (), Frandom (); | 1595 | EXFUN (Fidentity, 1); |
| 1531 | extern Lisp_Object Flength (), Fsafe_length (); | 1596 | EXFUN (Frandom, 1); |
| 1532 | extern Lisp_Object Fappend (), Fconcat (), Fvconcat (), Fcopy_sequence (); | 1597 | EXFUN (Flength, 1); |
| 1533 | extern Lisp_Object Fsubstring (); | 1598 | EXFUN (Fsafe_length, 1); |
| 1534 | extern Lisp_Object Fnth (), Fnthcdr (), Fmemq (), Fassq (), Fassoc (); | 1599 | EXFUN (Fappend, MANY); |
| 1535 | extern Lisp_Object Felt (), Fmember (), Frassq (), Fdelq (), Fsort (); | 1600 | EXFUN (Fconcat, MANY); |
| 1536 | extern Lisp_Object Freverse (), Fnreverse (), Fget (), Fput (), Fequal (); | 1601 | EXFUN (Fvconcat, MANY); |
| 1537 | extern Lisp_Object Ffillarray (), Fnconc (), Fmapcar (), Fmapconcat (); | 1602 | EXFUN (Fcopy_sequence, 1); |
| 1538 | extern Lisp_Object Fy_or_n_p (), do_yes_or_no_p (); | 1603 | EXFUN (Fsubstring, 3); |
| 1539 | extern Lisp_Object Ffeaturep (), Frequire () , Fprovide (); | 1604 | EXFUN (Fnth, 2); |
| 1540 | extern Lisp_Object concat2 (), concat3 (), nconc2 (); | 1605 | EXFUN (Fnthcdr, 2); |
| 1541 | extern Lisp_Object assq_no_quit (); | 1606 | EXFUN (Fmemq, 2); |
| 1542 | extern Lisp_Object Fcopy_alist (); | 1607 | EXFUN (Fassq, 2); |
| 1543 | extern Lisp_Object Fplist_get (); | 1608 | EXFUN (Fassoc, 2); |
| 1544 | extern Lisp_Object Fset_char_table_parent (); | 1609 | EXFUN (Felt, 2); |
| 1545 | extern Lisp_Object Fchar_table_extra_slot (); | 1610 | EXFUN (Fmember, 2); |
| 1546 | extern Lisp_Object Frassoc (); | 1611 | EXFUN (Frassq, 2); |
| 1612 | EXFUN (Fdelq, 2); | ||
| 1613 | EXFUN (Fsort, 2); | ||
| 1614 | EXFUN (Freverse, 1); | ||
| 1615 | EXFUN (Fnreverse, 1); | ||
| 1616 | EXFUN (Fget, 2); | ||
| 1617 | EXFUN (Fput, 3); | ||
| 1618 | EXFUN (Fequal, 2); | ||
| 1619 | EXFUN (Ffillarray, 2); | ||
| 1620 | EXFUN (Fnconc, MANY); | ||
| 1621 | EXFUN (Fmapcar, 2); | ||
| 1622 | EXFUN (Fmapconcat, 3); | ||
| 1623 | EXFUN (Fy_or_n_p, 1); | ||
| 1624 | extern Lisp_Object do_yes_or_no_p P_ ((Lisp_Object)); | ||
| 1625 | EXFUN (Ffeaturep, 1); | ||
| 1626 | EXFUN (Frequire, 2); | ||
| 1627 | EXFUN (Fprovide, 1); | ||
| 1628 | extern Lisp_Object concat2 P_ ((Lisp_Object, Lisp_Object)); | ||
| 1629 | extern Lisp_Object concat3 P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); | ||
| 1630 | extern Lisp_Object nconc2 P_ ((Lisp_Object, Lisp_Object)); | ||
| 1631 | extern Lisp_Object assq_no_quit P_ ((Lisp_Object, Lisp_Object)); | ||
| 1632 | EXFUN (Fcopy_alist, 1); | ||
| 1633 | EXFUN (Fplist_get, 2); | ||
| 1634 | EXFUN (Fset_char_table_parent, 2); | ||
| 1635 | EXFUN (Fchar_table_extra_slot, 2); | ||
| 1636 | EXFUN (Frassoc, 2); | ||
| 1637 | EXFUN (Fstring_equal, 2); | ||
| 1638 | EXFUN (Fstring_lessp, 2); | ||
| 1639 | |||
| 1640 | /* Defined in floatfns.c */ | ||
| 1641 | #ifdef LISP_FLOAT_TYPE | ||
| 1642 | extern double extract_float P_ ((Lisp_Object)); | ||
| 1643 | EXFUN (Ffloat, 1); | ||
| 1644 | #endif /* LISP_FLOAT_TYPE */ | ||
| 1645 | EXFUN (Ftruncate, 2); | ||
| 1547 | 1646 | ||
| 1548 | /* Defined in insdel.c */ | 1647 | /* Defined in insdel.c */ |
| 1549 | extern void move_gap (); | 1648 | extern void move_gap P_ ((int)); |
| 1550 | extern void make_gap (); | 1649 | extern void make_gap P_ ((int)); |
| 1551 | extern void insert (); | 1650 | extern void insert P_ ((unsigned char *, int)); |
| 1552 | extern void insert_and_inherit (); | 1651 | extern void insert_and_inherit P_ ((unsigned char *, int)); |
| 1553 | extern void insert_1 (); | 1652 | extern void insert_1 P_ ((unsigned char *, int, int, int)); |
| 1554 | extern void insert_from_string (); | 1653 | extern void insert_from_string P_ ((Lisp_Object, int, int, int)); |
| 1555 | extern void insert_from_buffer (); | 1654 | extern void insert_from_buffer P_ ((struct buffer *, int, int, int)); |
| 1556 | extern void insert_char (); | 1655 | extern void insert_char P_ ((int)); |
| 1557 | extern void insert_string (); | 1656 | extern void insert_string P_ ((char *)); |
| 1558 | extern void insert_before_markers (); | 1657 | extern void insert_before_markers P_ ((unsigned char *, int)); |
| 1559 | extern void insert_before_markers_and_inherit (); | 1658 | extern void insert_before_markers_and_inherit P_ ((unsigned char *, int)); |
| 1560 | extern void insert_from_string_before_markers (); | 1659 | extern void insert_from_string_before_markers P_ ((Lisp_Object, int, int, int)); |
| 1561 | extern void del_range (); | 1660 | extern void del_range P_ ((int, int)); |
| 1562 | extern void del_range_1 (); | 1661 | extern void del_range_1 P_ ((int, int, int)); |
| 1563 | extern void modify_region (); | 1662 | extern void modify_region P_ ((struct buffer *, int, int)); |
| 1564 | extern void prepare_to_modify_buffer (); | 1663 | extern void prepare_to_modify_buffer P_ ((int, int, int *)); |
| 1565 | extern void signal_before_change (); | 1664 | extern void signal_before_change P_ ((int, int, int *)); |
| 1566 | extern void signal_after_change (); | 1665 | extern void signal_after_change P_ ((int, int, int)); |
| 1567 | 1666 | ||
| 1568 | /* Defined in dispnew.c */ | 1667 | /* Defined in dispnew.c */ |
| 1569 | extern Lisp_Object Fding (), Fredraw_display (); | 1668 | EXFUN (Fding, 1); |
| 1570 | extern Lisp_Object Fsleep_for (); | 1669 | EXFUN (Fredraw_display, 0); |
| 1670 | EXFUN (Fsleep_for, 2); | ||
| 1671 | EXFUN (Fsit_for, 3); | ||
| 1571 | 1672 | ||
| 1572 | /* Defined in xdisp.c */ | 1673 | /* Defined in xdisp.c */ |
| 1573 | extern Lisp_Object Vmessage_log_max; | 1674 | extern Lisp_Object Vmessage_log_max; |
| 1574 | extern void message (); | 1675 | extern void message P_ ((/* char *, ... */)); |
| 1575 | extern void message_nolog (); | 1676 | extern void message_nolog P_ ((/* char *, ... */)); |
| 1576 | extern void message1 (); | 1677 | extern void message1 P_ ((char *)); |
| 1577 | extern void message1_nolog (); | 1678 | extern void message1_nolog P_ ((char *)); |
| 1578 | extern void message2 (); | 1679 | extern void message2 P_ ((char *, int)); |
| 1579 | extern void message2_nolog (); | 1680 | extern void message2_nolog P_ ((char *, int)); |
| 1580 | extern void message_dolog (); | 1681 | extern void message_dolog P_ ((char *, int, int)); |
| 1581 | extern void message_log_maybe_newline (); | 1682 | extern void message_log_maybe_newline P_ ((void)); |
| 1582 | 1683 | ||
| 1583 | /* Defined in alloc.c */ | 1684 | /* Defined in alloc.c */ |
| 1584 | extern Lisp_Object Vpurify_flag; | 1685 | extern Lisp_Object Vpurify_flag; |
| 1585 | extern Lisp_Object Fcons (), Flist(), Fmake_list (), allocate_misc (); | 1686 | EXFUN (Fcons, 2); |
| 1586 | extern Lisp_Object Fmake_vector (), Fvector (), Fmake_symbol (), Fmake_marker (); | 1687 | EXFUN (Flist, MANY); |
| 1587 | extern Lisp_Object Fmake_string (), build_string (), make_string (); | 1688 | EXFUN (Fmake_list, 2); |
| 1588 | extern Lisp_Object make_event_array (), make_uninit_string (); | 1689 | extern Lisp_Object allocate_misc P_ ((void)); |
| 1589 | extern Lisp_Object Fpurecopy (), make_pure_string (); | 1690 | EXFUN (Fmake_vector, 2); |
| 1590 | extern Lisp_Object pure_cons (), make_pure_vector (); | 1691 | EXFUN (Fvector, MANY); |
| 1591 | extern Lisp_Object Fgarbage_collect (); | 1692 | EXFUN (Fmake_symbol, 1); |
| 1592 | extern Lisp_Object Fmake_byte_code (); | 1693 | EXFUN (Fmake_marker, 0); |
| 1593 | extern Lisp_Object Fmake_bool_vector (), Fmake_char_table (); | 1694 | EXFUN (Fmake_string, 2); |
| 1594 | extern Lisp_Object make_sub_char_table (); | 1695 | extern Lisp_Object build_string P_ ((char *)); |
| 1696 | extern Lisp_Object make_string P_ ((char *, int)); | ||
| 1697 | extern Lisp_Object make_event_array P_ ((int, Lisp_Object *)); | ||
| 1698 | extern Lisp_Object make_uninit_string P_ ((int)); | ||
| 1699 | EXFUN (Fpurecopy, 1); | ||
| 1700 | extern Lisp_Object make_pure_string P_ ((char *, int)); | ||
| 1701 | extern Lisp_Object pure_cons P_ ((Lisp_Object, Lisp_Object)); | ||
| 1702 | extern Lisp_Object make_pure_vector P_ ((EMACS_INT)); | ||
| 1703 | EXFUN (Fgarbage_collect, 0); | ||
| 1704 | EXFUN (Fmake_byte_code, MANY); | ||
| 1705 | EXFUN (Fmake_bool_vector, 2); | ||
| 1706 | EXFUN (Fmake_char_table, 2); | ||
| 1707 | extern Lisp_Object make_sub_char_table P_ ((Lisp_Object)); | ||
| 1595 | extern Lisp_Object Qchar_table_extra_slots; | 1708 | extern Lisp_Object Qchar_table_extra_slots; |
| 1596 | extern struct Lisp_Vector *allocate_vectorlike (); | 1709 | extern struct Lisp_Vector *allocate_vectorlike P_ ((EMACS_INT)); |
| 1597 | extern int gc_in_progress; | 1710 | extern int gc_in_progress; |
| 1711 | #ifdef LISP_FLOAT_TYPE | ||
| 1712 | extern Lisp_Object make_float P_ ((double)); | ||
| 1713 | #endif /* LISP_FLOAT_TYPE */ | ||
| 1598 | 1714 | ||
| 1599 | /* Defined in print.c */ | 1715 | /* Defined in print.c */ |
| 1600 | extern Lisp_Object Vprin1_to_string_buffer; | 1716 | extern Lisp_Object Vprin1_to_string_buffer; |
| 1601 | extern Lisp_Object Fprin1 (), Fprin1_to_string (), Fprinc (); | 1717 | EXFUN (Fprin1, 2); |
| 1602 | extern Lisp_Object Fterpri (), Fprint (); | 1718 | EXFUN (Fprin1_to_string, 2); |
| 1603 | extern Lisp_Object Ferror_message_string (); | 1719 | EXFUN (Fprinc, 2); |
| 1720 | EXFUN (Fterpri, 1); | ||
| 1721 | EXFUN (Fprint, 2); | ||
| 1722 | EXFUN (Ferror_message_string, 1); | ||
| 1604 | extern Lisp_Object Vstandard_output, Qstandard_output; | 1723 | extern Lisp_Object Vstandard_output, Qstandard_output; |
| 1605 | extern Lisp_Object Qexternal_debugging_output; | 1724 | extern Lisp_Object Qexternal_debugging_output; |
| 1606 | extern void temp_output_buffer_setup (), temp_output_buffer_show (); | 1725 | extern void temp_output_buffer_setup P_ ((char *)); |
| 1607 | extern int print_level, print_escape_newlines; | 1726 | extern int print_level, print_escape_newlines; |
| 1608 | extern Lisp_Object Qprint_escape_newlines; | 1727 | extern Lisp_Object Qprint_escape_newlines; |
| 1609 | 1728 | ||
| 1610 | /* Defined in lread.c */ | 1729 | /* Defined in lread.c */ |
| 1611 | extern Lisp_Object Qvariable_documentation, Qstandard_input; | 1730 | extern Lisp_Object Qvariable_documentation, Qstandard_input; |
| 1612 | extern Lisp_Object Vobarray, Vstandard_input; | 1731 | extern Lisp_Object Vobarray, Vstandard_input; |
| 1613 | extern Lisp_Object Fread (), Fread_from_string (); | 1732 | EXFUN (Fread, 1); |
| 1614 | extern Lisp_Object Fintern (), Fintern_soft (), Fload (); | 1733 | EXFUN (Fread_from_string, 3); |
| 1615 | extern Lisp_Object Fget_file_char (), Fread_char (); | 1734 | EXFUN (Fintern, 2); |
| 1616 | extern Lisp_Object read_filtered_event (); | 1735 | EXFUN (Fintern_soft, 2); |
| 1617 | extern Lisp_Object Feval_current_buffer (), Feval_region (); | 1736 | EXFUN (Fload, 4); |
| 1618 | extern Lisp_Object intern (), make_symbol (), oblookup (); | 1737 | EXFUN (Fget_file_char, 0); |
| 1738 | EXFUN (Fread_char, 0); | ||
| 1739 | extern Lisp_Object read_filtered_event P_ ((int, int, int)); | ||
| 1740 | EXFUN (Feval_region, 3); | ||
| 1741 | extern Lisp_Object intern P_ ((char *)); | ||
| 1742 | extern Lisp_Object make_symbol P_ ((char *)); | ||
| 1743 | extern Lisp_Object oblookup P_ ((Lisp_Object, char *, int)); | ||
| 1619 | #define LOADHIST_ATTACH(x) \ | 1744 | #define LOADHIST_ATTACH(x) \ |
| 1620 | if (initialized) Vcurrent_load_list = Fcons (x, Vcurrent_load_list) | 1745 | if (initialized) Vcurrent_load_list = Fcons (x, Vcurrent_load_list) |
| 1621 | extern Lisp_Object Vcurrent_load_list; | 1746 | extern Lisp_Object Vcurrent_load_list; |
| @@ -1635,225 +1760,292 @@ extern Lisp_Object Vdebug_on_error; | |||
| 1635 | 1760 | ||
| 1636 | should no longer be used. */ | 1761 | should no longer be used. */ |
| 1637 | extern Lisp_Object Vrun_hooks; | 1762 | extern Lisp_Object Vrun_hooks; |
| 1638 | extern Lisp_Object Frun_hooks (), Frun_hook_with_args (); | 1763 | EXFUN (Frun_hooks, MANY); |
| 1639 | extern Lisp_Object Frun_hook_with_args_until_success (); | 1764 | EXFUN (Frun_hook_with_args, MANY); |
| 1640 | extern Lisp_Object Frun_hook_with_args_until_failure (); | 1765 | EXFUN (Frun_hook_with_args_until_success, MANY); |
| 1641 | extern Lisp_Object Fand (), For (), Fif (), Fprogn (), Fprog1 (), Fprog2 (); | 1766 | EXFUN (Frun_hook_with_args_until_failure, MANY); |
| 1642 | extern Lisp_Object Fsetq (), Fquote (); | 1767 | EXFUN (Fand, UNEVALLED); |
| 1643 | extern Lisp_Object Fuser_variable_p (), Finteractive_p (); | 1768 | EXFUN (For, UNEVALLED); |
| 1644 | extern Lisp_Object Fdefun (), Flet (), FletX (), Fwhile (); | 1769 | EXFUN (Fif, UNEVALLED); |
| 1645 | extern Lisp_Object Fcatch (), Fthrow (), Funwind_protect (); | 1770 | EXFUN (Fprogn, UNEVALLED); |
| 1646 | extern Lisp_Object Fcondition_case (), Fsignal (); | 1771 | EXFUN (Fprog1, UNEVALLED); |
| 1647 | extern Lisp_Object Ffunction_type (), Fautoload (), Fcommandp (); | 1772 | EXFUN (Fprog2, UNEVALLED); |
| 1648 | extern Lisp_Object Feval (), Fapply (), Ffuncall (); | 1773 | EXFUN (Fsetq, UNEVALLED); |
| 1649 | extern Lisp_Object Fglobal_set (), Fglobal_value (), Fbacktrace (); | 1774 | EXFUN (Fquote, UNEVALLED); |
| 1650 | extern Lisp_Object apply1 (), call0 (), call1 (), call2 (), call3 (); | 1775 | EXFUN (Fuser_variable_p, 1); |
| 1651 | extern Lisp_Object call4 (), call5 (), call6 (); | 1776 | EXFUN (Finteractive_p, 0); |
| 1652 | extern Lisp_Object Fkill_emacs (), Fkey_binding (), Fsit_for (); | 1777 | EXFUN (Fdefun, UNEVALLED); |
| 1653 | extern Lisp_Object Fdo_auto_save (), Fset_marker (); | 1778 | EXFUN (Flet, UNEVALLED); |
| 1654 | extern Lisp_Object apply_lambda (); | 1779 | EXFUN (FletX, UNEVALLED); |
| 1655 | extern Lisp_Object internal_catch (); | 1780 | EXFUN (Fwhile, UNEVALLED); |
| 1656 | extern Lisp_Object internal_condition_case (); | 1781 | EXFUN (Fcatch, UNEVALLED); |
| 1657 | extern Lisp_Object internal_condition_case_1 (); | 1782 | EXFUN (Fthrow, 2); |
| 1658 | extern Lisp_Object unbind_to (); | 1783 | EXFUN (Funwind_protect, UNEVALLED); |
| 1659 | extern void error (); | 1784 | EXFUN (Fcondition_case, UNEVALLED); |
| 1660 | extern Lisp_Object un_autoload (); | 1785 | EXFUN (Fsignal, 2); |
| 1661 | extern Lisp_Object Ffetch_bytecode (); | 1786 | EXFUN (Fautoload, 5); |
| 1787 | EXFUN (Fcommandp, 1); | ||
| 1788 | EXFUN (Feval, 1); | ||
| 1789 | EXFUN (Fapply, MANY); | ||
| 1790 | EXFUN (Ffuncall, MANY); | ||
| 1791 | EXFUN (Fbacktrace, 0); | ||
| 1792 | extern Lisp_Object apply1 P_ ((Lisp_Object, Lisp_Object)); | ||
| 1793 | extern Lisp_Object call0 P_ ((Lisp_Object)); | ||
| 1794 | extern Lisp_Object call1 P_ ((Lisp_Object, Lisp_Object)); | ||
| 1795 | extern Lisp_Object call2 P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); | ||
| 1796 | extern Lisp_Object call3 P_ ((Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object)); | ||
| 1797 | extern Lisp_Object call4 P_ ((Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object)); | ||
| 1798 | extern Lisp_Object call5 P_ ((Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object)); | ||
| 1799 | extern Lisp_Object call6 P_ ((Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object)); | ||
| 1800 | EXFUN (Fdo_auto_save, 2); | ||
| 1801 | extern Lisp_Object apply_lambda P_ ((Lisp_Object, Lisp_Object, int)); | ||
| 1802 | extern Lisp_Object internal_catch P_ ((Lisp_Object, Lisp_Object (*) (Lisp_Object), Lisp_Object)); | ||
| 1803 | extern Lisp_Object internal_condition_case P_ ((Lisp_Object (*) (void), Lisp_Object, Lisp_Object (*) (Lisp_Object))); | ||
| 1804 | extern Lisp_Object internal_condition_case_1 P_ ((Lisp_Object (*) (Lisp_Object), Lisp_Object, Lisp_Object, Lisp_Object (*) (Lisp_Object))); | ||
| 1805 | extern Lisp_Object unbind_to P_ ((int, Lisp_Object)); | ||
| 1806 | extern void error P_ ((/* char *, ... */)); | ||
| 1807 | extern Lisp_Object un_autoload P_ ((Lisp_Object)); | ||
| 1808 | EXFUN (Ffetch_bytecode, 1); | ||
| 1662 | 1809 | ||
| 1663 | /* Defined in editfns.c */ | 1810 | /* Defined in editfns.c */ |
| 1664 | extern Lisp_Object Fgoto_char (); | 1811 | EXFUN (Fgoto_char, 1); |
| 1665 | extern Lisp_Object Fpoint_min_marker (), Fpoint_max_marker (); | 1812 | EXFUN (Fpoint_min_marker, 0); |
| 1666 | extern Lisp_Object Fpoint_min (), Fpoint_max (); | 1813 | EXFUN (Fpoint_max_marker, 0); |
| 1667 | extern Lisp_Object Fpoint (), Fpoint_marker (), Fmark_marker (); | 1814 | EXFUN (Fpoint_min, 0); |
| 1668 | extern Lisp_Object Fline_beginning_position (), Fline_end_position (); | 1815 | EXFUN (Fpoint_max, 0); |
| 1669 | extern Lisp_Object Ffollowing_char (), Fprevious_char (), Fchar_after (); | 1816 | EXFUN (Fpoint, 0); |
| 1670 | extern Lisp_Object Finsert (), Finsert_and_inherit (); | 1817 | EXFUN (Fpoint_marker, 0); |
| 1671 | extern Lisp_Object Finsert_before_markers (); | 1818 | EXFUN (Fmark_marker, 0); |
| 1672 | extern Lisp_Object Finsert_buffer_substring (); | 1819 | EXFUN (Fline_beginning_position, 1); |
| 1673 | extern Lisp_Object Finsert_char (); | 1820 | EXFUN (Fline_end_position, 1); |
| 1674 | extern Lisp_Object Feolp (), Feobp (), Fbolp (), Fbobp (); | 1821 | EXFUN (Ffollowing_char, 0); |
| 1675 | extern Lisp_Object Fformat (), format1 (); | 1822 | EXFUN (Fprevious_char, 0); |
| 1676 | extern Lisp_Object make_buffer_string (), Fbuffer_substring (); | 1823 | EXFUN (Fchar_after, 1); |
| 1677 | extern Lisp_Object Fbuffer_string (); | 1824 | EXFUN (Finsert, MANY); |
| 1678 | extern Lisp_Object Fstring_equal (), Fstring_lessp (), Fbuffer_substring_lessp (); | 1825 | EXFUN (Finsert_and_inherit, MANY); |
| 1679 | extern Lisp_Object save_excursion_save (), save_restriction_save (); | 1826 | EXFUN (Finsert_before_markers, MANY); |
| 1680 | extern Lisp_Object save_excursion_restore (), save_restriction_restore (); | 1827 | EXFUN (Finsert_buffer_substring, 3); |
| 1681 | extern Lisp_Object Fchar_to_string (); | 1828 | EXFUN (Finsert_char, 3); |
| 1682 | extern Lisp_Object Fdelete_region (), Fnarrow_to_region (), Fwiden (); | 1829 | EXFUN (Feolp, 0); |
| 1683 | extern Lisp_Object Fuser_login_name (), Fsystem_name (); | 1830 | EXFUN (Feobp, 0); |
| 1831 | EXFUN (Fbolp, 0); | ||
| 1832 | EXFUN (Fbobp, 0); | ||
| 1833 | EXFUN (Fformat, MANY); | ||
| 1834 | extern Lisp_Object format1 P_ ((/* char *, ... */)); | ||
| 1835 | extern Lisp_Object make_buffer_string P_ ((int, int, int)); | ||
| 1836 | EXFUN (Fbuffer_substring, 2); | ||
| 1837 | EXFUN (Fbuffer_string, 0); | ||
| 1838 | extern Lisp_Object save_excursion_save P_ ((void)); | ||
| 1839 | extern Lisp_Object save_restriction_save P_ ((void)); | ||
| 1840 | extern Lisp_Object save_excursion_restore P_ ((Lisp_Object)); | ||
| 1841 | extern Lisp_Object save_restriction_restore P_ ((Lisp_Object)); | ||
| 1842 | EXFUN (Fchar_to_string, 1); | ||
| 1843 | EXFUN (Fdelete_region, 2); | ||
| 1844 | EXFUN (Fnarrow_to_region, 2); | ||
| 1845 | EXFUN (Fwiden, 0); | ||
| 1846 | EXFUN (Fuser_login_name, 1); | ||
| 1847 | EXFUN (Fsystem_name, 0); | ||
| 1684 | 1848 | ||
| 1685 | /* defined in buffer.c */ | 1849 | /* defined in buffer.c */ |
| 1686 | extern Lisp_Object Foverlay_start (), Foverlay_end (); | 1850 | EXFUN (Foverlay_start, 1); |
| 1687 | extern void adjust_overlays_for_insert (); | 1851 | EXFUN (Foverlay_end, 1); |
| 1688 | extern void adjust_overlays_for_delete (); | 1852 | extern void adjust_overlays_for_insert P_ ((int, int)); |
| 1689 | extern void fix_overlays_in_range (); | 1853 | extern void adjust_overlays_for_delete P_ ((int, int)); |
| 1690 | extern int overlay_touches_p (); | 1854 | extern void fix_overlays_in_range P_ ((int, int)); |
| 1855 | extern int overlay_touches_p P_ ((int)); | ||
| 1691 | extern Lisp_Object Vbuffer_alist, Vinhibit_read_only; | 1856 | extern Lisp_Object Vbuffer_alist, Vinhibit_read_only; |
| 1692 | extern Lisp_Object Fget_buffer (), Fget_buffer_create (), Fset_buffer (); | 1857 | EXFUN (Fget_buffer, 1); |
| 1693 | extern Lisp_Object Fbarf_if_buffer_read_only (); | 1858 | EXFUN (Fget_buffer_create, 1); |
| 1694 | extern Lisp_Object Fcurrent_buffer (), Fswitch_to_buffer (), Fpop_to_buffer (); | 1859 | EXFUN (Fset_buffer, 1); |
| 1695 | extern Lisp_Object Fother_buffer (); | 1860 | EXFUN (Fbarf_if_buffer_read_only, 0); |
| 1696 | extern Lisp_Object Foverlay_get (); | 1861 | EXFUN (Fcurrent_buffer, 0); |
| 1697 | extern Lisp_Object Fbuffer_modified_p (), Fset_buffer_modified_p (); | 1862 | EXFUN (Fswitch_to_buffer, 2); |
| 1698 | extern Lisp_Object Fkill_buffer (), Fkill_all_local_variables (); | 1863 | EXFUN (Fpop_to_buffer, 3); |
| 1699 | extern Lisp_Object Fbuffer_disable_undo (), Fbuffer_enable_undo (); | 1864 | EXFUN (Fother_buffer, 2); |
| 1700 | extern Lisp_Object Ferase_buffer (); | 1865 | EXFUN (Foverlay_get, 2); |
| 1866 | EXFUN (Fbuffer_modified_p, 1); | ||
| 1867 | EXFUN (Fset_buffer_modified_p, 1); | ||
| 1868 | EXFUN (Fkill_buffer, 1); | ||
| 1869 | EXFUN (Fkill_all_local_variables, 0); | ||
| 1870 | EXFUN (Fbuffer_disable_undo, 1); | ||
| 1871 | EXFUN (Fbuffer_enable_undo, 1); | ||
| 1872 | EXFUN (Ferase_buffer, 0); | ||
| 1701 | extern Lisp_Object Qoverlayp; | 1873 | extern Lisp_Object Qoverlayp; |
| 1702 | extern Lisp_Object get_truename_buffer (); | 1874 | extern Lisp_Object get_truename_buffer P_ ((Lisp_Object)); |
| 1703 | extern struct buffer *all_buffers; | 1875 | extern struct buffer *all_buffers; |
| 1704 | extern Lisp_Object Fprevious_overlay_change (); | 1876 | EXFUN (Fprevious_overlay_change, 1); |
| 1705 | 1877 | ||
| 1706 | /* defined in marker.c */ | 1878 | /* defined in marker.c */ |
| 1707 | 1879 | ||
| 1708 | extern Lisp_Object Fmarker_position (), Fmarker_buffer (); | 1880 | EXFUN (Fmarker_position, 1); |
| 1709 | extern Lisp_Object Fcopy_marker (); | 1881 | EXFUN (Fmarker_buffer, 1); |
| 1882 | EXFUN (Fcopy_marker, 2); | ||
| 1883 | EXFUN (Fset_marker, 3); | ||
| 1710 | 1884 | ||
| 1711 | /* Defined in fileio.c */ | 1885 | /* Defined in fileio.c */ |
| 1712 | 1886 | ||
| 1713 | extern Lisp_Object Qfile_error; | 1887 | extern Lisp_Object Qfile_error; |
| 1714 | extern Lisp_Object Ffind_file_name_handler (); | 1888 | EXFUN (Ffind_file_name_handler, 2); |
| 1715 | extern Lisp_Object Ffile_name_as_directory (); | 1889 | EXFUN (Ffile_name_as_directory, 1); |
| 1716 | extern Lisp_Object Fexpand_file_name (), Ffile_name_nondirectory (); | 1890 | EXFUN (Fexpand_file_name, 2); |
| 1717 | extern Lisp_Object Fsubstitute_in_file_name (); | 1891 | EXFUN (Ffile_name_nondirectory, 1); |
| 1718 | extern Lisp_Object Ffile_symlink_p (); | 1892 | EXFUN (Fsubstitute_in_file_name, 1); |
| 1719 | extern Lisp_Object Fverify_visited_file_modtime (); | 1893 | EXFUN (Ffile_symlink_p, 1); |
| 1720 | extern Lisp_Object Ffile_exists_p (); | 1894 | EXFUN (Fverify_visited_file_modtime, 1); |
| 1721 | extern Lisp_Object Ffile_name_absolute_p (); | 1895 | EXFUN (Ffile_exists_p, 1); |
| 1722 | extern Lisp_Object Fdirectory_file_name (); | 1896 | EXFUN (Ffile_name_absolute_p, 1); |
| 1723 | extern Lisp_Object Ffile_name_directory (); | 1897 | EXFUN (Fdirectory_file_name, 1); |
| 1724 | extern Lisp_Object expand_and_dir_to_file (); | 1898 | EXFUN (Ffile_name_directory, 1); |
| 1725 | extern Lisp_Object Ffile_accessible_directory_p (); | 1899 | extern Lisp_Object expand_and_dir_to_file P_ ((Lisp_Object, Lisp_Object)); |
| 1726 | extern Lisp_Object Funhandled_file_name_directory (); | 1900 | EXFUN (Ffile_accessible_directory_p, 1); |
| 1727 | extern Lisp_Object Ffile_directory_p (); | 1901 | EXFUN (Funhandled_file_name_directory, 1); |
| 1728 | extern Lisp_Object Fwrite_region (); | 1902 | EXFUN (Ffile_directory_p, 1); |
| 1729 | extern Lisp_Object Ffile_readable_p (), Ffile_executable_p (); | 1903 | EXFUN (Fwrite_region, 6); |
| 1904 | EXFUN (Ffile_readable_p, 1); | ||
| 1905 | EXFUN (Ffile_executable_p, 1); | ||
| 1906 | EXFUN (Fread_file_name, 5); | ||
| 1730 | 1907 | ||
| 1731 | /* Defined in abbrev.c */ | 1908 | /* Defined in abbrev.c */ |
| 1732 | 1909 | ||
| 1733 | extern Lisp_Object Vfundamental_mode_abbrev_table; | 1910 | extern Lisp_Object Vfundamental_mode_abbrev_table; |
| 1734 | 1911 | ||
| 1735 | /* defined in search.c */ | 1912 | /* defined in search.c */ |
| 1736 | extern Lisp_Object Fstring_match (); | 1913 | EXFUN (Fstring_match, 3); |
| 1737 | extern Lisp_Object Fscan_buffer (); | 1914 | extern void restore_match_data P_ ((void)); |
| 1738 | extern void restore_match_data (); | 1915 | EXFUN (Fmatch_data, 2); |
| 1739 | extern Lisp_Object Fmatch_data (), Fstore_match_data (); | 1916 | EXFUN (Fstore_match_data, 1); |
| 1740 | extern Lisp_Object Fmatch_beginning (), Fmatch_end (); | 1917 | EXFUN (Fmatch_beginning, 1); |
| 1741 | extern Lisp_Object Fskip_chars_forward (), Fskip_chars_backward (); | 1918 | EXFUN (Fmatch_end, 1); |
| 1742 | 1919 | ||
| 1743 | /* defined in minibuf.c */ | 1920 | /* defined in minibuf.c */ |
| 1744 | 1921 | ||
| 1745 | extern Lisp_Object last_minibuf_string; | 1922 | extern Lisp_Object last_minibuf_string; |
| 1746 | extern Lisp_Object Fcompleting_read (); | 1923 | EXFUN (Fcompleting_read, 7); |
| 1747 | extern Lisp_Object Fread_from_minibuffer (); | 1924 | EXFUN (Fread_from_minibuffer, 6); |
| 1748 | extern Lisp_Object Fread_variable (), Fread_buffer (), Fread_key_sequence (); | 1925 | EXFUN (Fread_variable, 2); |
| 1749 | extern Lisp_Object Fread_minibuffer (), Feval_minibuffer (); | 1926 | EXFUN (Fread_buffer, 3); |
| 1750 | extern Lisp_Object Fread_string (), Fread_file_name (); | 1927 | EXFUN (Fread_minibuffer, 2); |
| 1751 | extern Lisp_Object Fread_no_blanks_input (); | 1928 | EXFUN (Feval_minibuffer, 2); |
| 1752 | extern Lisp_Object get_minibuffer (); | 1929 | EXFUN (Fread_string, 4); |
| 1930 | EXFUN (Fread_no_blanks_input, 2); | ||
| 1931 | extern Lisp_Object get_minibuffer P_ ((int)); | ||
| 1753 | 1932 | ||
| 1754 | /* Defined in callint.c */ | 1933 | /* Defined in callint.c */ |
| 1755 | 1934 | ||
| 1756 | extern Lisp_Object Qminus, Qplus, Vcurrent_prefix_arg; | 1935 | extern Lisp_Object Qminus, Qplus, Vcurrent_prefix_arg; |
| 1757 | extern Lisp_Object Vcommand_history; | 1936 | extern Lisp_Object Vcommand_history; |
| 1758 | extern Lisp_Object Qcall_interactively, Qmouse_leave_buffer_hook; | 1937 | extern Lisp_Object Qcall_interactively, Qmouse_leave_buffer_hook; |
| 1759 | extern Lisp_Object Fcall_interactively (); | 1938 | EXFUN (Fcall_interactively, 3); |
| 1760 | extern Lisp_Object Fprefix_numeric_value (); | 1939 | EXFUN (Fprefix_numeric_value, 1); |
| 1761 | 1940 | ||
| 1762 | /* defined in casefiddle.c */ | 1941 | /* defined in casefiddle.c */ |
| 1763 | 1942 | ||
| 1764 | extern Lisp_Object Fdowncase (), Fupcase (), Fcapitalize (); | 1943 | EXFUN (Fdowncase, 1); |
| 1765 | extern Lisp_Object Fupcase_region (); | 1944 | EXFUN (Fupcase, 1); |
| 1766 | extern Lisp_Object Fupcase_initials (), Fupcase_initials_region (); | 1945 | EXFUN (Fcapitalize, 1); |
| 1946 | EXFUN (Fupcase_region, 2); | ||
| 1947 | EXFUN (Fupcase_initials, 1); | ||
| 1948 | EXFUN (Fupcase_initials_region, 2); | ||
| 1767 | 1949 | ||
| 1768 | /* defined in casetab.c */ | 1950 | /* defined in casetab.c */ |
| 1769 | 1951 | ||
| 1770 | extern Lisp_Object Fset_case_table (); | 1952 | EXFUN (Fset_case_table, 1); |
| 1771 | extern Lisp_Object Fset_standard_case_table (); | 1953 | EXFUN (Fset_standard_case_table, 1); |
| 1772 | 1954 | ||
| 1773 | /* defined in keyboard.c */ | 1955 | /* defined in keyboard.c */ |
| 1774 | 1956 | ||
| 1775 | extern Lisp_Object Qdisabled; | 1957 | extern Lisp_Object Qdisabled; |
| 1776 | extern Lisp_Object Vtty_erase_char, Vhelp_form, Vtop_level; | 1958 | extern Lisp_Object Vtty_erase_char, Vhelp_form, Vtop_level; |
| 1777 | extern Lisp_Object Fdiscard_input (), Frecursive_edit (); | 1959 | EXFUN (Fdiscard_input, 0); |
| 1778 | extern Lisp_Object Fcommand_execute (), Finput_pending_p (); | 1960 | EXFUN (Frecursive_edit, 0); |
| 1779 | extern Lisp_Object menu_bar_items (); | 1961 | EXFUN (Fcommand_execute, 4); |
| 1962 | EXFUN (Finput_pending_p, 0); | ||
| 1963 | extern Lisp_Object menu_bar_items P_ ((Lisp_Object)); | ||
| 1780 | extern Lisp_Object Qvertical_scroll_bar; | 1964 | extern Lisp_Object Qvertical_scroll_bar; |
| 1781 | extern Lisp_Object Fevent_convert_list (); | 1965 | EXFUN (Fevent_convert_list, 1); |
| 1782 | #ifdef MULTI_KBOARD | 1966 | #ifdef MULTI_KBOARD |
| 1783 | extern void delete_kboard (); | 1967 | extern void delete_kboard P_ ((/* KBOARD * */)); |
| 1784 | #endif | 1968 | #endif |
| 1969 | EXFUN (Fread_key_sequence, 4); | ||
| 1785 | 1970 | ||
| 1786 | /* defined in keymap.c */ | 1971 | /* defined in keymap.c */ |
| 1787 | 1972 | ||
| 1788 | extern Lisp_Object Qkeymap, Qmenu_bar; | 1973 | extern Lisp_Object Qkeymap, Qmenu_bar; |
| 1789 | extern Lisp_Object current_global_map; | 1974 | extern Lisp_Object current_global_map; |
| 1790 | extern Lisp_Object Fdefine_key (); | 1975 | EXFUN (Fdefine_key, 3); |
| 1791 | extern Lisp_Object Fkey_description (), Fsingle_key_description (); | 1976 | EXFUN (Fkey_binding, 2); |
| 1792 | extern Lisp_Object Fwhere_is_internal (); | 1977 | EXFUN (Fkey_description, 1); |
| 1793 | extern Lisp_Object access_keymap (), store_in_keymap (); | 1978 | EXFUN (Fsingle_key_description, 1); |
| 1794 | extern Lisp_Object get_keyelt (), get_keymap (), get_keymap_1 (); | 1979 | EXFUN (Fwhere_is_internal, 4); |
| 1795 | extern void describe_map_tree (); | 1980 | extern Lisp_Object access_keymap P_ ((Lisp_Object, Lisp_Object, int, int)); |
| 1981 | extern Lisp_Object store_in_keymap P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); | ||
| 1982 | extern Lisp_Object get_keyelt P_ ((Lisp_Object, int)); | ||
| 1983 | extern Lisp_Object get_keymap P_ ((Lisp_Object)); | ||
| 1984 | extern Lisp_Object get_keymap_1 P_ ((Lisp_Object, int, int)); | ||
| 1985 | extern void describe_map_tree P_ ((Lisp_Object, int, Lisp_Object, Lisp_Object, char *, int, int, int)); | ||
| 1796 | 1986 | ||
| 1797 | /* defined in indent.c */ | 1987 | /* defined in indent.c */ |
| 1798 | extern Lisp_Object Fvertical_motion (), Findent_to (), Fcurrent_column (); | 1988 | EXFUN (Fvertical_motion, 2); |
| 1799 | extern Lisp_Object Fmove_to_column (); | 1989 | EXFUN (Findent_to, 2); |
| 1990 | EXFUN (Fcurrent_column, 0); | ||
| 1991 | EXFUN (Fmove_to_column, 2); | ||
| 1800 | 1992 | ||
| 1801 | /* defined in window.c */ | 1993 | /* defined in window.c */ |
| 1802 | extern Lisp_Object Qwindowp, Qwindow_live_p; | 1994 | extern Lisp_Object Qwindowp, Qwindow_live_p; |
| 1803 | extern Lisp_Object Fselected_window (); | 1995 | EXFUN (Fselected_window, 0); |
| 1804 | extern Lisp_Object Fget_buffer_window (); | 1996 | EXFUN (Fget_buffer_window, 2); |
| 1805 | extern Lisp_Object Fsave_window_excursion (); | 1997 | EXFUN (Fsave_window_excursion, UNEVALLED); |
| 1806 | extern Lisp_Object Fset_window_configuration (), Fcurrent_window_configuration (); | 1998 | EXFUN (Fset_window_configuration, 1); |
| 1807 | extern Lisp_Object Fcoordinates_in_window_p (); | 1999 | EXFUN (Fcurrent_window_configuration, 1); |
| 1808 | extern Lisp_Object Fwindow_at (); | 2000 | EXFUN (Fcoordinates_in_window_p, 2); |
| 1809 | extern Lisp_Object Fpos_visible_in_window_p (); | 2001 | EXFUN (Fwindow_at, 3); |
| 1810 | extern int window_internal_height (), window_internal_width (); | 2002 | EXFUN (Fpos_visible_in_window_p, 2); |
| 1811 | extern Lisp_Object Frecenter (); | 2003 | extern int window_internal_height P_ ((/* struct window * */)); |
| 1812 | extern Lisp_Object Fscroll_other_window (); | 2004 | extern int window_internal_width P_ ((/* struct window * */)); |
| 1813 | extern Lisp_Object Fset_window_start (); | 2005 | EXFUN (Frecenter, 1); |
| 2006 | EXFUN (Fscroll_other_window, 1); | ||
| 2007 | EXFUN (Fset_window_start, 3); | ||
| 2008 | extern void temp_output_buffer_show P_ ((Lisp_Object)); | ||
| 1814 | 2009 | ||
| 1815 | /* defined in frame.c */ | 2010 | /* defined in frame.c */ |
| 1816 | extern Lisp_Object Qvisible; | 2011 | extern Lisp_Object Qvisible; |
| 1817 | extern void store_frame_param (), store_in_alist (); | 2012 | extern void store_frame_param P_ ((/* struct frame *, Lisp_Object, Lisp_Object */)); |
| 1818 | extern Lisp_Object do_switch_frame (); | 2013 | extern void store_in_alist P_ ((Lisp_Object *, Lisp_Object, Lisp_Object)); |
| 1819 | extern Lisp_Object get_frame_param(); | 2014 | extern Lisp_Object do_switch_frame P_ ((Lisp_Object, Lisp_Object, int)); |
| 1820 | extern Lisp_Object frame_buffer_predicate (); | 2015 | extern Lisp_Object get_frame_param P_ ((/* struct frame *, Lisp_Object */)); |
| 1821 | extern Lisp_Object Fframep (); | 2016 | extern Lisp_Object frame_buffer_predicate P_ ((void)); |
| 1822 | extern Lisp_Object Fselect_frame (); | 2017 | EXFUN (Fframep, 1); |
| 1823 | extern Lisp_Object Fselected_frame (); | 2018 | EXFUN (Fselect_frame, 2); |
| 1824 | extern Lisp_Object Fwindow_frame (); | 2019 | EXFUN (Fselected_frame, 0); |
| 1825 | extern Lisp_Object Fframe_root_window (); | 2020 | EXFUN (Fwindow_frame, 1); |
| 1826 | extern Lisp_Object Fframe_first_window (); | 2021 | EXFUN (Fframe_root_window, 1); |
| 1827 | extern Lisp_Object Fframe_selected_window (); | 2022 | EXFUN (Fframe_first_window, 1); |
| 1828 | extern Lisp_Object Fframe_list (); | 2023 | EXFUN (Fframe_selected_window, 1); |
| 1829 | extern Lisp_Object Fnext_frame (); | 2024 | EXFUN (Fframe_list, 0); |
| 1830 | extern Lisp_Object Fdelete_frame (); | 2025 | EXFUN (Fnext_frame, 2); |
| 1831 | extern Lisp_Object Fread_mouse_position (); | 2026 | EXFUN (Fdelete_frame, 2); |
| 1832 | extern Lisp_Object Fset_mouse_position (); | 2027 | EXFUN (Fset_mouse_position, 3); |
| 1833 | extern Lisp_Object Fmake_frame_visible (); | 2028 | EXFUN (Fmake_frame_visible, 1); |
| 1834 | extern Lisp_Object Fmake_frame_invisible (); | 2029 | EXFUN (Fmake_frame_invisible, 2); |
| 1835 | extern Lisp_Object Ficonify_frame (); | 2030 | EXFUN (Ficonify_frame, 1); |
| 1836 | extern Lisp_Object Fdeiconify_frame (); | 2031 | EXFUN (Fframe_visible_p, 1); |
| 1837 | extern Lisp_Object Fframe_visible_p (); | 2032 | EXFUN (Fvisible_frame_list, 0); |
| 1838 | extern Lisp_Object Fvisible_frame_list (); | 2033 | EXFUN (Fframe_parameters, 1); |
| 1839 | extern Lisp_Object Fframe_parameters (); | 2034 | EXFUN (Fmodify_frame_parameters, 2); |
| 1840 | extern Lisp_Object Fmodify_frame_parameters (); | 2035 | EXFUN (Fset_frame_height, 3); |
| 1841 | extern Lisp_Object Fframe_pixel_size (); | 2036 | EXFUN (Fset_frame_width, 3); |
| 1842 | extern Lisp_Object Fframe_height (); | 2037 | EXFUN (Fset_frame_size, 3); |
| 1843 | extern Lisp_Object Fframe_width (); | 2038 | EXFUN (Fset_frame_position, 3); |
| 1844 | extern Lisp_Object Fset_frame_height (); | 2039 | EXFUN (Fraise_frame, 1); |
| 1845 | extern Lisp_Object Fset_frame_width (); | 2040 | EXFUN (Fredirect_frame_focus, 2); |
| 1846 | extern Lisp_Object Fset_frame_size (); | 2041 | extern Lisp_Object frame_buffer_list P_ ((void)); |
| 1847 | extern Lisp_Object Fset_frame_position (); | ||
| 1848 | extern Lisp_Object Fraise_frame (); | ||
| 1849 | extern Lisp_Object Fredirect_frame_focus (); | ||
| 1850 | extern Lisp_Object frame_buffer_list (); | ||
| 1851 | 2042 | ||
| 1852 | /* defined in emacs.c */ | 2043 | /* defined in emacs.c */ |
| 1853 | extern Lisp_Object decode_env_path (); | 2044 | extern Lisp_Object decode_env_path P_ ((char *, char *)); |
| 1854 | extern Lisp_Object Vinvocation_name, Vinvocation_directory; | 2045 | extern Lisp_Object Vinvocation_name, Vinvocation_directory; |
| 1855 | extern Lisp_Object Vinstallation_directory; | 2046 | extern Lisp_Object Vinstallation_directory; |
| 1856 | void shut_down_emacs ( /* int signal, int no_x, Lisp_Object stuff */ ); | 2047 | EXFUN (Fkill_emacs, 1); |
| 2048 | void shut_down_emacs P_ ((int, int, Lisp_Object)); | ||
| 1857 | /* Nonzero means don't do interactive redisplay and don't change tty modes */ | 2049 | /* Nonzero means don't do interactive redisplay and don't change tty modes */ |
| 1858 | extern int noninteractive; | 2050 | extern int noninteractive; |
| 1859 | /* Nonzero means don't do use window-system-specific display code */ | 2051 | /* Nonzero means don't do use window-system-specific display code */ |
| @@ -1862,10 +2054,13 @@ extern int inhibit_window_system; | |||
| 1862 | extern int running_asynch_code; | 2054 | extern int running_asynch_code; |
| 1863 | 2055 | ||
| 1864 | /* defined in process.c */ | 2056 | /* defined in process.c */ |
| 1865 | extern Lisp_Object Fget_process (), Fget_buffer_process (), Fprocessp (); | 2057 | EXFUN (Fget_process, 1); |
| 1866 | extern Lisp_Object Fprocess_status (), Fkill_process (); | 2058 | EXFUN (Fget_buffer_process, 1); |
| 1867 | extern Lisp_Object Fprocess_send_eof (); | 2059 | EXFUN (Fprocessp, 1); |
| 1868 | extern Lisp_Object Fwaiting_for_user_input_p (); | 2060 | EXFUN (Fprocess_status, 1); |
| 2061 | EXFUN (Fkill_process, 2); | ||
| 2062 | EXFUN (Fprocess_send_eof, 1); | ||
| 2063 | EXFUN (Fwaiting_for_user_input_p, 0); | ||
| 1869 | extern Lisp_Object Qprocessp; | 2064 | extern Lisp_Object Qprocessp; |
| 1870 | 2065 | ||
| 1871 | /* defined in callproc.c */ | 2066 | /* defined in callproc.c */ |
| @@ -1874,41 +2069,44 @@ extern Lisp_Object Vdoc_directory; | |||
| 1874 | 2069 | ||
| 1875 | /* defined in doc.c */ | 2070 | /* defined in doc.c */ |
| 1876 | extern Lisp_Object Vdoc_file_name; | 2071 | extern Lisp_Object Vdoc_file_name; |
| 1877 | extern Lisp_Object Fsubstitute_command_keys (); | 2072 | EXFUN (Fsubstitute_command_keys, 1); |
| 1878 | extern Lisp_Object Fdocumentation (), Fdocumentation_property (); | 2073 | EXFUN (Fdocumentation, 2); |
| 1879 | extern Lisp_Object read_doc_string (); | 2074 | EXFUN (Fdocumentation_property, 3); |
| 2075 | extern Lisp_Object read_doc_string P_ ((Lisp_Object)); | ||
| 1880 | 2076 | ||
| 1881 | /* defined in bytecode.c */ | 2077 | /* defined in bytecode.c */ |
| 1882 | extern Lisp_Object Qbytecode; | 2078 | extern Lisp_Object Qbytecode; |
| 1883 | extern Lisp_Object Fbyte_code (); | 2079 | EXFUN (Fbyte_code, 3); |
| 1884 | 2080 | ||
| 1885 | /* defined in macros.c */ | 2081 | /* defined in macros.c */ |
| 1886 | extern Lisp_Object Qexecute_kbd_macro; | 2082 | extern Lisp_Object Qexecute_kbd_macro; |
| 1887 | extern Lisp_Object Fexecute_kbd_macro (); | 2083 | EXFUN (Fexecute_kbd_macro, 2); |
| 1888 | 2084 | ||
| 1889 | /* defined in undo.c */ | 2085 | /* defined in undo.c */ |
| 1890 | extern Lisp_Object Qinhibit_read_only; | 2086 | extern Lisp_Object Qinhibit_read_only; |
| 1891 | extern Lisp_Object Fundo_boundary (); | 2087 | EXFUN (Fundo_boundary, 0); |
| 1892 | extern Lisp_Object truncate_undo_list (); | 2088 | extern Lisp_Object truncate_undo_list P_ ((Lisp_Object, int, int)); |
| 1893 | 2089 | ||
| 1894 | /* defined in textprop.c */ | 2090 | /* defined in textprop.c */ |
| 1895 | extern Lisp_Object Qmodification_hooks; | 2091 | extern Lisp_Object Qmodification_hooks; |
| 1896 | extern Lisp_Object Qrear_nonsticky, Qfont; | 2092 | extern Lisp_Object Qrear_nonsticky, Qfont; |
| 1897 | extern Lisp_Object Qinsert_in_front_hooks, Qinsert_behind_hooks; | 2093 | extern Lisp_Object Qinsert_in_front_hooks, Qinsert_behind_hooks; |
| 1898 | extern Lisp_Object Fnext_property_change (); | 2094 | EXFUN (Fnext_property_change, 3); |
| 1899 | extern Lisp_Object Fnext_single_property_change (); | 2095 | EXFUN (Fnext_single_property_change, 4); |
| 1900 | extern Lisp_Object Fprevious_single_property_change (); | 2096 | EXFUN (Fprevious_single_property_change, 4); |
| 1901 | extern Lisp_Object Fget_text_property (), Fput_text_property (); | 2097 | EXFUN (Fget_text_property, 3); |
| 1902 | extern Lisp_Object Fset_text_properties (); | 2098 | EXFUN (Fput_text_property, 5); |
| 1903 | extern Lisp_Object Ftext_property_not_all (); | 2099 | EXFUN (Fset_text_properties, 4); |
| 1904 | extern Lisp_Object Fprevious_char_property_change (); | 2100 | EXFUN (Ftext_property_not_all, 5); |
| 1905 | extern Lisp_Object Fnext_char_property_change (); | 2101 | EXFUN (Fprevious_char_property_change, 2); |
| 2102 | EXFUN (Fnext_char_property_change, 2); | ||
| 1906 | 2103 | ||
| 1907 | /* defined in intervals.c */ | 2104 | /* defined in intervals.c */ |
| 1908 | extern Lisp_Object get_local_map (); | 2105 | extern Lisp_Object get_local_map P_ ((int, struct buffer *)); |
| 1909 | 2106 | ||
| 1910 | /* defined in xmenu.c */ | 2107 | /* defined in xmenu.c */ |
| 1911 | extern Lisp_Object Fx_popup_menu (), Fx_popup_dialog (); | 2108 | EXFUN (Fx_popup_menu, 2); |
| 2109 | EXFUN (Fx_popup_dialog, 2); | ||
| 1912 | 2110 | ||
| 1913 | /* Nonzero means Emacs has already been initialized. | 2111 | /* Nonzero means Emacs has already been initialized. |
| 1914 | Used during startup to detect startup of dumped Emacs. */ | 2112 | Used during startup to detect startup of dumped Emacs. */ |