303 |
PVEC_BUFFER = 0x20000, |
PVEC_BUFFER = 0x20000, |
304 |
PVEC_HASH_TABLE = 0x40000, |
PVEC_HASH_TABLE = 0x40000, |
305 |
PVEC_TYPE_MASK = 0x7fe00 |
PVEC_TYPE_MASK = 0x7fe00 |
306 |
|
|
307 |
#if 0 /* This is used to make the value of PSEUDOVECTOR_FLAG available to |
#if 0 /* This is used to make the value of PSEUDOVECTOR_FLAG available to |
308 |
GDB. It doesn't work on OS Alpha. Moved to a variable in |
GDB. It doesn't work on OS Alpha. Moved to a variable in |
309 |
emacs.c. */ |
emacs.c. */ |
892 |
|
|
893 |
/* The symbol's property list. */ |
/* The symbol's property list. */ |
894 |
Lisp_Object plist; |
Lisp_Object plist; |
895 |
|
|
896 |
/* Next symbol in obarray bucket, if the symbol is interned. */ |
/* Next symbol in obarray bucket, if the symbol is interned. */ |
897 |
struct Lisp_Symbol *next; |
struct Lisp_Symbol *next; |
898 |
}; |
}; |
935 |
else \ |
else \ |
936 |
XSYMBOL (sym)->value = (val); \ |
XSYMBOL (sym)->value = (val); \ |
937 |
} while (0) |
} while (0) |
938 |
|
|
939 |
|
|
940 |
/*********************************************************************** |
/*********************************************************************** |
941 |
Hash Tables |
Hash Tables |
948 |
/* Vector fields. The hash table code doesn't refer to these. */ |
/* Vector fields. The hash table code doesn't refer to these. */ |
949 |
EMACS_INT size; |
EMACS_INT size; |
950 |
struct Lisp_Vector *vec_next; |
struct Lisp_Vector *vec_next; |
951 |
|
|
952 |
/* Function used to compare keys. */ |
/* Function used to compare keys. */ |
953 |
Lisp_Object test; |
Lisp_Object test; |
954 |
|
|
955 |
/* Nil if table is non-weak. Otherwise a symbol describing the |
/* Nil if table is non-weak. Otherwise a symbol describing the |
956 |
weakness of the table. */ |
weakness of the table. */ |
957 |
Lisp_Object weak; |
Lisp_Object weak; |
958 |
|
|
959 |
/* When the table is resized, and this is an integer, compute the |
/* When the table is resized, and this is an integer, compute the |
960 |
new size by adding this to the old size. If a float, compute the |
new size by adding this to the old size. If a float, compute the |
961 |
new size by multiplying the old size with this factor. */ |
new size by multiplying the old size with this factor. */ |
1127 |
one that corresponds to the loaded binding. To read or set the |
one that corresponds to the loaded binding. To read or set the |
1128 |
variable, you must first make sure the right binding is loaded; |
variable, you must first make sure the right binding is loaded; |
1129 |
then you can access the value in (or through) `realvalue'. |
then you can access the value in (or through) `realvalue'. |
1130 |
|
|
1131 |
`buffer' and `frame' are the buffer and frame for which the loaded |
`buffer' and `frame' are the buffer and frame for which the loaded |
1132 |
binding was found. If those have changed, to make sure the right |
binding was found. If those have changed, to make sure the right |
1133 |
binding is loaded it is necessary to find which binding goes with |
binding is loaded it is necessary to find which binding goes with |
1601 |
|| (SYMBOLP (OBJ) && !NILP (Ffboundp (OBJ))) \ |
|| (SYMBOLP (OBJ) && !NILP (Ffboundp (OBJ))) \ |
1602 |
|| COMPILEDP (OBJ) \ |
|| COMPILEDP (OBJ) \ |
1603 |
|| SUBRP (OBJ)) |
|| SUBRP (OBJ)) |
1604 |
|
|
1605 |
/* defsubr (Sname); |
/* defsubr (Sname); |
1606 |
is how we define the symbol for function `name' at start-up time. */ |
is how we define the symbol for function `name' at start-up time. */ |
1607 |
extern void defsubr P_ ((struct Lisp_Subr *)); |
extern void defsubr P_ ((struct Lisp_Subr *)); |
1646 |
form. |
form. |
1647 |
|
|
1648 |
Otherwise, the element is a variable binding. |
Otherwise, the element is a variable binding. |
1649 |
|
|
1650 |
If the symbol field is a symbol, it is an ordinary variable binding. |
If the symbol field is a symbol, it is an ordinary variable binding. |
1651 |
|
|
1652 |
Otherwise, it should be a structure (SYMBOL WHERE |
Otherwise, it should be a structure (SYMBOL WHERE |
1653 |
. CURRENT-BUFFER), which means having bound a local value while |
. CURRENT-BUFFER), which means having bound a local value while |
1654 |
CURRENT-BUFFER was active. If WHERE is nil this means we saw the |
CURRENT-BUFFER was active. If WHERE is nil this means we saw the |
1797 |
struct gcpro |
struct gcpro |
1798 |
{ |
{ |
1799 |
struct gcpro *next; |
struct gcpro *next; |
1800 |
|
|
1801 |
/* Address of first protected variable. */ |
/* Address of first protected variable. */ |
1802 |
volatile Lisp_Object *var; |
volatile Lisp_Object *var; |
1803 |
|
|
1804 |
/* Number of consecutive protected variables. */ |
/* Number of consecutive protected variables. */ |
1805 |
int nvars; |
int nvars; |
1806 |
|
|
1807 |
#ifdef DEBUG_GCPRO |
#ifdef DEBUG_GCPRO |
1808 |
int level; |
int level; |
1809 |
#endif |
#endif |
1833 |
/* Do something silly with gcproN vars just so gcc shuts up. */ |
/* Do something silly with gcproN vars just so gcc shuts up. */ |
1834 |
|
|
1835 |
#define GCPRO1(varname) ((void) gcpro1) |
#define GCPRO1(varname) ((void) gcpro1) |
1836 |
#define GCPRO2(varname1, varname2)(((void) gcpro2, (void) gcpro1)) |
#define GCPRO2(varname1, varname2)(((void) gcpro2, (void) gcpro1)) |
1837 |
#define GCPRO3(varname1, varname2, varname3) \ |
#define GCPRO3(varname1, varname2, varname3) \ |
1838 |
(((void) gcpro3, (void) gcpro2, (void) gcpro1)) |
(((void) gcpro3, (void) gcpro2, (void) gcpro1)) |
1839 |
#define GCPRO4(varname1, varname2, varname3, varname4) \ |
#define GCPRO4(varname1, varname2, varname3, varname4) \ |
2807 |
EXFUN (Findent_to, 2); |
EXFUN (Findent_to, 2); |
2808 |
EXFUN (Fcurrent_column, 0); |
EXFUN (Fcurrent_column, 0); |
2809 |
EXFUN (Fmove_to_column, 2); |
EXFUN (Fmove_to_column, 2); |
2810 |
extern int current_column P_ ((void)); |
extern float current_column P_ ((void)); |
2811 |
extern void invalidate_current_column P_ ((void)); |
extern void invalidate_current_column P_ ((void)); |
2812 |
extern int indented_beyond_p P_ ((int, int, int)); |
extern int indented_beyond_p P_ ((int, int, float)); |
2813 |
extern void syms_of_indent P_ ((void)); |
extern void syms_of_indent P_ ((void)); |
2814 |
|
|
2815 |
/* defined in window.c */ |
/* defined in window.c */ |
3143 |
|
|
3144 |
/* Loop over Lisp list LIST. Signal an error if LIST is not a proper |
/* Loop over Lisp list LIST. Signal an error if LIST is not a proper |
3145 |
list, or if it contains circles. |
list, or if it contains circles. |
3146 |
|
|
3147 |
HARE and TORTOISE should be the names of Lisp_Object variables, and |
HARE and TORTOISE should be the names of Lisp_Object variables, and |
3148 |
N should be the name of an EMACS_INT variable declared in the |
N should be the name of an EMACS_INT variable declared in the |
3149 |
function where the macro is used. Each nested loop should use |
function where the macro is used. Each nested loop should use |