X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/1e94b9981a7c235b227260fb799c780e0df800a3..b6e11efd50d48abb8077c5b055688a08d51e80aa:/src/lisp.h diff --git a/src/lisp.h b/src/lisp.h index 3a1fe04fca..84d0487f88 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -1,5 +1,6 @@ /* Fundamental definitions for GNU Emacs Lisp interpreter. - Copyright (C) 1985,86,87,93,94,95,97,1998 Free Software Foundation, Inc. + Copyright (C) 1985,86,87,93,94,95,97,98,1999,2000 + Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -18,8 +19,24 @@ along with GNU Emacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ +/* Declare the prototype for a general external function. */ +#if defined (__STDC__) || defined (WINDOWSNT) +#define P_(proto) proto +#else +#define P_(proto) () +#endif + /* These are default choices for the types to use. */ +#ifdef _LP64 +#ifndef EMACS_INT +#define EMACS_INT long +#define BITS_PER_EMACS_INT BITS_PER_LONG +#endif +#ifndef EMACS_UINT +#define EMACS_UINT unsigned long +#endif +#else /* not _LP64 */ #ifndef EMACS_INT #define EMACS_INT int #define BITS_PER_EMACS_INT BITS_PER_INT @@ -27,6 +44,7 @@ Boston, MA 02111-1307, USA. */ #ifndef EMACS_UINT #define EMACS_UINT unsigned int #endif +#endif /* Define the fundamental Lisp data structures. */ @@ -91,13 +109,17 @@ enum Lisp_Misc_Type /* These values are overridden by the m- file on some machines. */ #ifndef VALBITS -#define VALBITS 28 +#define VALBITS (BITS_PER_EMACS_INT - 4) #endif #ifndef GCTYPEBITS #define GCTYPEBITS 3 #endif +#if 0 /* This doesn't work on some systems that don't allow enumerators + > INT_MAX, and it won't work for long long EMACS_INT. These + values are now found in emacs.c as EMACS_INT variables. */ + /* Make these values available in GDB, which sees enums but not macros. */ enum gdb_lisp_params @@ -112,6 +134,8 @@ enum gdb_lisp_params #endif }; +#endif /* 0 */ + #ifndef NO_UNION_TYPE #ifndef WORDS_BIG_ENDIAN @@ -205,7 +229,7 @@ Lisp_Object; rather than being part of a string block. */ #ifndef MARKBIT -#define MARKBIT ((int) ((unsigned int) 1 << (VALBITS + GCTYPEBITS))) +#define MARKBIT ((EMACS_INT) ((EMACS_UINT) 1 << (VALBITS + GCTYPEBITS))) #endif /*MARKBIT */ /* In the size word of a vector, this bit means the vector has been marked. @@ -236,8 +260,14 @@ enum pvec_type PVEC_CHAR_TABLE = 0x8000, PVEC_BOOL_VECTOR = 0x10000, PVEC_BUFFER = 0x20000, - PVEC_TYPE_MASK = 0x3fe00, + PVEC_HASH_TABLE = 0x40000, + PVEC_TYPE_MASK = 0x7fe00 + +#if 0 /* This is used to make the value of PSEUDOVECTOR_FLAG available to + GDB. It doesn't work on OS Alpha. Moved to a variable in + emacs.c. */ PVEC_FLAG = PSEUDOVECTOR_FLAG +#endif }; /* For convenience, we also store the number of elements in these bits. */ @@ -270,7 +300,7 @@ enum pvec_type /* Extract the value of a Lisp_Object as a signed integer. */ #ifndef XINT /* Some machines need to do this differently. */ -#define XINT(a) (((a) << (BITS_PER_INT-VALBITS)) >> (BITS_PER_INT-VALBITS)) +#define XINT(a) (((a) << (BITS_PER_EMACS_INT-VALBITS)) >> (BITS_PER_EMACS_INT-VALBITS)) #endif /* Extract the value as an unsigned integer. This is a basis @@ -440,7 +470,6 @@ extern Lisp_Object make_number (); #define XSETCHAR_TABLE(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_CHAR_TABLE)) #define XSETBOOL_VECTOR(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_BOOL_VECTOR)) -#ifdef USE_TEXT_PROPERTIES /* Basic data type for use of intervals. See the macros in intervals.h. */ struct interval @@ -501,28 +530,28 @@ typedef struct interval *INTERVAL; certain code. See, e.g., alloc.c. */ #define INITIALIZE_INTERVAL(ptr,val) ptr->intervals = val -#else /* No text properties */ - -/* If no intervals are used, make the above definitions go away. */ - -#define CHECK_STRING_OR_BUFFER(x, i) - -#define INTERVAL -#define DECLARE_INTERVALS -#define INITIALIZE_INTERVAL(ptr,val) - -#endif /* USE_TEXT_PROPERTIES */ /* In a cons, the markbit of the car is the gc mark bit */ struct Lisp_Cons { + /* Please do not use the names of these elements in code other + than the core lisp implementation. Use XCAR and XCDR below. */ +#ifdef HIDE_LISP_IMPLEMENTATION + Lisp_Object car_, cdr_; +#else Lisp_Object car, cdr; +#endif }; /* Take the car or cdr of something known to be a cons cell. */ +#ifdef HIDE_LISP_IMPLEMENTATION +#define XCAR(c) (XCONS ((c))->car_) +#define XCDR(c) (XCONS ((c))->cdr_) +#else #define XCAR(c) (XCONS ((c))->car) #define XCDR(c) (XCONS ((c))->cdr) +#endif /* Take the car or cdr of something whose type is not known. */ #define CAR(c) \ @@ -545,20 +574,6 @@ struct Lisp_Buffer_Cons int bufpos; }; -#if 0 - -/* Nonzero if STR is a multibyte string. */ -#define STRING_MULTIBYTE(STR) \ - (XSTRING (STR)->size_byte != XSTRING (STR)->size) - -/* Return the length in bytes of STR. */ -#define STRING_BYTES(STR) ((STR)->size_byte + 0) - -/* Set the length in bytes of STR. */ -#define SET_STRING_BYTES(STR, SIZE) ((STR)->size_byte = (SIZE)) - -#else - /* Nonzero if STR is a multibyte string. */ #define STRING_MULTIBYTE(STR) \ (XSTRING (STR)->size_byte >= 0) @@ -570,8 +585,6 @@ struct Lisp_Buffer_Cons /* Set the length in bytes of STR. */ #define SET_STRING_BYTES(STR, SIZE) ((STR)->size_byte = (SIZE)) -#endif /* 0 */ - /* In a string or vector, the sign bit of the `size' is the gc mark bit */ struct Lisp_String @@ -579,7 +592,7 @@ struct Lisp_String EMACS_INT size; EMACS_INT size_byte; DECLARE_INTERVALS /* `data' field must be last. */ - unsigned char data[1]; + unsigned char *data; }; /* If a struct is made to look like a vector, this macro returns the length @@ -641,12 +654,25 @@ struct Lisp_Vector and 8-bit Europeans characters. For these characters, do not check validity of CT. Do not follow parent. */ #define CHAR_TABLE_REF(CT, IDX) \ - ((IDX) < CHAR_TABLE_SINGLE_BYTE_SLOTS \ + ((IDX) >= 0 && (IDX) < CHAR_TABLE_SINGLE_BYTE_SLOTS \ ? (!NILP (XCHAR_TABLE (CT)->contents[IDX]) \ ? XCHAR_TABLE (CT)->contents[IDX] \ : XCHAR_TABLE (CT)->defalt) \ : Faref (CT, make_number (IDX))) +/* Almost equivalent to Faref (CT, IDX) with optimization for ASCII + and 8-bit Europeans characters. However, if the result is nil, + return IDX. + + For these characters, do not check validity of CT + and do not follow parent. */ +#define CHAR_TABLE_TRANSLATE(CT, IDX) \ + ((IDX) < CHAR_TABLE_SINGLE_BYTE_SLOTS \ + ? (!NILP (XCHAR_TABLE (CT)->contents[IDX]) \ + ? XINT (XCHAR_TABLE (CT)->contents[IDX]) \ + : IDX) \ + : char_table_translate (CT, IDX)) + /* Equivalent to Faset (CT, IDX, VAL) with optimization for ASCII and 8-bit Europeans characters. Do not check validity of CT. */ #define CHAR_TABLE_SET(CT, IDX, VAL) \ @@ -731,6 +757,110 @@ struct Lisp_Subr char *prompt; char *doc; }; + + +/*********************************************************************** + Hash Tables + ***********************************************************************/ + +/* The structure of a Lisp hash table. */ + +struct Lisp_Hash_Table +{ + /* Vector fields. The hash table code doesn't refer to these. */ + EMACS_INT size; + struct Lisp_Vector *vec_next; + + /* Function used to compare keys. */ + Lisp_Object test; + + /* Nil if table is non-weak. Otherwise a symbol describing the + weakness of the table. */ + Lisp_Object weak; + + /* When the table is resized, and this is an integer, compute the + new size by adding this to the old size. If a float, compute the + new size by multiplying the old size with this factor. */ + Lisp_Object rehash_size; + + /* Resize hash table when number of entries/ table size is >= this + ratio, a float. */ + Lisp_Object rehash_threshold; + + /* Number of key/value entries in the table. */ + Lisp_Object count; + + /* Vector of keys and values. The key of item I is found at index + 2 * I, the value is found at index 2 * I + 1. */ + Lisp_Object key_and_value; + + /* Vector of hash codes.. If hash[I] is nil, this means that that + entry I is unused. */ + Lisp_Object hash; + + /* Vector used to chain entries. If entry I is free, next[I] is the + entry number of the next free item. If entry I is non-free, + next[I] is the index of the next entry in the collision chain. */ + Lisp_Object next; + + /* Index of first free entry in free list. */ + Lisp_Object next_free; + + /* Bucket vector. A non-nil entry is the index of the first item in + a collision chain. This vector's size can be larger than the + hash table size to reduce collisions. */ + Lisp_Object index; + + /* Next weak hash table if this is a weak hash table. The head + of the list is in Vweak_hash_tables. */ + Lisp_Object next_weak; + + /* User-supplied hash function, or nil. */ + Lisp_Object user_hash_function; + + /* User-supplied key comparison function, or nil. */ + Lisp_Object user_cmp_function; + + /* C function to compare two keys. */ + int (* cmpfn) P_ ((struct Lisp_Hash_Table *, Lisp_Object, + unsigned, Lisp_Object, unsigned)); + + /* C function to compute hash code. */ + unsigned (* hashfn) P_ ((struct Lisp_Hash_Table *, Lisp_Object)); +}; + + +#define XHASH_TABLE(OBJ) \ + ((struct Lisp_Hash_Table *) XPNTR (OBJ)) + +#define XSET_HASH_TABLE(VAR, PTR) \ + (XSETPSEUDOVECTOR (VAR, PTR, PVEC_HASH_TABLE)) + +#define HASH_TABLE_P(OBJ) PSEUDOVECTORP (OBJ, PVEC_HASH_TABLE) +#define GC_HASH_TABLE_P(x) GC_PSEUDOVECTORP (x, PVEC_HASH_TABLE) + +#define CHECK_HASH_TABLE(x, i) \ + do \ + { \ + if (!HASH_TABLE_P ((x))) \ + x = wrong_type_argument (Qhash_table_p, (x)); \ + } \ + while (0) + +/* Default size for hash tables if not specified. */ + +#define DEFAULT_HASH_SIZE 65 + +/* Default threshold specifying when to resize a hash table. The + value gives the ratio of current entries in the hash table and the + size of the hash table. */ + +#define DEFAULT_REHASH_THRESHOLD 0.8 + +/* Default factor by which to increase the size of a hash table. */ + +#define DEFAULT_REHASH_SIZE 1.5 + /* These structures are used for various misc types. */ @@ -903,8 +1033,18 @@ struct Lisp_Float { Lisp_Object type; /* essentially used for mark-bit and chaining when on free-list */ +#ifdef HIDE_LISP_IMPLEMENTATION + double data_; +#else double data; +#endif }; + +#ifdef HIDE_LISP_IMPLEMENTATION +#define XFLOAT_DATA(f) (XFLOAT (f)->data_) +#else +#define XFLOAT_DATA(f) (XFLOAT (f)->data) +#endif #endif /* LISP_FLOAT_TYPE */ /* A character, declared with the following typedef, is a member @@ -934,10 +1074,24 @@ typedef unsigned char UCHAR; #define CHAR_CTL (0x4000000) #define CHAR_META (0x8000000) +#define CHAR_MODIFIER_MASK \ + (CHAR_ALT | CHAR_SUPER | CHAR_HYPER | CHAR_SHIFT | CHAR_CTL | CHAR_META) + + /* Actually, the current Emacs uses 19 bits for the character value itself. */ #define CHARACTERBITS 19 +/* The maximum byte size consumed by push_key_description. + All callers should assure that at least this size of memory is + allocated at the place pointed by the second argument. + + Thers are 6 modifiers, each consumes 2 chars. + The octal form of a character code consumes + (1 + CHARACTERBITS / 3 + 1) chars (including backslash at the head). + We need one more byte for string terminator `\0'. */ +#define KEY_DESCRIPTION_SIZE ((2 * 6) + 1 + (CHARACTERBITS / 3) + 1 + 1) + #ifdef USE_X_TOOLKIT #ifdef NO_UNION_TYPE /* Use this for turning a (void *) into a Lisp_Object, as when the @@ -969,51 +1123,38 @@ typedef unsigned char UCHAR; /* The glyph datatype, used to represent characters on the display. */ -/* The low 19 bits (CHARACTERBITS) are the character code, and the - bits above them except for the topmost two bits are the numeric - face ID. If FID is the face ID of a glyph on a frame F, then - F->display.x->faces[FID] contains the description of that face. - This is an int instead of a short, so we can support a good bunch - of face ID's (i.e. 2^(32 - 19 - 2) = 2048 ID's) ; given that we +/* Glyph code to use as an index to the glyph table. If it is out of + range for the glyph table, or the corresonding element in the table + is nil, the low 8 bits are the single byte character code, and the + bits above are the numeric face ID. If FID is the face ID of a + glyph on a frame F, then F->display.x->faces[FID] contains the + description of that face. This is an int instead of a short, so we + can support a good bunch of face ID's (2^(31 - 8)); given that we have no mechanism for tossing unused frame face ID's yet, we'll - probably run out of 255 pretty quickly. */ -#define GLYPH unsigned int - -/* Mask bit for a glyph of a character which should be written from - right to left. */ -#define GLYPH_MASK_REV_DIR 0x80000000 -/* Mask bit for a padding glyph of a multi-column character. */ -#define GLYPH_MASK_PADDING 0x40000000 + probably run out of 255 pretty quickly. + This is always -1 for a multibyte character. */ +#define GLYPH int + /* Mask bits for face. */ -#define GLYPH_MASK_FACE 0x3FF80000 -/* Mask bits for character code. */ -#define GLYPH_MASK_CHAR 0x0007FFFF /* The lowest 19 bits */ +#define GLYPH_MASK_FACE 0x7FFFFF00 + /* Mask bits for character code. */ +#define GLYPH_MASK_CHAR 0x000000FF /* The lowest 8 bits */ -#ifdef HAVE_FACES /* The FAST macros assume that we already know we're in an X window. */ -/* Given a character code and a face ID, return the appropriate glyph. */ -#define FAST_MAKE_GLYPH(char, face) ((char) | ((face) << CHARACTERBITS)) +/* Set a character code and a face ID in a glyph G. */ +#define FAST_MAKE_GLYPH(char, face) ((char) | ((face) << 8)) /* Return a glyph's character code. */ #define FAST_GLYPH_CHAR(glyph) ((glyph) & GLYPH_MASK_CHAR) /* Return a glyph's face ID. */ -#define FAST_GLYPH_FACE(glyph) (((glyph) & GLYPH_MASK_FACE) >> CHARACTERBITS) +#define FAST_GLYPH_FACE(glyph) (((glyph) & GLYPH_MASK_FACE) >> 8) /* Slower versions that test the frame type first. */ -#define MAKE_GLYPH(f, char, face) (FRAME_TERMCAP_P (f) ? (char) \ - : FAST_MAKE_GLYPH (char, face)) -#define GLYPH_CHAR(f, g) (FRAME_TERMCAP_P (f) ? (g) : FAST_GLYPH_CHAR (g)) -#define GLYPH_FACE(f, g) (FRAME_TERMCAP_P (f) ? (0) : FAST_GLYPH_FACE (g)) -#else /* not HAVE_FACES */ -#define MAKE_GLYPH(f, char, face) (char) -#define FAST_MAKE_GLYPH(char, face) (char) -#define GLYPH_CHAR(f, g) ((g) & GLYPH_MASK_CHAR) -#define FAST_GLYPH_CHAR(g) ((g) & GLYPH_MASK_CHAR) -#define GLYPH_FACE(f, g) ((g) & GLYPH_MASK_FACE) -#define FAST_GLYPH_FACE(g) ((g) & GLYPH_MASK_FACE) -#endif /* not HAVE_FACES */ +#define MAKE_GLYPH(f, char, face) (FAST_MAKE_GLYPH (char, face)) +#define GLYPH_CHAR(f, g) (FAST_GLYPH_CHAR (g)) +#define GLYPH_FACE(f, g) (FAST_GLYPH_FACE (g)) /* Return 1 iff GLYPH contains valid character code. */ #define GLYPH_CHAR_VALID_P(glyph) \ @@ -1208,7 +1349,7 @@ typedef unsigned char UCHAR; /* Cast pointers to this type to compare them. Some machines want int. */ #ifndef PNTR_COMPARISON_TYPE -#define PNTR_COMPARISON_TYPE unsigned int +#define PNTR_COMPARISON_TYPE EMACS_UINT #endif /* Define a built-in function for calling from Lisp. @@ -1271,13 +1412,6 @@ typedef unsigned char UCHAR; Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object) #endif -/* Declare the prototype for a general external function. */ -#ifdef __STDC__ -#define P_(proto) proto -#else -#define P_(proto) () -#endif - /* defsubr (Sname); is how we define the symbol for function `name' at start-up time. */ extern void defsubr P_ ((struct Lisp_Subr *)); @@ -1318,8 +1452,13 @@ extern void defvar_kboard P_ ((char *, int)); If func is zero and symbol is nil, undoing this binding evaluates the list of forms in old_value; this implements Lisp's unwind-protect form. - Otherwise, undoing this binding stores old_value as symbol's value; this - undoes the bindings made by a let form or function call. */ + + Otherwise, the element is a variable binding. + If the symbol field is a symbol, it is an ordinary variable binding. + Otherwise, it should be a cons cell (SYMBOL . BUFFER) + which represents having bound BUFFER's local value. + or (SYMBOL . nil), which represents having bound the default value. */ + struct specbinding { Lisp_Object symbol, old_value; @@ -1359,11 +1498,27 @@ extern Lisp_Object memory_signal_data; Tells GC how to save a copy of the stack. */ extern char *stack_bottom; -/* Check quit-flag and quit if it is non-nil. */ +/* Check quit-flag and quit if it is non-nil. + Typing C-g does not directly cause a quit; it only sets Vquit_flag. + So the program needs to do QUIT at times when it is safe to quit. + Every loop that might run for a long time or might not exit + ought to do QUIT at least once, at a safe place. + Unless that is impossible, of course. + But it is very desirable to avoid creating loops where QUIT is impossible. -#define QUIT \ - if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \ - { Vquit_flag = Qnil; Fsignal (Qquit, Qnil); } + Exception: if you set immediate_quit to nonzero, + then the handler that responds to the C-g does the quit itself. + This is a good thing to do around a loop that has no side effects + and (in particular) cannot call arbitrary Lisp code. */ + +#define QUIT \ + do { \ + if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \ + { \ + Vquit_flag = Qnil; \ + Fsignal (Qquit, Qnil); \ + } \ + } while (0) /* Nonzero if ought to quit now. */ @@ -1443,8 +1598,13 @@ struct gcpro struct gcpro *next; Lisp_Object *var; /* Address of first protected variable */ int nvars; /* Number of consecutive protected variables */ +#ifdef DEBUG_GCPRO + int level; +#endif }; +#ifndef DEBUG_GCPRO + #define GCPRO1(varname) \ {gcpro1.next = gcprolist; gcpro1.var = &varname; gcpro1.nvars = 1; \ gcprolist = &gcpro1; } @@ -1475,22 +1635,72 @@ struct gcpro gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \ gcprolist = &gcpro5; } -/* Call staticpro (&var) to protect static variable `var'. */ +#define UNGCPRO (gcprolist = gcpro1.next) -void staticpro P_ ((Lisp_Object *)); +#else -#define UNGCPRO (gcprolist = gcpro1.next) +extern int gcpro_level; + +#define GCPRO1(varname) \ + {gcpro1.next = gcprolist; gcpro1.var = &varname; gcpro1.nvars = 1; \ + gcpro1.level = gcpro_level++; \ + gcprolist = &gcpro1; } + +#define GCPRO2(varname1, varname2) \ + {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ + gcpro1.level = gcpro_level; \ + gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ + gcpro2.level = gcpro_level++; \ + gcprolist = &gcpro2; } + +#define GCPRO3(varname1, varname2, varname3) \ + {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ + gcpro1.level = gcpro_level; \ + gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ + gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ + gcpro3.level = gcpro_level++; \ + gcprolist = &gcpro3; } + +#define GCPRO4(varname1, varname2, varname3, varname4) \ + {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ + gcpro1.level = gcpro_level; \ + gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ + gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ + gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \ + gcpro4.level = gcpro_level++; \ + gcprolist = &gcpro4; } + +#define GCPRO5(varname1, varname2, varname3, varname4, varname5) \ + {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ + gcpro1.level = gcpro_level; \ + gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ + gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ + gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \ + gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \ + gcpro5.level = gcpro_level++; \ + gcprolist = &gcpro5; } + +#define UNGCPRO \ + ((--gcpro_level != gcpro1.level) \ + ? (abort (), 0) \ + : ((gcprolist = gcpro1.next), 0)) + +#endif /* DEBUG_GCPRO */ /* Evaluate expr, UNGCPRO, and then return the value of expr. */ #define RETURN_UNGCPRO(expr) \ -if (1) \ +do \ { \ Lisp_Object ret_ungc_val; \ ret_ungc_val = (expr); \ UNGCPRO; \ return ret_ungc_val; \ } \ -else +while (0) + +/* Call staticpro (&var) to protect static variable `var'. */ + +void staticpro P_ ((Lisp_Object *)); /* Declare a Lisp-callable function. The MAXARGS parameter has the same meaning as in the DEFUN macro, and is used to construct a prototype. */ @@ -1517,7 +1727,7 @@ extern Lisp_Object Qsetting_constant, Qinvalid_read_syntax; extern Lisp_Object Qinvalid_function, Qwrong_number_of_arguments, Qno_catch; extern Lisp_Object Qend_of_file, Qarith_error; extern Lisp_Object Qbeginning_of_buffer, Qend_of_buffer, Qbuffer_read_only; -extern Lisp_Object Qmark_inactive; +extern Lisp_Object Qmark_inactive, Qtext_read_only; extern Lisp_Object Qrange_error, Qdomain_error, Qsingularity_error; extern Lisp_Object Qoverflow_error, Qunderflow_error; @@ -1626,7 +1836,9 @@ extern void args_out_of_range_3 P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); extern Lisp_Object wrong_type_argument P_ ((Lisp_Object, Lisp_Object)); extern void store_symval_forwarding P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); extern Lisp_Object do_symval_forwarding P_ ((Lisp_Object)); -extern Lisp_Object set_internal P_ ((Lisp_Object, Lisp_Object, int)); +extern Lisp_Object set_internal P_ ((Lisp_Object, Lisp_Object, struct buffer *, int)); +extern void syms_of_data P_ ((void)); +extern void init_data P_ ((void)); /* Defined in cmds.c */ EXFUN (Fend_of_line, 1); @@ -1634,6 +1846,8 @@ EXFUN (Fforward_char, 1); EXFUN (Fforward_line, 1); extern int forward_point P_ ((int)); extern int internal_self_insert P_ ((int, int)); +extern void syms_of_cmds P_ ((void)); +extern void keys_of_cmds P_ ((void)); /* Defined in coding.c */ EXFUN (Fcoding_system_p, 1); @@ -1644,15 +1858,25 @@ EXFUN (Ffind_operation_coding_system, MANY); EXFUN (Fencode_coding_string, 3); EXFUN (Fdecode_coding_string, 3); extern Lisp_Object detect_coding_system P_ ((unsigned char *, int, int)); +Lisp_Object code_convert_string_norecord P_ ((Lisp_Object, Lisp_Object, int)); +extern void init_coding P_ ((void)); +extern void init_coding_once P_ ((void)); +extern void syms_of_coding P_ ((void)); +extern Lisp_Object code_convert_string_norecord P_ ((Lisp_Object, Lisp_Object, + int)); /* Defined in charset.c */ extern int nonascii_insert_offset; -extern Lisp_Object Vnonascii_translate_table; +extern Lisp_Object Vnonascii_translation_table; EXFUN (Fchar_bytes, 1); +EXFUN (Fchar_width, 1); extern int chars_in_text P_ ((unsigned char *, int)); extern int multibyte_chars_in_text P_ ((unsigned char *, int)); extern int unibyte_char_to_multibyte P_ ((int)); +extern int multibyte_char_to_unibyte P_ ((int, Lisp_Object)); extern Lisp_Object Qcharset; +extern void init_charset_once P_ ((void)); +extern void syms_of_charset P_ ((void)); /* Defined in syntax.c */ EXFUN (Fforward_word, 1); @@ -1661,10 +1885,43 @@ EXFUN (Fskip_chars_backward, 2); EXFUN (Fsyntax_table_p, 1); EXFUN (Fsyntax_table, 0); EXFUN (Fset_syntax_table, 1); +extern void init_syntax_once P_ ((void)); +extern void syms_of_syntax P_ ((void)); /* Defined in fns.c */ +extern void sweep_weak_hash_tables P_ ((void)); extern Lisp_Object Qstring_lessp; extern Lisp_Object Vfeatures; +extern Lisp_Object QCtest, QCweakness, Qequal; +unsigned sxhash P_ ((Lisp_Object, int)); +Lisp_Object make_hash_table P_ ((Lisp_Object, Lisp_Object, Lisp_Object, + Lisp_Object, Lisp_Object, Lisp_Object, + Lisp_Object)); +Lisp_Object copy_hash_table P_ ((struct Lisp_Hash_Table *)); +int hash_lookup P_ ((struct Lisp_Hash_Table *, Lisp_Object, unsigned *)); +int hash_put P_ ((struct Lisp_Hash_Table *, Lisp_Object, Lisp_Object, + unsigned)); +void hash_remove P_ ((struct Lisp_Hash_Table *, Lisp_Object)); +void hash_clear P_ ((struct Lisp_Hash_Table *)); +void remove_hash_entry P_ ((struct Lisp_Hash_Table *, int)); +extern void init_fns P_ ((void)); +EXFUN (Fsxhash, 1); +EXFUN (Fmake_hash_table, MANY); +EXFUN (Fcopy_hash_table, 1); +EXFUN (Fhash_table_count, 1); +EXFUN (Fhash_table_rehash_size, 1); +EXFUN (Fhash_table_rehash_threshold, 1); +EXFUN (Fhash_table_size, 1); +EXFUN (Fhash_table_test, 1); +EXFUN (Fhash_table_weak, 1); +EXFUN (Fhash_table_p, 1); +EXFUN (Fclrhash, 1); +EXFUN (Fgethash, 3); +EXFUN (Fputhash, 3); +EXFUN (Fremhash, 2); +EXFUN (Fmaphash, 2); +EXFUN (Fdefine_hash_table_test, 3); + EXFUN (Fidentity, 1); EXFUN (Frandom, 1); EXFUN (Flength, 1); @@ -1701,25 +1958,32 @@ EXFUN (Fmapconcat, 3); EXFUN (Fy_or_n_p, 1); extern Lisp_Object do_yes_or_no_p P_ ((Lisp_Object)); EXFUN (Ffeaturep, 1); -EXFUN (Frequire, 2); +EXFUN (Frequire, 3); EXFUN (Fprovide, 1); extern Lisp_Object concat2 P_ ((Lisp_Object, Lisp_Object)); extern Lisp_Object concat3 P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); extern Lisp_Object nconc2 P_ ((Lisp_Object, Lisp_Object)); extern Lisp_Object assq_no_quit P_ ((Lisp_Object, Lisp_Object)); +extern void clear_string_char_byte_cache P_ (()); extern int string_char_to_byte P_ ((Lisp_Object, int)); extern int string_byte_to_char P_ ((Lisp_Object, int)); +extern Lisp_Object string_make_multibyte P_ ((Lisp_Object)); +extern Lisp_Object string_make_unibyte P_ ((Lisp_Object)); EXFUN (Fcopy_alist, 1); EXFUN (Fplist_get, 2); +EXFUN (Fplist_put, 3); EXFUN (Fset_char_table_parent, 2); EXFUN (Fchar_table_extra_slot, 2); EXFUN (Fset_char_table_extra_slot, 3); EXFUN (Frassoc, 2); EXFUN (Fstring_equal, 2); +EXFUN (Fcompare_strings, 7); EXFUN (Fstring_lessp, 2); +extern int char_table_translate P_ ((Lisp_Object, int)); extern void map_char_table P_ ((void (*) (Lisp_Object, Lisp_Object, Lisp_Object), Lisp_Object, Lisp_Object, Lisp_Object, int, Lisp_Object *)); +extern void syms_of_fns P_ ((void)); /* Defined in floatfns.c */ #ifdef LISP_FLOAT_TYPE @@ -1727,6 +1991,8 @@ extern double extract_float P_ ((Lisp_Object)); EXFUN (Ffloat, 1); #endif /* LISP_FLOAT_TYPE */ EXFUN (Ftruncate, 2); +extern void init_floatfns P_ ((void)); +extern void syms_of_floatfns P_ ((void)); /* Defined in insdel.c */ extern void move_gap P_ ((int)); @@ -1734,6 +2000,8 @@ extern void move_gap_both P_ ((int, int)); extern void make_gap P_ ((int)); extern int copy_text P_ ((unsigned char *, unsigned char *, int, int, int)); extern int count_size_as_multibyte P_ ((unsigned char *, int)); +extern int count_combining_before P_ ((unsigned char *, int, int, int)); +extern int count_combining_after P_ ((unsigned char *, int, int, int)); extern void insert P_ ((unsigned char *, int)); extern void insert_and_inherit P_ ((unsigned char *, int)); extern void insert_1 P_ ((unsigned char *, int, int, int, int)); @@ -1746,10 +2014,10 @@ extern void insert_before_markers P_ ((unsigned char *, int)); extern void insert_before_markers_and_inherit P_ ((unsigned char *, int)); extern void insert_from_string_before_markers P_ ((Lisp_Object, int, int, int, int, int)); extern void del_range P_ ((int, int)); -extern void del_range_1 P_ ((int, int, int)); +extern Lisp_Object del_range_1 P_ ((int, int, int, int)); extern void del_range_byte P_ ((int, int, int)); extern void del_range_both P_ ((int, int, int, int, int)); -extern void del_range_2 P_ ((int, int, int, int)); +extern Lisp_Object del_range_2 P_ ((int, int, int, int, int)); extern void modify_region P_ ((struct buffer *, int, int)); extern void prepare_to_modify_buffer P_ ((int, int, int *)); extern void signal_before_change P_ ((int, int, int *)); @@ -1757,39 +2025,71 @@ extern void signal_after_change P_ ((int, int, int)); extern void adjust_after_replace P_ ((int, int, Lisp_Object, int, int)); extern void adjust_after_insert P_ ((int, int, int, int, int)); extern void replace_range P_ ((int, int, Lisp_Object, int, int, int)); +extern void syms_of_insdel P_ ((void)); /* Defined in dispnew.c */ +extern Lisp_Object selected_frame; EXFUN (Fding, 1); +EXFUN (Fredraw_frame, 1); EXFUN (Fredraw_display, 0); EXFUN (Fsleep_for, 2); EXFUN (Fsit_for, 3); extern Lisp_Object sit_for P_ ((int, int, int, int, int)); -extern void quit_error_check P_ ((void)); +extern void init_display P_ ((void)); +extern void syms_of_display P_ ((void)); +extern void safe_bcopy P_ ((char *, char *, int)); /* Defined in xdisp.c */ +extern Lisp_Object Qinhibit_redisplay; extern Lisp_Object Vmessage_log_max; extern int message_enable_multibyte; +extern Lisp_Object echo_area_buffer[2]; +extern void check_message_stack P_ ((void)); +extern void setup_echo_area_for_printing P_ ((int)); +extern int push_message P_ ((void)); +extern void pop_message P_ ((void)); +extern void restore_message P_ ((void)); +extern Lisp_Object current_message P_ ((void)); +extern void set_message P_ ((char *s, Lisp_Object, int, int)); +extern void clear_message P_ ((int, int)); extern void message P_ ((/* char *, ... */)); extern void message_nolog P_ ((/* char *, ... */)); extern void message1 P_ ((char *)); extern void message1_nolog P_ ((char *)); extern void message2 P_ ((char *, int, int)); extern void message2_nolog P_ ((char *, int, int)); +extern void message3 P_ ((Lisp_Object, int, int)); +extern void message3_nolog P_ ((Lisp_Object, int, int)); extern void message_dolog P_ ((char *, int, int, int)); extern void message_with_string P_ ((char *, Lisp_Object, int)); extern void message_log_maybe_newline P_ ((void)); extern void update_echo_area P_ ((void)); extern void truncate_echo_area P_ ((int)); extern void redisplay P_ ((void)); +extern int check_point_in_composition + P_ ((struct buffer *, int, struct buffer *, int)); extern void redisplay_preserve_echo_area P_ ((void)); extern void mark_window_display_accurate P_ ((Lisp_Object, int)); extern int invisible_p P_ ((Lisp_Object, Lisp_Object)); extern void prepare_menu_bars P_ ((void)); +extern void syms_of_xdisp P_ ((void)); +extern void init_xdisp P_ ((void)); +/* Defined in vm-limit.c. */ +#ifdef __STDC__ +extern void memory_warnings P_ ((void *, void (*warnfun) ())); +#else +extern void memory_warnings P_ ((char *, void (*warnfun) ())); +#endif + /* Defined in alloc.c */ +extern void allocate_string_data P_ ((struct Lisp_String *, int, int)); +extern void uninterrupt_malloc P_ ((void)); extern void malloc_warning P_ ((char *)); extern void memory_full P_ ((void)); extern void buffer_memory_full P_ ((void)); +extern int survives_gc_p P_ ((Lisp_Object)); +extern void mark_object P_ ((Lisp_Object *)); extern Lisp_Object Vpurify_flag; EXFUN (Fcons, 2); EXFUN (list2, 2); @@ -1806,6 +2106,7 @@ EXFUN (Fmake_marker, 0); EXFUN (Fmake_string, 2); extern Lisp_Object build_string P_ ((char *)); extern Lisp_Object make_string P_ ((char *, int)); +extern Lisp_Object make_unibyte_string P_ ((char *, int)); extern Lisp_Object make_multibyte_string P_ ((char *, int, int)); extern Lisp_Object make_event_array P_ ((int, Lisp_Object *)); extern Lisp_Object make_uninit_string P_ ((int)); @@ -1831,9 +2132,13 @@ extern void display_malloc_warning P_ ((void)); extern int inhibit_garbage_collection P_ ((void)); extern void free_marker P_ ((Lisp_Object)); extern void free_cons P_ ((struct Lisp_Cons *)); +extern void init_alloc_once P_ ((void)); +extern void init_alloc P_ ((void)); +extern void syms_of_alloc P_ ((void)); /* Defined in print.c */ extern Lisp_Object Vprin1_to_string_buffer; +extern void debug_print P_ ((Lisp_Object)); EXFUN (Fprin1, 2); EXFUN (Fprin1_to_string, 2); EXFUN (Fprinc, 2); @@ -1849,8 +2154,9 @@ extern void write_string P_ ((char *, int)); extern void write_string_1 P_ ((char *, int, Lisp_Object)); extern void print_error_message P_ ((Lisp_Object, Lisp_Object)); extern Lisp_Object internal_with_output_to_temp_buffer - P_ ((char *, Lisp_Object (*) (), Lisp_Object)); + P_ ((char *, Lisp_Object (*) (Lisp_Object), Lisp_Object)); extern void float_to_string P_ ((unsigned char *, double)); +extern void syms_of_print P_ ((void)); /* Defined in doprnt.c */ extern int doprnt P_ ((char *, int, char *, char *, int, char **)); @@ -1858,16 +2164,17 @@ extern int doprnt_lisp P_ ((char *, int, char *, char *, int, char **)); /* Defined in lread.c */ extern Lisp_Object Qvariable_documentation, Qstandard_input; -extern Lisp_Object Vobarray, Vstandard_input; +extern Lisp_Object Vobarray, initial_obarray, Vstandard_input; EXFUN (Fread, 1); EXFUN (Fread_from_string, 3); EXFUN (Fintern, 2); EXFUN (Fintern_soft, 2); EXFUN (Fload, 5); EXFUN (Fget_file_char, 0); -EXFUN (Fread_char, 0); -extern Lisp_Object read_filtered_event P_ ((int, int, int)); -EXFUN (Feval_region, 3); +EXFUN (Fread_char, 2); +EXFUN (Fread_event, 2); +extern Lisp_Object read_filtered_event P_ ((int, int, int, int)); +EXFUN (Feval_region, 4); extern Lisp_Object intern P_ ((char *)); extern Lisp_Object make_symbol P_ ((char *)); extern Lisp_Object oblookup P_ ((Lisp_Object, char *, int, int)); @@ -1881,6 +2188,9 @@ extern void map_obarray P_ ((Lisp_Object, void (*) (Lisp_Object, Lisp_Object), Lisp_Object)); extern void dir_warning P_ ((char *, Lisp_Object)); extern void close_load_descs P_ ((void)); +extern void init_obarray P_ ((void)); +extern void init_lread P_ ((void)); +extern void syms_of_lread P_ ((void)); /* Defined in eval.c */ extern Lisp_Object Qautoload, Qexit, Qinteractive, Qcommandp, Qdefun, Qmacro; @@ -1947,8 +2257,12 @@ extern void error P_ ((/* char *, ... */)); extern void do_autoload P_ ((Lisp_Object, Lisp_Object)); extern Lisp_Object un_autoload P_ ((Lisp_Object)); EXFUN (Ffetch_bytecode, 1); +extern void init_eval_once P_ ((void)); +extern void init_eval P_ ((void)); +extern void syms_of_eval P_ ((void)); /* Defined in editfns.c */ +EXFUN (Fcurrent_message, 0); EXFUN (Fgoto_char, 1); EXFUN (Fpoint_min_marker, 0); EXFUN (Fpoint_max_marker, 0); @@ -1973,6 +2287,7 @@ EXFUN (Feobp, 0); EXFUN (Fbolp, 0); EXFUN (Fbobp, 0); EXFUN (Fformat, MANY); +EXFUN (Fmessage, MANY); extern Lisp_Object format1 P_ ((/* char *, ... */)); extern Lisp_Object make_buffer_string P_ ((int, int, int)); EXFUN (Fbuffer_substring, 2); @@ -1987,12 +2302,19 @@ EXFUN (Fnarrow_to_region, 2); EXFUN (Fwiden, 0); EXFUN (Fuser_login_name, 1); EXFUN (Fsystem_name, 0); +EXFUN (Fcurrent_time, 0); extern int clip_to_bounds P_ ((int, int, int)); extern Lisp_Object make_buffer_string P_ ((int, int, int)); extern Lisp_Object make_buffer_string_both P_ ((int, int, int, int, int)); +extern void init_editfns P_ ((void)); +extern void syms_of_editfns P_ ((void)); +EXFUN (Fcurrent_message, 0); +extern Lisp_Object Vinhibit_field_text_motion; /* defined in buffer.c */ extern void nsberror P_ ((Lisp_Object)); +extern char *no_switch_window P_ ((Lisp_Object window)); +EXFUN (Fset_buffer_multibyte, 1); EXFUN (Foverlay_start, 1); EXFUN (Foverlay_end, 1); extern void adjust_overlays_for_insert P_ ((int, int)); @@ -2010,7 +2332,7 @@ EXFUN (Fbarf_if_buffer_read_only, 0); EXFUN (Fcurrent_buffer, 0); EXFUN (Fswitch_to_buffer, 2); EXFUN (Fpop_to_buffer, 3); -EXFUN (Fother_buffer, 2); +EXFUN (Fother_buffer, 3); EXFUN (Foverlay_get, 2); EXFUN (Fbuffer_modified_p, 1); EXFUN (Fset_buffer_modified_p, 1); @@ -2023,6 +2345,10 @@ extern Lisp_Object Qoverlayp; extern Lisp_Object get_truename_buffer P_ ((Lisp_Object)); extern struct buffer *all_buffers; EXFUN (Fprevious_overlay_change, 1); +extern void init_buffer_once P_ ((void)); +extern void init_buffer P_ ((void)); +extern void syms_of_buffer P_ ((void)); +extern void keys_of_buffer P_ ((void)); /* defined in marker.c */ @@ -2031,17 +2357,24 @@ EXFUN (Fmarker_buffer, 1); EXFUN (Fcopy_marker, 2); EXFUN (Fset_marker, 3); extern int marker_position P_ ((Lisp_Object)); +extern int marker_byte_position P_ ((Lisp_Object)); +extern void clear_charpos_cache P_ ((struct buffer *)); +extern int charpos_to_bytepos P_ ((int)); +extern int buf_charpos_to_bytepos P_ ((struct buffer *, int)); +extern int buf_bytepos_to_charpos P_ ((struct buffer *, int)); extern void unchain_marker P_ ((Lisp_Object)); extern Lisp_Object set_marker_restricted P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); extern Lisp_Object set_marker_both P_ ((Lisp_Object, Lisp_Object, int, int)); extern Lisp_Object set_marker_restricted_both P_ ((Lisp_Object, Lisp_Object, int, int)); +extern void syms_of_marker P_ ((void)); /* Defined in fileio.c */ extern Lisp_Object Qfile_error; EXFUN (Ffind_file_name_handler, 2); EXFUN (Ffile_name_as_directory, 1); +EXFUN (Fmake_temp_name, 1); EXFUN (Fexpand_file_name, 2); EXFUN (Ffile_name_nondirectory, 1); EXFUN (Fsubstitute_in_file_name, 1); @@ -2059,14 +2392,20 @@ EXFUN (Fwrite_region, 7); EXFUN (Ffile_readable_p, 1); EXFUN (Ffile_executable_p, 1); EXFUN (Fread_file_name, 5); +extern Lisp_Object close_file_unwind P_ ((Lisp_Object)); extern void report_file_error P_ ((char *, Lisp_Object)); extern int internal_delete_file P_ ((Lisp_Object)); +extern void syms_of_fileio P_ ((void)); +EXFUN (Fmake_temp_name, 1); +extern void init_fileio_once P_ ((void)); /* Defined in abbrev.c */ extern Lisp_Object Vfundamental_mode_abbrev_table; +extern void syms_of_abbrev P_ ((void)); /* defined in search.c */ +extern void shrink_regexp_cache P_ ((void)); EXFUN (Fstring_match, 3); extern void restore_match_data P_ ((void)); EXFUN (Fmatch_data, 2); @@ -2080,11 +2419,13 @@ extern int scan_newline P_ ((int, int, int, int, int, int)); extern int find_next_newline P_ ((int, int)); extern int find_next_newline_no_quit P_ ((int, int)); extern int find_before_next_newline P_ ((int, int, int)); +extern void syms_of_search P_ ((void)); /* defined in minibuf.c */ extern Lisp_Object last_minibuf_string; extern void choose_minibuf_frame P_ ((void)); +extern int scmp P_ ((unsigned char *, unsigned char *, int)); EXFUN (Fcompleting_read, 8); EXFUN (Fread_from_minibuffer, 7); EXFUN (Fread_variable, 2); @@ -2095,6 +2436,9 @@ EXFUN (Fread_string, 5); EXFUN (Fread_no_blanks_input, 3); extern Lisp_Object get_minibuffer P_ ((int)); extern void temp_echo_area_glyphs P_ ((char *)); +extern void init_minibuf_once P_ ((void)); +extern void syms_of_minibuf P_ ((void)); +extern void keys_of_minibuf P_ ((void)); /* Defined in callint.c */ @@ -2103,6 +2447,7 @@ extern Lisp_Object Vcommand_history; extern Lisp_Object Qcall_interactively, Qmouse_leave_buffer_hook; EXFUN (Fcall_interactively, 3); EXFUN (Fprefix_numeric_value, 1); +extern void syms_of_callint P_ ((void)); /* defined in casefiddle.c */ @@ -2112,11 +2457,15 @@ EXFUN (Fcapitalize, 1); EXFUN (Fupcase_region, 2); EXFUN (Fupcase_initials, 1); EXFUN (Fupcase_initials_region, 2); +extern void syms_of_casefiddle P_ ((void)); +extern void keys_of_casefiddle P_ ((void)); /* defined in casetab.c */ EXFUN (Fset_case_table, 1); EXFUN (Fset_standard_case_table, 1); +extern void init_casetab_once P_ ((void)); +extern void syms_of_casetab P_ ((void)); /* defined in keyboard.c */ @@ -2127,10 +2476,11 @@ EXFUN (Frecursive_edit, 0); EXFUN (Fcommand_execute, 4); EXFUN (Finput_pending_p, 0); extern Lisp_Object menu_bar_items P_ ((Lisp_Object)); +extern Lisp_Object tool_bar_items P_ ((Lisp_Object, int *)); extern Lisp_Object Qvertical_scroll_bar; extern void discard_mouse_events (); EXFUN (Fevent_convert_list, 1); -EXFUN (Fread_key_sequence, 4); +EXFUN (Fread_key_sequence, 5); EXFUN (Fset_input_mode, 4); extern int detect_input_pending P_ ((void)); extern int detect_input_pending_run_timers P_ ((int)); @@ -2139,6 +2489,9 @@ extern void cmd_error_internal P_ ((Lisp_Object, char *)); extern Lisp_Object command_loop_1 P_ ((void)); extern Lisp_Object recursive_edit_1 P_ ((void)); extern void record_auto_save P_ ((void)); +extern void init_keyboard P_ ((void)); +extern void syms_of_keyboard P_ ((void)); +extern void keys_of_keyboard P_ ((void)); /* defined in keymap.c */ @@ -2166,6 +2519,8 @@ extern int current_minor_maps P_ ((Lisp_Object **, Lisp_Object **)); extern void initial_define_key P_ ((Lisp_Object, int, char *)); extern void initial_define_lispy_key P_ ((Lisp_Object, char *, char *)); extern void fix_submap_inheritance P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); +extern void syms_of_keymap P_ ((void)); +extern void keys_of_keymap P_ ((void)); /* defined in indent.c */ EXFUN (Fvertical_motion, 2); @@ -2175,9 +2530,11 @@ EXFUN (Fmove_to_column, 2); extern int current_column P_ ((void)); extern void invalidate_current_column P_ ((void)); extern int indented_beyond_p P_ ((int, int, int)); +extern void syms_of_indent P_ ((void)); /* defined in window.c */ extern Lisp_Object Qwindowp, Qwindow_live_p; +EXFUN (Fwindow_end, 2); EXFUN (Fselected_window, 0); EXFUN (Fnext_window, 3); EXFUN (Fdelete_window, 1); @@ -2192,6 +2549,7 @@ extern int compare_window_configurations P_ ((Lisp_Object, Lisp_Object, int)); EXFUN (Fcoordinates_in_window_p, 2); EXFUN (Fwindow_at, 3); EXFUN (Fpos_visible_in_window_p, 2); +extern void mark_window_cursors_off P_ ((struct window *)); extern int window_internal_height P_ ((struct window *)); extern int window_internal_width P_ ((struct window *)); EXFUN (Frecenter, 1); @@ -2199,6 +2557,9 @@ EXFUN (Fscroll_other_window, 1); EXFUN (Fset_window_start, 3); extern void temp_output_buffer_show P_ ((Lisp_Object)); extern void replace_buffer_in_all_windows P_ ((Lisp_Object)); +extern void init_window_once P_ ((void)); +extern void syms_of_window P_ ((void)); +extern void keys_of_window P_ ((void)); /* defined in frame.c */ extern Lisp_Object Qvisible; @@ -2206,7 +2567,7 @@ extern void store_frame_param P_ ((struct frame *, Lisp_Object, Lisp_Object)); extern void store_in_alist P_ ((Lisp_Object *, Lisp_Object, Lisp_Object)); extern Lisp_Object do_switch_frame P_ ((Lisp_Object, Lisp_Object, int)); extern Lisp_Object get_frame_param P_ ((struct frame *, Lisp_Object)); -extern Lisp_Object frame_buffer_predicate P_ ((void)); +extern Lisp_Object frame_buffer_predicate P_ ((Lisp_Object)); EXFUN (Fframep, 1); EXFUN (Fselect_frame, 2); EXFUN (Fselected_frame, 0); @@ -2232,16 +2593,28 @@ EXFUN (Fset_frame_position, 3); EXFUN (Fraise_frame, 1); EXFUN (Fredirect_frame_focus, 2); EXFUN (Fset_frame_selected_window, 2); -extern Lisp_Object frame_buffer_list P_ ((void)); +extern Lisp_Object frame_buffer_list P_ ((Lisp_Object)); extern void frames_discard_buffer P_ ((Lisp_Object)); -extern void set_frame_buffer_list P_ ((Lisp_Object)); +extern void set_frame_buffer_list P_ ((Lisp_Object, Lisp_Object)); extern void frames_bury_buffer P_ ((Lisp_Object)); +extern void syms_of_frame P_ ((void)); +extern void keys_of_frame P_ ((void)); /* defined in emacs.c */ extern Lisp_Object decode_env_path P_ ((char *, char *)); extern Lisp_Object Vinvocation_name, Vinvocation_directory; extern Lisp_Object Vinstallation_directory; EXFUN (Fkill_emacs, 1); +#if HAVE_SETLOCALE +void fixup_locale P_ ((void)); +void synchronize_system_messages_locale P_ ((void)); +void synchronize_system_time_locale P_ ((void)); +#else +#define setlocale(category, locale) +#define fixup_locale() +#define synchronize_system_messages_locale() +#define synchronize_system_time_locale() +#endif void shut_down_emacs P_ ((int, int, Lisp_Object)); /* Nonzero means don't do interactive redisplay and don't change tty modes */ extern int noninteractive; @@ -2267,11 +2640,18 @@ extern void delete_keyboard_wait_descriptor P_ ((int)); extern void close_process_descs P_ ((void)); extern void status_notify P_ ((void)); extern int read_process_output P_ ((Lisp_Object, int)); +extern void init_process P_ ((void)); +extern void syms_of_process P_ ((void)); /* defined in callproc.c */ extern Lisp_Object Vexec_path, Vexec_directory, Vdata_directory; extern Lisp_Object Vdoc_directory; +EXFUN (Fcall_process, MANY); extern int child_setup P_ ((int, int, int, char **, int, Lisp_Object)); +extern void init_callproc_1 P_ ((void)); +extern void init_callproc P_ ((void)); +extern void set_process_environment P_ ((void)); +extern void syms_of_callproc P_ ((void)); /* defined in doc.c */ extern Lisp_Object Vdoc_file_name; @@ -2279,14 +2659,24 @@ EXFUN (Fsubstitute_command_keys, 1); EXFUN (Fdocumentation, 2); EXFUN (Fdocumentation_property, 3); extern Lisp_Object read_doc_string P_ ((Lisp_Object)); +extern Lisp_Object get_doc_string P_ ((Lisp_Object, int, int)); +extern void syms_of_doc P_ ((void)); +extern int read_bytecode_char P_ ((int)); /* defined in bytecode.c */ extern Lisp_Object Qbytecode; EXFUN (Fbyte_code, 3); +extern void syms_of_bytecode P_ ((void)); +extern struct byte_stack *byte_stack_list; +extern void mark_byte_stack P_ ((void)); +extern void unmark_byte_stack P_ ((void)); /* defined in macros.c */ extern Lisp_Object Qexecute_kbd_macro; EXFUN (Fexecute_kbd_macro, 2); +extern void init_macros P_ ((void)); +extern void syms_of_macros P_ ((void)); +extern void keys_of_macros P_ ((void)); /* defined in undo.c */ extern Lisp_Object Qinhibit_read_only; @@ -2299,6 +2689,7 @@ extern void record_first_change P_ ((void)); extern void record_change P_ ((int, int)); extern void record_property_change P_ ((int, int, Lisp_Object, Lisp_Object, Lisp_Object)); +extern void syms_of_undo P_ ((void)); /* defined in textprop.c */ extern Lisp_Object Qmodification_hooks; @@ -2314,6 +2705,14 @@ EXFUN (Ftext_property_not_all, 5); EXFUN (Fprevious_char_property_change, 2); EXFUN (Fnext_char_property_change, 2); extern void report_interval_modification P_ ((Lisp_Object, Lisp_Object)); +extern void syms_of_textprop P_ ((void)); +extern Lisp_Object next_single_char_property_change P_ ((Lisp_Object, + Lisp_Object, + Lisp_Object, + Lisp_Object)); +extern Lisp_Object set_text_properties P_ ((Lisp_Object, Lisp_Object, + Lisp_Object, Lisp_Object, + Lisp_Object)); /* defined in intervals.c */ extern Lisp_Object get_local_map P_ ((int, struct buffer *)); @@ -2321,8 +2720,10 @@ extern Lisp_Object get_local_map P_ ((int, struct buffer *)); /* defined in xmenu.c */ EXFUN (Fx_popup_menu, 2); EXFUN (Fx_popup_dialog, 2); +extern void syms_of_xmenu P_ ((void)); /* defined in sysdep.c */ +extern void stuff_char P_ ((char c)); extern void init_sigio P_ ((int)); extern void request_sigio P_ ((void)); extern void unrequest_sigio P_ ((void)); @@ -2341,14 +2742,71 @@ extern int set_window_size P_ ((int, int, int)); extern void create_process P_ ((Lisp_Object, char **, Lisp_Object)); extern int tabs_safe_p P_ ((void)); extern void init_baud_rate P_ ((void)); +extern int emacs_open P_ ((char *, int, int)); +extern int emacs_close P_ ((int)); +extern int emacs_read P_ ((int, char *, unsigned int)); +extern int emacs_write P_ ((int, char *, unsigned int)); /* defined in filelock.c */ EXFUN (Funlock_buffer, 0); -EXFUN (Ffile_locked_p, 1);; +EXFUN (Ffile_locked_p, 1); extern void unlock_all_files P_ ((void)); extern void lock_file P_ ((Lisp_Object)); extern void unlock_file P_ ((Lisp_Object)); extern void unlock_buffer P_ ((struct buffer *)); +extern void syms_of_filelock P_ ((void)); +extern void init_filelock P_ ((void)); + +/* Defined in sound.c */ +extern void syms_of_sound P_ ((void)); +extern void init_sound P_ ((void)); + +/* Defined in category.c */ +extern void init_category_once P_ ((void)); +extern void syms_of_category P_ ((void)); + +/* Defined in ccl.c */ +extern void syms_of_ccl P_ ((void)); + +/* Defined in dired.c */ +EXFUN (Ffile_attributes, 1); +extern void syms_of_dired P_ ((void)); + +/* Defined in mocklisp.c */ +extern void syms_of_mocklisp P_ ((void)); + +/* Defined in term.c */ +extern void syms_of_term P_ ((void)); +extern void fatal (); + +#ifdef HAVE_X_WINDOWS +/* Defined in fontset.c */ +extern void syms_of_fontset P_ ((void)); +EXFUN (Fset_fontset_font, 4); +#endif + +/* Defined in xfaces.c */ +extern void syms_of_xfaces P_ ((void)); + +/* Defined in getloadavg.c */ +extern int getloadavg P_ ((double *, int)); + +#ifdef HAVE_X_WINDOWS +/* Defined in xfns.c */ +extern void x_set_tool_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object)); +extern void syms_of_xfns P_ ((void)); +EXFUN (Fx_hide_busy_cursor, 1); +extern void init_xfns P_ ((void)); +#endif + +/* Defined in xselect.c */ +extern void syms_of_xselect P_ ((void)); + +/* Defined in xterm.c */ +extern void syms_of_xterm P_ ((void)); + +/* Defined in getloadavg.c */ +extern int getloadavg P_ ((double [], int)); /* Nonzero means Emacs has already been initialized. Used during startup to detect startup of dumped Emacs. */