Mercurial > emacs
annotate src/lisp.h @ 28751:6a79bbe8bf72
*** empty log message ***
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Fri, 28 Apr 2000 11:53:43 +0000 |
parents | b132db55ef7e |
children | 03ac8f012b94 |
rev | line source |
---|---|
302 | 1 /* Fundamental definitions for GNU Emacs Lisp interpreter. |
27141
d7b1de135a40
Add prototype for allocate_string_data.
Gerd Moellmann <gerd@gnu.org>
parents:
27078
diff
changeset
|
2 Copyright (C) 1985,86,87,93,94,95,97,98,1999,2000 |
d7b1de135a40
Add prototype for allocate_string_data.
Gerd Moellmann <gerd@gnu.org>
parents:
27078
diff
changeset
|
3 Free Software Foundation, Inc. |
302 | 4 |
5 This file is part of GNU Emacs. | |
6 | |
7 GNU Emacs is free software; you can redistribute it and/or modify | |
8 it under the terms of the GNU General Public License as published by | |
621 | 9 the Free Software Foundation; either version 2, or (at your option) |
302 | 10 any later version. |
11 | |
12 GNU Emacs is distributed in the hope that it will be useful, | |
13 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 GNU General Public License for more details. | |
16 | |
17 You should have received a copy of the GNU General Public License | |
18 along with GNU Emacs; see the file COPYING. If not, write to | |
14186
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
13363
diff
changeset
|
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
ee40177f6c68
Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents:
13363
diff
changeset
|
20 Boston, MA 02111-1307, USA. */ |
302 | 21 |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
22 /* Declare the prototype for a general external function. */ |
28054
d53d22ce7f4b
(P_): Define based on PROTOTYPES, not __STDC__.
Dave Love <fx@gnu.org>
parents:
27885
diff
changeset
|
23 #if defined (PROTOTYPES) || defined (WINDOWSNT) |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
24 #define P_(proto) proto |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
25 #else |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
26 #define P_(proto) () |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
27 #endif |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
28 |
302 | 29 |
8835
48bcdcb9d191
(EMACS_INT, EMACS_UINT): Define, if not already defined.
Richard M. Stallman <rms@gnu.org>
parents:
8827
diff
changeset
|
30 /* These are default choices for the types to use. */ |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
31 #ifdef _LP64 |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
32 #ifndef EMACS_INT |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
33 #define EMACS_INT long |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
34 #define BITS_PER_EMACS_INT BITS_PER_LONG |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
35 #endif |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
36 #ifndef EMACS_UINT |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
37 #define EMACS_UINT unsigned long |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
38 #endif |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
39 #else /* not _LP64 */ |
8835
48bcdcb9d191
(EMACS_INT, EMACS_UINT): Define, if not already defined.
Richard M. Stallman <rms@gnu.org>
parents:
8827
diff
changeset
|
40 #ifndef EMACS_INT |
48bcdcb9d191
(EMACS_INT, EMACS_UINT): Define, if not already defined.
Richard M. Stallman <rms@gnu.org>
parents:
8827
diff
changeset
|
41 #define EMACS_INT int |
16133 | 42 #define BITS_PER_EMACS_INT BITS_PER_INT |
8835
48bcdcb9d191
(EMACS_INT, EMACS_UINT): Define, if not already defined.
Richard M. Stallman <rms@gnu.org>
parents:
8827
diff
changeset
|
43 #endif |
48bcdcb9d191
(EMACS_INT, EMACS_UINT): Define, if not already defined.
Richard M. Stallman <rms@gnu.org>
parents:
8827
diff
changeset
|
44 #ifndef EMACS_UINT |
48bcdcb9d191
(EMACS_INT, EMACS_UINT): Define, if not already defined.
Richard M. Stallman <rms@gnu.org>
parents:
8827
diff
changeset
|
45 #define EMACS_UINT unsigned int |
48bcdcb9d191
(EMACS_INT, EMACS_UINT): Define, if not already defined.
Richard M. Stallman <rms@gnu.org>
parents:
8827
diff
changeset
|
46 #endif |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
47 #endif |
8835
48bcdcb9d191
(EMACS_INT, EMACS_UINT): Define, if not already defined.
Richard M. Stallman <rms@gnu.org>
parents:
8827
diff
changeset
|
48 |
28406
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
49 /* Extra internal type checking? */ |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
50 extern int suppress_checking; |
28430
f805ef5a2a03
* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents:
28417
diff
changeset
|
51 extern void die P_((const char *, const char *, int)); |
f805ef5a2a03
* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents:
28417
diff
changeset
|
52 |
28406
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
53 #ifdef ENABLE_CHECKING |
28430
f805ef5a2a03
* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents:
28417
diff
changeset
|
54 |
f805ef5a2a03
* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents:
28417
diff
changeset
|
55 #define CHECK(check,msg) ((check || suppress_checking \ |
f805ef5a2a03
* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents:
28417
diff
changeset
|
56 ? 0 \ |
f805ef5a2a03
* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents:
28417
diff
changeset
|
57 : die (msg, __FILE__, __LINE__)), \ |
f805ef5a2a03
* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents:
28417
diff
changeset
|
58 0) |
f805ef5a2a03
* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents:
28417
diff
changeset
|
59 |
f805ef5a2a03
* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents:
28417
diff
changeset
|
60 /* Let's get some compile-time checking too. */ |
f805ef5a2a03
* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents:
28417
diff
changeset
|
61 #undef NO_UNION_TYPE |
f805ef5a2a03
* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents:
28417
diff
changeset
|
62 |
28406
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
63 #else |
28430
f805ef5a2a03
* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents:
28417
diff
changeset
|
64 |
28406
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
65 /* Produce same side effects and result, but don't complain. */ |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
66 #define CHECK(check,msg) ((check),0) |
28430
f805ef5a2a03
* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents:
28417
diff
changeset
|
67 |
28406
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
68 #endif |
28430
f805ef5a2a03
* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents:
28417
diff
changeset
|
69 |
28406
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
70 /* Define an Emacs version of "assert", since some system ones are |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
71 flaky. */ |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
72 #if defined (__GNUC__) && __GNUC__ >= 2 && defined (__STDC__) |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
73 #define eassert(cond) CHECK(cond,"assertion failed: " #cond) |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
74 #else |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
75 #define eassert(cond) CHECK(cond,"assertion failed") |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
76 #endif |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
77 |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
78 /* Define the fundamental Lisp data structures. */ |
302 | 79 |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
80 /* This is the set of Lisp data types. */ |
302 | 81 |
82 enum Lisp_Type | |
83 { | |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
84 /* Integer. XINT (obj) is the integer value. */ |
302 | 85 Lisp_Int, |
86 | |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
87 /* Symbol. XSYMBOL (object) points to a struct Lisp_Symbol. */ |
302 | 88 Lisp_Symbol, |
89 | |
9435
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
90 /* Miscellaneous. XMISC (object) points to a union Lisp_Misc, |
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
91 whose first member indicates the subtype. */ |
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
92 Lisp_Misc, |
302 | 93 |
94 /* String. XSTRING (object) points to a struct Lisp_String. | |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
95 The length of the string, and its contents, are stored therein. */ |
302 | 96 Lisp_String, |
97 | |
10010
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
98 /* Vector of Lisp objects, or something resembling it. |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
99 XVECTOR (object) points to a struct Lisp_Vector, which contains |
10010
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
100 the size and contents. The size field also contains the type |
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
101 information, if it's not a real vector object. */ |
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
102 Lisp_Vectorlike, |
302 | 103 |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
104 /* Cons. XCONS (object) points to a struct Lisp_Cons. */ |
302 | 105 Lisp_Cons, |
106 | |
2780
cfe7659bbc05
* lisp.h (Lisp_Overlay): New tag.
Jim Blandy <jimb@redhat.com>
parents:
2728
diff
changeset
|
107 Lisp_Float, |
10246
c000ce65503e
(enum Lisp_Type): Add Max_Lisp_Type.
Richard M. Stallman <rms@gnu.org>
parents:
10032
diff
changeset
|
108 |
c000ce65503e
(enum Lisp_Type): Add Max_Lisp_Type.
Richard M. Stallman <rms@gnu.org>
parents:
10032
diff
changeset
|
109 /* This is not a type code. It is for range checking. */ |
10321
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
110 Lisp_Type_Limit |
302 | 111 }; |
112 | |
9435
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
113 /* This is the set of datatypes that share a common structure. |
10396
47938020b39d
Use large constants for Lisp_Misc_Type.
Karl Heuer <kwzh@gnu.org>
parents:
10387
diff
changeset
|
114 The first member of the structure is a type code from this set. |
47938020b39d
Use large constants for Lisp_Misc_Type.
Karl Heuer <kwzh@gnu.org>
parents:
10387
diff
changeset
|
115 The enum values are arbitrary, but we'll use large numbers to make it |
47938020b39d
Use large constants for Lisp_Misc_Type.
Karl Heuer <kwzh@gnu.org>
parents:
10387
diff
changeset
|
116 more likely that we'll spot the error if a random word in memory is |
47938020b39d
Use large constants for Lisp_Misc_Type.
Karl Heuer <kwzh@gnu.org>
parents:
10387
diff
changeset
|
117 mistakenly interpreted as a Lisp_Misc. */ |
9392
32186e807f02
(enum Lisp_Misc_Type): New type.
Karl Heuer <kwzh@gnu.org>
parents:
9370
diff
changeset
|
118 enum Lisp_Misc_Type |
32186e807f02
(enum Lisp_Misc_Type): New type.
Karl Heuer <kwzh@gnu.org>
parents:
9370
diff
changeset
|
119 { |
10396
47938020b39d
Use large constants for Lisp_Misc_Type.
Karl Heuer <kwzh@gnu.org>
parents:
10387
diff
changeset
|
120 Lisp_Misc_Free = 0x5eab, |
9435
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
121 Lisp_Misc_Marker, |
9462
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
122 Lisp_Misc_Intfwd, |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
123 Lisp_Misc_Boolfwd, |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
124 Lisp_Misc_Objfwd, |
9891
f4a53f86853d
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Buffer_Local_Value and
Karl Heuer <kwzh@gnu.org>
parents:
9885
diff
changeset
|
125 Lisp_Misc_Buffer_Objfwd, |
f4a53f86853d
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Buffer_Local_Value and
Karl Heuer <kwzh@gnu.org>
parents:
9885
diff
changeset
|
126 Lisp_Misc_Buffer_Local_Value, |
9924
594e838f4567
(enum Lisp_Misc_Type): Add new enumeration Lisp_Misc_Overlay.
Karl Heuer <kwzh@gnu.org>
parents:
9904
diff
changeset
|
127 Lisp_Misc_Some_Buffer_Local_Value, |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
128 Lisp_Misc_Overlay, |
11012
31d88266ed12
(struct KBOARD, MULTI_KBOARD, current_kboard, all_kboards,
Karl Heuer <kwzh@gnu.org>
parents:
10944
diff
changeset
|
129 Lisp_Misc_Kboard_Objfwd, |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
130 /* Currently floats are not a misc type, |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
131 but let's define this in case we want to change that. */ |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
132 Lisp_Misc_Float, |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
133 /* This is not a type code. It is for range checking. */ |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
134 Lisp_Misc_Limit |
9392
32186e807f02
(enum Lisp_Misc_Type): New type.
Karl Heuer <kwzh@gnu.org>
parents:
9370
diff
changeset
|
135 }; |
32186e807f02
(enum Lisp_Misc_Type): New type.
Karl Heuer <kwzh@gnu.org>
parents:
9370
diff
changeset
|
136 |
10321
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
137 /* These values are overridden by the m- file on some machines. */ |
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
138 #ifndef VALBITS |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
139 #define VALBITS (BITS_PER_EMACS_INT - 4) |
10321
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
140 #endif |
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
141 |
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
142 #ifndef GCTYPEBITS |
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
143 #define GCTYPEBITS 3 |
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
144 #endif |
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
145 |
26531
a52135fe746e
(enum gdb_lisp_params): Put in #if 0, since it doesn't
Gerd Moellmann <gerd@gnu.org>
parents:
26526
diff
changeset
|
146 #if 0 /* This doesn't work on some systems that don't allow enumerators |
a52135fe746e
(enum gdb_lisp_params): Put in #if 0, since it doesn't
Gerd Moellmann <gerd@gnu.org>
parents:
26526
diff
changeset
|
147 > INT_MAX, and it won't work for long long EMACS_INT. These |
a52135fe746e
(enum gdb_lisp_params): Put in #if 0, since it doesn't
Gerd Moellmann <gerd@gnu.org>
parents:
26526
diff
changeset
|
148 values are now found in emacs.c as EMACS_INT variables. */ |
a52135fe746e
(enum gdb_lisp_params): Put in #if 0, since it doesn't
Gerd Moellmann <gerd@gnu.org>
parents:
26526
diff
changeset
|
149 |
11873
6ac51c0face8
(gdb_lisp_params): New enum type.
Karl Heuer <kwzh@gnu.org>
parents:
11745
diff
changeset
|
150 /* Make these values available in GDB, which sees enums but not macros. */ |
6ac51c0face8
(gdb_lisp_params): New enum type.
Karl Heuer <kwzh@gnu.org>
parents:
11745
diff
changeset
|
151 |
6ac51c0face8
(gdb_lisp_params): New enum type.
Karl Heuer <kwzh@gnu.org>
parents:
11745
diff
changeset
|
152 enum gdb_lisp_params |
6ac51c0face8
(gdb_lisp_params): New enum type.
Karl Heuer <kwzh@gnu.org>
parents:
11745
diff
changeset
|
153 { |
6ac51c0face8
(gdb_lisp_params): New enum type.
Karl Heuer <kwzh@gnu.org>
parents:
11745
diff
changeset
|
154 gdb_valbits = VALBITS, |
6ac51c0face8
(gdb_lisp_params): New enum type.
Karl Heuer <kwzh@gnu.org>
parents:
11745
diff
changeset
|
155 gdb_gctypebits = GCTYPEBITS, |
13363
941c37982f37
(BITS_PER_SHORT, BITS_PER_INT, BITS_PER_LONG):
Karl Heuer <kwzh@gnu.org>
parents:
13357
diff
changeset
|
156 gdb_emacs_intbits = sizeof (EMACS_INT) * BITS_PER_CHAR, |
11873
6ac51c0face8
(gdb_lisp_params): New enum type.
Karl Heuer <kwzh@gnu.org>
parents:
11745
diff
changeset
|
157 #ifdef DATA_SEG_BITS |
6ac51c0face8
(gdb_lisp_params): New enum type.
Karl Heuer <kwzh@gnu.org>
parents:
11745
diff
changeset
|
158 gdb_data_seg_bits = DATA_SEG_BITS |
6ac51c0face8
(gdb_lisp_params): New enum type.
Karl Heuer <kwzh@gnu.org>
parents:
11745
diff
changeset
|
159 #else |
6ac51c0face8
(gdb_lisp_params): New enum type.
Karl Heuer <kwzh@gnu.org>
parents:
11745
diff
changeset
|
160 gdb_data_seg_bits = 0 |
6ac51c0face8
(gdb_lisp_params): New enum type.
Karl Heuer <kwzh@gnu.org>
parents:
11745
diff
changeset
|
161 #endif |
6ac51c0face8
(gdb_lisp_params): New enum type.
Karl Heuer <kwzh@gnu.org>
parents:
11745
diff
changeset
|
162 }; |
6ac51c0face8
(gdb_lisp_params): New enum type.
Karl Heuer <kwzh@gnu.org>
parents:
11745
diff
changeset
|
163 |
26531
a52135fe746e
(enum gdb_lisp_params): Put in #if 0, since it doesn't
Gerd Moellmann <gerd@gnu.org>
parents:
26526
diff
changeset
|
164 #endif /* 0 */ |
a52135fe746e
(enum gdb_lisp_params): Put in #if 0, since it doesn't
Gerd Moellmann <gerd@gnu.org>
parents:
26526
diff
changeset
|
165 |
302 | 166 #ifndef NO_UNION_TYPE |
167 | |
5241
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
168 #ifndef WORDS_BIG_ENDIAN |
302 | 169 |
170 /* Definition of Lisp_Object for little-endian machines. */ | |
171 | |
172 typedef | |
173 union Lisp_Object | |
174 { | |
175 /* Used for comparing two Lisp_Objects; | |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
176 also, positive integers can be accessed fast this way. */ |
302 | 177 int i; |
178 | |
179 struct | |
180 { | |
10321
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
181 int val: VALBITS; |
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
182 int type: GCTYPEBITS+1; |
302 | 183 } s; |
184 struct | |
185 { | |
10321
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
186 unsigned int val: VALBITS; |
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
187 int type: GCTYPEBITS+1; |
302 | 188 } u; |
189 struct | |
190 { | |
10321
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
191 unsigned int val: VALBITS; |
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
192 enum Lisp_Type type: GCTYPEBITS; |
302 | 193 /* The markbit is not really part of the value of a Lisp_Object, |
194 and is always zero except during garbage collection. */ | |
195 unsigned int markbit: 1; | |
196 } gu; | |
197 } | |
198 Lisp_Object; | |
199 | |
5241
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
200 #else /* If WORDS_BIG_ENDIAN */ |
302 | 201 |
202 typedef | |
203 union Lisp_Object | |
204 { | |
205 /* Used for comparing two Lisp_Objects; | |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
206 also, positive integers can be accessed fast this way. */ |
302 | 207 int i; |
208 | |
209 struct | |
210 { | |
10321
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
211 int type: GCTYPEBITS+1; |
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
212 int val: VALBITS; |
302 | 213 } s; |
214 struct | |
215 { | |
10321
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
216 int type: GCTYPEBITS+1; |
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
217 unsigned int val: VALBITS; |
302 | 218 } u; |
219 struct | |
220 { | |
221 /* The markbit is not really part of the value of a Lisp_Object, | |
222 and is always zero except during garbage collection. */ | |
223 unsigned int markbit: 1; | |
10321
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
224 enum Lisp_Type type: GCTYPEBITS; |
c91b1f4295a1
(enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
10316
diff
changeset
|
225 unsigned int val: VALBITS; |
302 | 226 } gu; |
227 } | |
228 Lisp_Object; | |
229 | |
5241
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
230 #endif /* WORDS_BIG_ENDIAN */ |
302 | 231 |
232 #endif /* NO_UNION_TYPE */ | |
233 | |
234 | |
18115
06ce39d8e93e
(VALMASK, GCTYPEMASK, MARKBIT, ARRAY_MARK_FLAG)
Richard M. Stallman <rms@gnu.org>
parents:
18111
diff
changeset
|
235 /* If union type is not wanted, define Lisp_Object as just a number. */ |
302 | 236 |
237 #ifdef NO_UNION_TYPE | |
8827
97bf951c0b98
(Lisp_Object): Use EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
8631
diff
changeset
|
238 #define Lisp_Object EMACS_INT |
18115
06ce39d8e93e
(VALMASK, GCTYPEMASK, MARKBIT, ARRAY_MARK_FLAG)
Richard M. Stallman <rms@gnu.org>
parents:
18111
diff
changeset
|
239 #endif /* NO_UNION_TYPE */ |
302 | 240 |
241 #ifndef VALMASK | |
8827
97bf951c0b98
(Lisp_Object): Use EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
8631
diff
changeset
|
242 #define VALMASK ((((EMACS_INT) 1)<<VALBITS) - 1) |
302 | 243 #endif |
8827
97bf951c0b98
(Lisp_Object): Use EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
8631
diff
changeset
|
244 #define GCTYPEMASK ((((EMACS_INT) 1)<<GCTYPEBITS) - 1) |
6216
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
245 |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
246 /* Two flags that are set during GC. On some machines, these flags |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
247 are defined differently by the m- file. */ |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
248 |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
249 /* This is set in the car of a cons and in the plist slot of a symbol |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
250 to indicate it is marked. Likewise in the plist slot of an interval, |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
251 the chain slot of a marker, the type slot of a float, and the name |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
252 slot of a buffer. |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
253 |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
254 In strings, this bit in the size field indicates that the string |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
255 is a "large" one, one which was separately malloc'd |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
256 rather than being part of a string block. */ |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
257 |
8827
97bf951c0b98
(Lisp_Object): Use EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
8631
diff
changeset
|
258 #ifndef MARKBIT |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
259 #define MARKBIT ((EMACS_INT) ((EMACS_UINT) 1 << (VALBITS + GCTYPEBITS))) |
8827
97bf951c0b98
(Lisp_Object): Use EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
8631
diff
changeset
|
260 #endif /*MARKBIT */ |
302 | 261 |
6216
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
262 /* In the size word of a vector, this bit means the vector has been marked. |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
263 In the size word of a large string, likewise. */ |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
264 |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
265 #ifndef ARRAY_MARK_FLAG |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
266 #define ARRAY_MARK_FLAG ((MARKBIT >> 1) & ~MARKBIT) |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
267 #endif /* no ARRAY_MARK_FLAG */ |
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
268 |
10010
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
269 /* In the size word of a struct Lisp_Vector, this bit means it's really |
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
270 some other vector-like object. */ |
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
271 #ifndef PSEUDOVECTOR_FLAG |
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
272 #define PSEUDOVECTOR_FLAG ((ARRAY_MARK_FLAG >> 1) & ~ARRAY_MARK_FLAG) |
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
273 #endif |
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
274 |
10322
c1c2ec3aeefa
Use consistent spelling in comments.
Karl Heuer <kwzh@gnu.org>
parents:
10321
diff
changeset
|
275 /* In a pseudovector, the size field actually contains a word with one |
10010
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
276 PSEUDOVECTOR_FLAG bit set, and exactly one of the following bits to |
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
277 indicate the actual type. */ |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
278 enum pvec_type |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
279 { |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
280 PVEC_NORMAL_VECTOR = 0, |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
281 PVEC_PROCESS = 0x200, |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
282 PVEC_FRAME = 0x400, |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
283 PVEC_COMPILED = 0x800, |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
284 PVEC_WINDOW = 0x1000, |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
285 PVEC_WINDOW_CONFIGURATION = 0x2000, |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
286 PVEC_SUBR = 0x4000, |
13149
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
287 PVEC_CHAR_TABLE = 0x8000, |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
288 PVEC_BOOL_VECTOR = 0x10000, |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
289 PVEC_BUFFER = 0x20000, |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
290 PVEC_HASH_TABLE = 0x40000, |
26569
d5f7eaff00db
Fix typo in previous change.
Gerd Moellmann <gerd@gnu.org>
parents:
26566
diff
changeset
|
291 PVEC_TYPE_MASK = 0x7fe00 |
d5f7eaff00db
Fix typo in previous change.
Gerd Moellmann <gerd@gnu.org>
parents:
26566
diff
changeset
|
292 |
d5f7eaff00db
Fix typo in previous change.
Gerd Moellmann <gerd@gnu.org>
parents:
26566
diff
changeset
|
293 #if 0 /* This is used to make the value of PSEUDOVECTOR_FLAG available to |
d5f7eaff00db
Fix typo in previous change.
Gerd Moellmann <gerd@gnu.org>
parents:
26566
diff
changeset
|
294 GDB. It doesn't work on OS Alpha. Moved to a variable in |
d5f7eaff00db
Fix typo in previous change.
Gerd Moellmann <gerd@gnu.org>
parents:
26566
diff
changeset
|
295 emacs.c. */ |
12246
4de2d34c04d3
(enum pvec_type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents:
12114
diff
changeset
|
296 PVEC_FLAG = PSEUDOVECTOR_FLAG |
26569
d5f7eaff00db
Fix typo in previous change.
Gerd Moellmann <gerd@gnu.org>
parents:
26566
diff
changeset
|
297 #endif |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
298 }; |
10010
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
299 |
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
300 /* For convenience, we also store the number of elements in these bits. */ |
13149
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
301 #define PSEUDOVECTOR_SIZE_MASK 0x1ff |
302 | 302 |
303 /* These macros extract various sorts of values from a Lisp_Object. | |
304 For example, if tem is a Lisp_Object whose type is Lisp_Cons, | |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
305 XCONS (tem) is the struct Lisp_Cons * pointing to the memory for that cons. */ |
302 | 306 |
307 #ifdef NO_UNION_TYPE | |
308 | |
309 /* One need to override this if there must be high bits set in data space | |
310 (doing the result of the below & ((1 << (GCTYPE + 1)) - 1) would work | |
311 on all machines, but would penalise machines which don't need it) | |
312 */ | |
313 #ifndef XTYPE | |
314 #define XTYPE(a) ((enum Lisp_Type) ((a) >> VALBITS)) | |
315 #endif | |
316 | |
317 #ifndef XSETTYPE | |
8827
97bf951c0b98
(Lisp_Object): Use EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
8631
diff
changeset
|
318 #define XSETTYPE(a, b) ((a) = XUINT (a) | ((EMACS_INT)(b) << VALBITS)) |
302 | 319 #endif |
320 | |
9292 | 321 /* For integers known to be positive, XFASTINT provides fast retrieval |
322 and XSETFASTINT provides fast storage. This takes advantage of the | |
323 fact that Lisp_Int is 0. */ | |
9328
4db4768d5857
(XFASTINT): Changed to non-lvalue syntax, to ensure that callers will use
Karl Heuer <kwzh@gnu.org>
parents:
9292
diff
changeset
|
324 #define XFASTINT(a) ((a) + 0) |
9292 | 325 #define XSETFASTINT(a, b) ((a) = (b)) |
302 | 326 |
327 /* Extract the value of a Lisp_Object as a signed integer. */ | |
328 | |
329 #ifndef XINT /* Some machines need to do this differently. */ | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
330 #define XINT(a) (((a) << (BITS_PER_EMACS_INT-VALBITS)) >> (BITS_PER_EMACS_INT-VALBITS)) |
302 | 331 #endif |
332 | |
333 /* Extract the value as an unsigned integer. This is a basis | |
334 for extracting it as a pointer to a structure in storage. */ | |
335 | |
336 #ifndef XUINT | |
337 #define XUINT(a) ((a) & VALMASK) | |
338 #endif | |
339 | |
340 #ifndef XPNTR | |
341 #ifdef HAVE_SHM | |
342 /* In this representation, data is found in two widely separated segments. */ | |
336 | 343 extern int pure_size; |
302 | 344 #define XPNTR(a) \ |
336 | 345 (XUINT (a) | (XUINT (a) > pure_size ? DATA_SEG_BITS : PURE_SEG_BITS)) |
302 | 346 #else /* not HAVE_SHM */ |
347 #ifdef DATA_SEG_BITS | |
348 /* This case is used for the rt-pc. | |
349 In the diffs I was given, it checked for ptr = 0 | |
350 and did not adjust it in that case. | |
351 But I don't think that zero should ever be found | |
352 in a Lisp object whose data type says it points to something. */ | |
353 #define XPNTR(a) (XUINT (a) | DATA_SEG_BITS) | |
354 #else | |
355 #define XPNTR(a) XUINT (a) | |
356 #endif | |
357 #endif /* not HAVE_SHM */ | |
358 #endif /* no XPNTR */ | |
359 | |
360 #ifndef XSET | |
361 #define XSET(var, type, ptr) \ | |
8827
97bf951c0b98
(Lisp_Object): Use EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
8631
diff
changeset
|
362 ((var) = ((EMACS_INT)(type) << VALBITS) + ((EMACS_INT) (ptr) & VALMASK)) |
302 | 363 #endif |
364 | |
14306
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
365 /* Convert a C integer into a Lisp_Object integer. */ |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
366 |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
367 #define make_number(N) \ |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
368 ((((EMACS_INT) (N)) & VALMASK) | ((EMACS_INT) Lisp_Int) << VALBITS) |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
369 |
302 | 370 /* During garbage collection, XGCTYPE must be used for extracting types |
371 so that the mark bit is ignored. XMARKBIT accesses the markbit. | |
372 Markbits are used only in particular slots of particular structure types. | |
373 Other markbits are always zero. | |
374 Outside of garbage collection, all mark bits are always zero. */ | |
375 | |
376 #ifndef XGCTYPE | |
377 #define XGCTYPE(a) ((enum Lisp_Type) (((a) >> VALBITS) & GCTYPEMASK)) | |
378 #endif | |
379 | |
16133 | 380 #if VALBITS + GCTYPEBITS == BITS_PER_EMACS_INT - 1 |
302 | 381 /* Make XMARKBIT faster if mark bit is sign bit. */ |
382 #ifndef XMARKBIT | |
383 #define XMARKBIT(a) ((a) < 0) | |
384 #endif | |
385 #endif /* markbit is sign bit */ | |
386 | |
387 #ifndef XMARKBIT | |
388 #define XMARKBIT(a) ((a) & MARKBIT) | |
389 #endif | |
390 | |
391 #ifndef XSETMARKBIT | |
392 #define XSETMARKBIT(a,b) ((a) = ((a) & ~MARKBIT) | ((b) ? MARKBIT : 0)) | |
393 #endif | |
394 | |
395 #ifndef XMARK | |
396 #define XMARK(a) ((a) |= MARKBIT) | |
397 #endif | |
398 | |
399 #ifndef XUNMARK | |
400 #define XUNMARK(a) ((a) &= ~MARKBIT) | |
401 #endif | |
402 | |
403 #endif /* NO_UNION_TYPE */ | |
404 | |
405 #ifndef NO_UNION_TYPE | |
406 | |
407 #define XTYPE(a) ((enum Lisp_Type) (a).u.type) | |
408 #define XSETTYPE(a, b) ((a).u.type = (char) (b)) | |
409 | |
9292 | 410 /* For integers known to be positive, XFASTINT provides fast retrieval |
411 and XSETFASTINT provides fast storage. This takes advantage of the | |
412 fact that Lisp_Int is 0. */ | |
9328
4db4768d5857
(XFASTINT): Changed to non-lvalue syntax, to ensure that callers will use
Karl Heuer <kwzh@gnu.org>
parents:
9292
diff
changeset
|
413 #define XFASTINT(a) ((a).i + 0) |
9292 | 414 #define XSETFASTINT(a, b) ((a).i = (b)) |
302 | 415 |
416 #ifdef EXPLICIT_SIGN_EXTEND | |
417 /* Make sure we sign-extend; compilers have been known to fail to do so. */ | |
13363
941c37982f37
(BITS_PER_SHORT, BITS_PER_INT, BITS_PER_LONG):
Karl Heuer <kwzh@gnu.org>
parents:
13357
diff
changeset
|
418 #define XINT(a) (((a).i << (BITS_PER_INT-VALBITS)) >> (BITS_PER_INT-VALBITS)) |
302 | 419 #else |
420 #define XINT(a) ((a).s.val) | |
421 #endif /* EXPLICIT_SIGN_EXTEND */ | |
422 | |
423 #define XUINT(a) ((a).u.val) | |
424 #define XPNTR(a) ((a).u.val) | |
425 | |
426 #define XSET(var, vartype, ptr) \ | |
28508
a68042252425
* lisp.h (make_number) [!NO_UNION_TYPE && __GNUC__ >= 2 && __OPTIMIZE__]:
Ken Raeburn <raeburn@raeburn.org>
parents:
28480
diff
changeset
|
427 (((var).s.val = ((int) (ptr))), ((var).s.type = ((char) (vartype)))) |
a68042252425
* lisp.h (make_number) [!NO_UNION_TYPE && __GNUC__ >= 2 && __OPTIMIZE__]:
Ken Raeburn <raeburn@raeburn.org>
parents:
28480
diff
changeset
|
428 |
a68042252425
* lisp.h (make_number) [!NO_UNION_TYPE && __GNUC__ >= 2 && __OPTIMIZE__]:
Ken Raeburn <raeburn@raeburn.org>
parents:
28480
diff
changeset
|
429 #if __GNUC__ >= 2 && defined (__OPTIMIZE__) |
a68042252425
* lisp.h (make_number) [!NO_UNION_TYPE && __GNUC__ >= 2 && __OPTIMIZE__]:
Ken Raeburn <raeburn@raeburn.org>
parents:
28480
diff
changeset
|
430 #define make_number(N) \ |
a68042252425
* lisp.h (make_number) [!NO_UNION_TYPE && __GNUC__ >= 2 && __OPTIMIZE__]:
Ken Raeburn <raeburn@raeburn.org>
parents:
28480
diff
changeset
|
431 (__extension__ ({ Lisp_Object _l; _l.s.val = (N); _l.s.type = Lisp_Int; _l; })) |
a68042252425
* lisp.h (make_number) [!NO_UNION_TYPE && __GNUC__ >= 2 && __OPTIMIZE__]:
Ken Raeburn <raeburn@raeburn.org>
parents:
28480
diff
changeset
|
432 #else |
17404
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
433 extern Lisp_Object make_number (); |
28508
a68042252425
* lisp.h (make_number) [!NO_UNION_TYPE && __GNUC__ >= 2 && __OPTIMIZE__]:
Ken Raeburn <raeburn@raeburn.org>
parents:
28480
diff
changeset
|
434 #endif |
17404
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
435 |
302 | 436 /* During garbage collection, XGCTYPE must be used for extracting types |
437 so that the mark bit is ignored. XMARKBIT access the markbit. | |
438 Markbits are used only in particular slots of particular structure types. | |
439 Other markbits are always zero. | |
440 Outside of garbage collection, all mark bits are always zero. */ | |
441 | |
442 #define XGCTYPE(a) ((a).gu.type) | |
443 #define XMARKBIT(a) ((a).gu.markbit) | |
444 #define XSETMARKBIT(a,b) (XMARKBIT(a) = (b)) | |
445 #define XMARK(a) (XMARKBIT(a) = 1) | |
446 #define XUNMARK(a) (XMARKBIT(a) = 0) | |
447 | |
448 #endif /* NO_UNION_TYPE */ | |
449 | |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
450 /* Extract a value or address from a Lisp_Object. */ |
302 | 451 |
28417
4b675266db04
* lisp.h (XCONS, XSTRING, XSYMBOL, XFLOAT, XPROCESS, XWINDOW, XSUBR, XBUFFER):
Ken Raeburn <raeburn@raeburn.org>
parents:
28414
diff
changeset
|
452 #define XCONS(a) (eassert (GC_CONSP(a)),(struct Lisp_Cons *) XPNTR(a)) |
302 | 453 #define XVECTOR(a) ((struct Lisp_Vector *) XPNTR(a)) |
28417
4b675266db04
* lisp.h (XCONS, XSTRING, XSYMBOL, XFLOAT, XPROCESS, XWINDOW, XSUBR, XBUFFER):
Ken Raeburn <raeburn@raeburn.org>
parents:
28414
diff
changeset
|
454 #define XSTRING(a) (eassert (GC_STRINGP(a)),(struct Lisp_String *) XPNTR(a)) |
4b675266db04
* lisp.h (XCONS, XSTRING, XSYMBOL, XFLOAT, XPROCESS, XWINDOW, XSUBR, XBUFFER):
Ken Raeburn <raeburn@raeburn.org>
parents:
28414
diff
changeset
|
455 #define XSYMBOL(a) (eassert (GC_SYMBOLP(a)),(struct Lisp_Symbol *) XPNTR(a)) |
4b675266db04
* lisp.h (XCONS, XSTRING, XSYMBOL, XFLOAT, XPROCESS, XWINDOW, XSUBR, XBUFFER):
Ken Raeburn <raeburn@raeburn.org>
parents:
28414
diff
changeset
|
456 #define XFLOAT(a) (eassert (GC_FLOATP(a)),(struct Lisp_Float *) XPNTR(a)) |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
457 |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
458 /* Misc types. */ |
9435
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
459 #define XMISC(a) ((union Lisp_Misc *) XPNTR(a)) |
11335
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
460 #define XMISCTYPE(a) (XMARKER (a)->type) |
9435
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
461 #define XMARKER(a) (&(XMISC(a)->u_marker)) |
9462
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
462 #define XINTFWD(a) (&(XMISC(a)->u_intfwd)) |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
463 #define XBOOLFWD(a) (&(XMISC(a)->u_boolfwd)) |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
464 #define XOBJFWD(a) (&(XMISC(a)->u_objfwd)) |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
465 #define XBUFFER_OBJFWD(a) (&(XMISC(a)->u_buffer_objfwd)) |
9891
f4a53f86853d
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Buffer_Local_Value and
Karl Heuer <kwzh@gnu.org>
parents:
9885
diff
changeset
|
466 #define XBUFFER_LOCAL_VALUE(a) (&(XMISC(a)->u_buffer_local_value)) |
9924
594e838f4567
(enum Lisp_Misc_Type): Add new enumeration Lisp_Misc_Overlay.
Karl Heuer <kwzh@gnu.org>
parents:
9904
diff
changeset
|
467 #define XOVERLAY(a) (&(XMISC(a)->u_overlay)) |
11012
31d88266ed12
(struct KBOARD, MULTI_KBOARD, current_kboard, all_kboards,
Karl Heuer <kwzh@gnu.org>
parents:
10944
diff
changeset
|
468 #define XKBOARD_OBJFWD(a) (&(XMISC(a)->u_kboard_objfwd)) |
302 | 469 |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
470 /* Pseudovector types. */ |
28417
4b675266db04
* lisp.h (XCONS, XSTRING, XSYMBOL, XFLOAT, XPROCESS, XWINDOW, XSUBR, XBUFFER):
Ken Raeburn <raeburn@raeburn.org>
parents:
28414
diff
changeset
|
471 #define XPROCESS(a) (eassert (GC_PROCESSP(a)),(struct Lisp_Process *) XPNTR(a)) |
4b675266db04
* lisp.h (XCONS, XSTRING, XSYMBOL, XFLOAT, XPROCESS, XWINDOW, XSUBR, XBUFFER):
Ken Raeburn <raeburn@raeburn.org>
parents:
28414
diff
changeset
|
472 #define XWINDOW(a) (eassert (GC_WINDOWP(a)),(struct window *) XPNTR(a)) |
4b675266db04
* lisp.h (XCONS, XSTRING, XSYMBOL, XFLOAT, XPROCESS, XWINDOW, XSUBR, XBUFFER):
Ken Raeburn <raeburn@raeburn.org>
parents:
28414
diff
changeset
|
473 #define XSUBR(a) (eassert (GC_SUBRP(a)),(struct Lisp_Subr *) XPNTR(a)) |
4b675266db04
* lisp.h (XCONS, XSTRING, XSYMBOL, XFLOAT, XPROCESS, XWINDOW, XSUBR, XBUFFER):
Ken Raeburn <raeburn@raeburn.org>
parents:
28414
diff
changeset
|
474 #define XBUFFER(a) (eassert (GC_BUFFERP(a)),(struct buffer *) XPNTR(a)) |
13149
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
475 #define XCHAR_TABLE(a) ((struct Lisp_Char_Table *) XPNTR(a)) |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
476 #define XBOOL_VECTOR(a) ((struct Lisp_Bool_Vector *) XPNTR(a)) |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
477 |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
478 |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
479 /* Construct a Lisp_Object from a value or address. */ |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
480 |
9287
781ada39b15c
(XSETINT, XSETCONS, XSETBUFFER, XSETVECTOR, XSETSUBR, XSETSTRING, XSETSYMBOL,
Karl Heuer <kwzh@gnu.org>
parents:
9150
diff
changeset
|
481 #define XSETINT(a, b) XSET (a, Lisp_Int, b) |
781ada39b15c
(XSETINT, XSETCONS, XSETBUFFER, XSETVECTOR, XSETSUBR, XSETSTRING, XSETSYMBOL,
Karl Heuer <kwzh@gnu.org>
parents:
9150
diff
changeset
|
482 #define XSETCONS(a, b) XSET (a, Lisp_Cons, b) |
10010
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
483 #define XSETVECTOR(a, b) XSET (a, Lisp_Vectorlike, b) |
9287
781ada39b15c
(XSETINT, XSETCONS, XSETBUFFER, XSETVECTOR, XSETSUBR, XSETSTRING, XSETSYMBOL,
Karl Heuer <kwzh@gnu.org>
parents:
9150
diff
changeset
|
484 #define XSETSTRING(a, b) XSET (a, Lisp_String, b) |
781ada39b15c
(XSETINT, XSETCONS, XSETBUFFER, XSETVECTOR, XSETSUBR, XSETSTRING, XSETSYMBOL,
Karl Heuer <kwzh@gnu.org>
parents:
9150
diff
changeset
|
485 #define XSETSYMBOL(a, b) XSET (a, Lisp_Symbol, b) |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
486 #define XSETFLOAT(a, b) XSET (a, Lisp_Float, b) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
487 |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
488 /* Misc types. */ |
9435
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
489 #define XSETMISC(a, b) XSET (a, Lisp_Misc, b) |
11335
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
490 #define XSETMARKER(a, b) (XSETMISC (a, b), XMISCTYPE (a) = Lisp_Misc_Marker) |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
491 |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
492 /* Pseudovector types. */ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
493 #define XSETPSEUDOVECTOR(a, b, code) \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
494 (XSETVECTOR (a, b), XVECTOR (a)->size |= PSEUDOVECTOR_FLAG | (code)) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
495 #define XSETWINDOW_CONFIGURATION(a, b) \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
496 (XSETPSEUDOVECTOR (a, b, PVEC_WINDOW_CONFIGURATION)) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
497 #define XSETPROCESS(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_PROCESS)) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
498 #define XSETWINDOW(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_WINDOW)) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
499 #define XSETSUBR(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_SUBR)) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
500 #define XSETCOMPILED(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_COMPILED)) |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
501 #define XSETBUFFER(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_BUFFER)) |
13149
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
502 #define XSETCHAR_TABLE(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_CHAR_TABLE)) |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
503 #define XSETBOOL_VECTOR(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_BOOL_VECTOR)) |
302 | 504 |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
505 /* Basic data type for use of intervals. See the macros in intervals.h. */ |
1290
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
506 |
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
507 struct interval |
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
508 { |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
509 /* The first group of entries deal with the tree structure. */ |
1290
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
510 |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
511 unsigned int total_length; /* Length of myself and both children. */ |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
512 unsigned int position; /* Cache of interval's character position. */ |
21038
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
513 /* This field is usually updated |
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
514 simultaneously with an interval |
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
515 traversal, there is no guaranty |
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
516 that it is valid for a random |
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
517 interval. */ |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
518 struct interval *left; /* Intervals which precede me. */ |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
519 struct interval *right; /* Intervals which succeed me. */ |
4139
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
520 |
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
521 /* Parent in the tree, or the Lisp_Object containing this interval tree. |
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
522 |
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
523 The mark bit on the root interval of an interval tree says |
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
524 whether we have started (and possibly finished) marking the |
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
525 tree. If GC comes across an interval tree whose root's parent |
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
526 field has its markbit set, it leaves the tree alone. |
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
527 |
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
528 You'd think we could store this information in the parent object |
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
529 somewhere (after all, that should be visited once and then |
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
530 ignored too, right?), but strings are GC'd strangely. */ |
28406
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
531 union |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
532 { |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
533 struct interval *interval; |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
534 Lisp_Object obj; |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
535 } up; |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
536 unsigned int up_obj : 1; |
1290
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
537 |
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
538 /* The remaining components are `properties' of the interval. |
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
539 The first four are duplicates for things which can be on the list, |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
540 for purposes of speed. */ |
1290
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
541 |
28406
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
542 unsigned int write_protect : 1; /* Non-zero means can't modify. */ |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
543 unsigned int visible : 1; /* Zero means don't display. */ |
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
544 unsigned int front_sticky : 1; /* Non-zero means text inserted just |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
545 before this interval goes into it. */ |
28406
451721e784a8
Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents:
28141
diff
changeset
|
546 unsigned int rear_sticky : 1; /* Likewise for just after it. */ |
1290
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
547 |
4139
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
548 /* Properties of this interval. |
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
549 The mark bit on this field says whether this particular interval |
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
550 tree node has been visited. Since intervals should never be |
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
551 shared, GC aborts if it seems to have visited an interval twice. */ |
0b32ee899a3a
Consistently use the mark bit of the root interval's parent field
Jim Blandy <jimb@redhat.com>
parents:
4079
diff
changeset
|
552 Lisp_Object plist; |
1290
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
553 }; |
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
554 |
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
555 typedef struct interval *INTERVAL; |
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
556 |
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
557 /* Complain if object is not string or buffer type */ |
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
558 #define CHECK_STRING_OR_BUFFER(x, i) \ |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
559 { if (!STRINGP ((x)) && !BUFFERP ((x))) \ |
1290
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
560 x = wrong_type_argument (Qbuffer_or_string_p, (x)); } |
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
561 |
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
562 /* Macro used to conditionally compile intervals into certain data |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
563 structures. See, e.g., struct Lisp_String below. */ |
1290
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
564 #define DECLARE_INTERVALS INTERVAL intervals; |
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
565 |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3539
diff
changeset
|
566 /* Macro used to conditionally compile interval initialization into |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
567 certain code. See, e.g., alloc.c. */ |
1290
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
568 #define INITIALIZE_INTERVAL(ptr,val) ptr->intervals = val |
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
569 |
9b0ddca4773b
* lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents:
1277
diff
changeset
|
570 |
302 | 571 /* In a cons, the markbit of the car is the gc mark bit */ |
572 | |
573 struct Lisp_Cons | |
574 { | |
25421
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
575 /* Please do not use the names of these elements in code other |
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
576 than the core lisp implementation. Use XCAR and XCDR below. */ |
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
577 #ifdef HIDE_LISP_IMPLEMENTATION |
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
578 Lisp_Object car_, cdr_; |
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
579 #else |
302 | 580 Lisp_Object car, cdr; |
25421
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
581 #endif |
302 | 582 }; |
583 | |
14306
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
584 /* Take the car or cdr of something known to be a cons cell. */ |
25421
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
585 #ifdef HIDE_LISP_IMPLEMENTATION |
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
586 #define XCAR(c) (XCONS ((c))->car_) |
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
587 #define XCDR(c) (XCONS ((c))->cdr_) |
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
588 #else |
14306
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
589 #define XCAR(c) (XCONS ((c))->car) |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
590 #define XCDR(c) (XCONS ((c))->cdr) |
25421
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
591 #endif |
14306
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
592 |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
593 /* Take the car or cdr of something whose type is not known. */ |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
594 #define CAR(c) \ |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
595 (CONSP ((c)) ? XCAR ((c)) \ |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
596 : NILP ((c)) ? Qnil \ |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
597 : wrong_type_argument (Qlistp, (c))) |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
598 |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
599 #define CDR(c) \ |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
600 (CONSP ((c)) ? XCDR ((c)) \ |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
601 : NILP ((c)) ? Qnil \ |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
602 : wrong_type_argument (Qlistp, (c))) |
b30429f0b599
(XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
14186
diff
changeset
|
603 |
21276 | 604 /* Nonzero if STR is a multibyte string. */ |
605 #define STRING_MULTIBYTE(STR) \ | |
606 (XSTRING (STR)->size_byte >= 0) | |
607 | |
608 /* Return the length in bytes of STR. */ | |
609 #define STRING_BYTES(STR) \ | |
610 ((STR)->size_byte < 0 ? (STR)->size : (STR)->size_byte) | |
611 | |
612 /* Set the length in bytes of STR. */ | |
613 #define SET_STRING_BYTES(STR, SIZE) ((STR)->size_byte = (SIZE)) | |
614 | |
302 | 615 /* In a string or vector, the sign bit of the `size' is the gc mark bit */ |
616 | |
617 struct Lisp_String | |
618 { | |
8827
97bf951c0b98
(Lisp_Object): Use EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
8631
diff
changeset
|
619 EMACS_INT size; |
20625
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
620 EMACS_INT size_byte; |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
621 DECLARE_INTERVALS /* `data' field must be last. */ |
27141
d7b1de135a40
Add prototype for allocate_string_data.
Gerd Moellmann <gerd@gnu.org>
parents:
27078
diff
changeset
|
622 unsigned char *data; |
302 | 623 }; |
624 | |
9971 | 625 /* If a struct is made to look like a vector, this macro returns the length |
14473
7c93a4ce40b0
(VECSIZE): Round up when dividing.
Richard M. Stallman <rms@gnu.org>
parents:
14306
diff
changeset
|
626 of the shortest vector that would hold that struct. */ |
7c93a4ce40b0
(VECSIZE): Round up when dividing.
Richard M. Stallman <rms@gnu.org>
parents:
14306
diff
changeset
|
627 #define VECSIZE(type) ((sizeof (type) - (sizeof (struct Lisp_Vector) \ |
7c93a4ce40b0
(VECSIZE): Round up when dividing.
Richard M. Stallman <rms@gnu.org>
parents:
14306
diff
changeset
|
628 - sizeof (Lisp_Object)) \ |
7c93a4ce40b0
(VECSIZE): Round up when dividing.
Richard M. Stallman <rms@gnu.org>
parents:
14306
diff
changeset
|
629 + sizeof(Lisp_Object) - 1) /* round up */ \ |
9971 | 630 / sizeof (Lisp_Object)) |
631 | |
302 | 632 struct Lisp_Vector |
633 { | |
8827
97bf951c0b98
(Lisp_Object): Use EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents:
8631
diff
changeset
|
634 EMACS_INT size; |
302 | 635 struct Lisp_Vector *next; |
636 Lisp_Object contents[1]; | |
637 }; | |
638 | |
17326
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
639 /* A char table is a kind of vectorlike, with contents are like a |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
640 vector but with a few other slots. For some purposes, it makes |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
641 sense to handle a chartable with type struct Lisp_Vector. An |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
642 element of a char table can be any Lisp objects, but if it is a sub |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
643 char-table, we treat it a table that contains information of a |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
644 group of characters of the same charsets or a specific character of |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
645 a charset. A sub char-table has the same structure as a char table |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
646 except for that the former omits several slots at the tail. A sub |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
647 char table appears only in an element of a char table, and there's |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
648 no way to access it directly from Emacs Lisp program. */ |
17404
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
649 |
17188
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
650 /* This is the number of slots that apply to characters or character |
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
651 sets. The first 128 are for ASCII, the next 128 are for 8-bit |
17326
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
652 European characters, and the last 128 are for multibyte characters. |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
653 The first 256 are indexed by the code itself, but the last 128 are |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
654 indexed by (charset-id + 128). */ |
17188
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
655 #define CHAR_TABLE_ORDINARY_SLOTS 384 |
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
656 |
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
657 /* This is the number of slots that apply to characters of ASCII and |
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
658 8-bit Europeans only. */ |
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
659 #define CHAR_TABLE_SINGLE_BYTE_SLOTS 256 |
13149
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
660 |
17326
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
661 /* This is the number of slots that every char table must have. This |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
662 counts the ordinary slots and the top, defalt, parent, and purpose |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
663 slots. */ |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
664 #define CHAR_TABLE_STANDARD_SLOTS (CHAR_TABLE_ORDINARY_SLOTS + 4) |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
665 |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
666 /* This is the number of slots that apply to position-code-1 and |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
667 position-code-2 of a multibyte character at the 2nd and 3rd level |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
668 sub char tables respectively. */ |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
669 #define SUB_CHAR_TABLE_ORDINARY_SLOTS 128 |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
670 |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
671 /* This is the number of slots that every sub char table must have. |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
672 This counts the ordinary slots and the top and defalt slot. */ |
17404
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
673 #define SUB_CHAR_TABLE_STANDARD_SLOTS (SUB_CHAR_TABLE_ORDINARY_SLOTS + 2) |
13149
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
674 |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
675 /* Return the number of "extra" slots in the char table CT. */ |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
676 |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
677 #define CHAR_TABLE_EXTRA_SLOTS(CT) \ |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
678 (((CT)->size & PSEUDOVECTOR_SIZE_MASK) - CHAR_TABLE_STANDARD_SLOTS) |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
679 |
17188
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
680 /* Almost equivalent to Faref (CT, IDX) with optimization for ASCII |
18006
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
681 and 8-bit Europeans characters. For these characters, do not check |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
682 validity of CT. Do not follow parent. */ |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
683 #define CHAR_TABLE_REF(CT, IDX) \ |
23721
e593fb9c68c3
(CHAR_TABLE_REF): Check if IDX is negative or not.
Kenichi Handa <handa@m17n.org>
parents:
23429
diff
changeset
|
684 ((IDX) >= 0 && (IDX) < CHAR_TABLE_SINGLE_BYTE_SLOTS \ |
18613
614b916ff5bf
Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents:
18115
diff
changeset
|
685 ? (!NILP (XCHAR_TABLE (CT)->contents[IDX]) \ |
614b916ff5bf
Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents:
18115
diff
changeset
|
686 ? XCHAR_TABLE (CT)->contents[IDX] \ |
18006
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
687 : XCHAR_TABLE (CT)->defalt) \ |
18613
614b916ff5bf
Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents:
18115
diff
changeset
|
688 : Faref (CT, make_number (IDX))) |
17188
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
689 |
22239
0a666cecb85d
(CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
22190
diff
changeset
|
690 /* Almost equivalent to Faref (CT, IDX) with optimization for ASCII |
0a666cecb85d
(CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
22190
diff
changeset
|
691 and 8-bit Europeans characters. However, if the result is nil, |
0a666cecb85d
(CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
22190
diff
changeset
|
692 return IDX. |
0a666cecb85d
(CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
22190
diff
changeset
|
693 |
0a666cecb85d
(CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
22190
diff
changeset
|
694 For these characters, do not check validity of CT |
0a666cecb85d
(CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
22190
diff
changeset
|
695 and do not follow parent. */ |
0a666cecb85d
(CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
22190
diff
changeset
|
696 #define CHAR_TABLE_TRANSLATE(CT, IDX) \ |
0a666cecb85d
(CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
22190
diff
changeset
|
697 ((IDX) < CHAR_TABLE_SINGLE_BYTE_SLOTS \ |
0a666cecb85d
(CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
22190
diff
changeset
|
698 ? (!NILP (XCHAR_TABLE (CT)->contents[IDX]) \ |
0a666cecb85d
(CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
22190
diff
changeset
|
699 ? XINT (XCHAR_TABLE (CT)->contents[IDX]) \ |
0a666cecb85d
(CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
22190
diff
changeset
|
700 : IDX) \ |
0a666cecb85d
(CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
22190
diff
changeset
|
701 : char_table_translate (CT, IDX)) |
0a666cecb85d
(CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
22190
diff
changeset
|
702 |
17188
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
703 /* Equivalent to Faset (CT, IDX, VAL) with optimization for ASCII and |
18006
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
704 8-bit Europeans characters. Do not check validity of CT. */ |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
705 #define CHAR_TABLE_SET(CT, IDX, VAL) \ |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
706 do { \ |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
707 if (XFASTINT (IDX) < CHAR_TABLE_SINGLE_BYTE_SLOTS) \ |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
708 XCHAR_TABLE (CT)->contents[XFASTINT (IDX)] = VAL; \ |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
709 else \ |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
710 Faset (CT, IDX, VAL); \ |
17188
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
711 } while (0) |
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
712 |
13149
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
713 struct Lisp_Char_Table |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
714 { |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
715 /* This is the vector's size field, which also holds the |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
716 pseudovector type information. It holds the size, too. |
17326
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
717 The size counts the top, defalt, purpose, and parent slots. |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
718 The last three are not counted if this is a sub char table. */ |
13149
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
719 EMACS_INT size; |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
720 struct Lisp_Vector *next; |
17326
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
721 /* This holds a flag to tell if this is a top level char table (t) |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
722 or a sub char table (nil). */ |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
723 Lisp_Object top; |
13149
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
724 /* This holds a default value, |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
725 which is used whenever the value for a specific character is nil. */ |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
726 Lisp_Object defalt; |
17326
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
727 /* This holds an actual value of each element. A sub char table |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
728 has only SUB_CHAR_TABLE_ORDINARY_SLOTS number of elements. */ |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
729 Lisp_Object contents[CHAR_TABLE_ORDINARY_SLOTS]; |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
730 |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
731 /* A sub char table doesn't has the following slots. */ |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
732 |
13149
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
733 /* This points to another char table, which we inherit from |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
734 when the value for a specific character is nil. |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
735 The `defalt' slot takes precedence over this. */ |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
736 Lisp_Object parent; |
13202
b307cd5c259f
(struct Lisp_Char_Table): New slot `purpose'.
Richard M. Stallman <rms@gnu.org>
parents:
13149
diff
changeset
|
737 /* This should be a symbol which says what kind of use |
b307cd5c259f
(struct Lisp_Char_Table): New slot `purpose'.
Richard M. Stallman <rms@gnu.org>
parents:
13149
diff
changeset
|
738 this char-table is meant for. |
b307cd5c259f
(struct Lisp_Char_Table): New slot `purpose'.
Richard M. Stallman <rms@gnu.org>
parents:
13149
diff
changeset
|
739 Typically now the values can be `syntax-table' and `display-table'. */ |
b307cd5c259f
(struct Lisp_Char_Table): New slot `purpose'.
Richard M. Stallman <rms@gnu.org>
parents:
13149
diff
changeset
|
740 Lisp_Object purpose; |
13149
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
741 /* These hold additional data. */ |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
742 Lisp_Object extras[1]; |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
743 }; |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
744 |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
745 /* A boolvector is a kind of vectorlike, with contents are like a string. */ |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
746 struct Lisp_Bool_Vector |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
747 { |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
748 /* This is the vector's size field. It doesn't have the real size, |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
749 just the subtype information. */ |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
750 EMACS_INT vector_size; |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
751 struct Lisp_Vector *next; |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
752 /* This is the size in bits. */ |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
753 EMACS_INT size; |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
754 /* This contains the actual bits, packed into bytes. */ |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
755 unsigned char data[1]; |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
756 }; |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
757 |
302 | 758 /* In a symbol, the markbit of the plist is used as the gc mark bit */ |
759 | |
760 struct Lisp_Symbol | |
761 { | |
762 struct Lisp_String *name; | |
763 Lisp_Object value; | |
764 Lisp_Object function; | |
765 Lisp_Object plist; | |
16178
58556dbdd03d
(struct Lisp_Symbol): New field `obarray'.
Richard M. Stallman <rms@gnu.org>
parents:
16133
diff
changeset
|
766 Lisp_Object obarray; |
302 | 767 struct Lisp_Symbol *next; /* -> next symbol in this obarray bucket */ |
768 }; | |
769 | |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
770 /* This structure describes a built-in function. |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
771 It is generated by the DEFUN macro only. |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
772 defsubr makes it into a Lisp object. |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
773 |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
774 This type is treated in most respects as a pseudovector, |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
775 but since we never dynamically allocate or free them, |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
776 we don't need a next-vector field. */ |
17404
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
777 |
302 | 778 struct Lisp_Subr |
779 { | |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
780 EMACS_INT size; |
302 | 781 Lisp_Object (*function) (); |
782 short min_args, max_args; | |
783 char *symbol_name; | |
784 char *prompt; | |
785 char *doc; | |
786 }; | |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
787 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
788 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
789 /*********************************************************************** |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
790 Hash Tables |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
791 ***********************************************************************/ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
792 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
793 /* The structure of a Lisp hash table. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
794 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
795 struct Lisp_Hash_Table |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
796 { |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
797 /* Vector fields. The hash table code doesn't refer to these. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
798 EMACS_INT size; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
799 struct Lisp_Vector *vec_next; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
800 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
801 /* Function used to compare keys. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
802 Lisp_Object test; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
803 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
804 /* Nil if table is non-weak. Otherwise a symbol describing the |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
805 weakness of the table. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
806 Lisp_Object weak; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
807 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
808 /* When the table is resized, and this is an integer, compute the |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
809 new size by adding this to the old size. If a float, compute the |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
810 new size by multiplying the old size with this factor. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
811 Lisp_Object rehash_size; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
812 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
813 /* Resize hash table when number of entries/ table size is >= this |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
814 ratio, a float. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
815 Lisp_Object rehash_threshold; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
816 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
817 /* Number of key/value entries in the table. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
818 Lisp_Object count; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
819 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
820 /* Vector of keys and values. The key of item I is found at index |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
821 2 * I, the value is found at index 2 * I + 1. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
822 Lisp_Object key_and_value; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
823 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
824 /* Vector of hash codes.. If hash[I] is nil, this means that that |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
825 entry I is unused. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
826 Lisp_Object hash; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
827 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
828 /* Vector used to chain entries. If entry I is free, next[I] is the |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
829 entry number of the next free item. If entry I is non-free, |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
830 next[I] is the index of the next entry in the collision chain. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
831 Lisp_Object next; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
832 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
833 /* Index of first free entry in free list. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
834 Lisp_Object next_free; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
835 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
836 /* Bucket vector. A non-nil entry is the index of the first item in |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
837 a collision chain. This vector's size can be larger than the |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
838 hash table size to reduce collisions. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
839 Lisp_Object index; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
840 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
841 /* Next weak hash table if this is a weak hash table. The head |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
842 of the list is in Vweak_hash_tables. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
843 Lisp_Object next_weak; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
844 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
845 /* User-supplied hash function, or nil. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
846 Lisp_Object user_hash_function; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
847 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
848 /* User-supplied key comparison function, or nil. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
849 Lisp_Object user_cmp_function; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
850 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
851 /* C function to compare two keys. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
852 int (* cmpfn) P_ ((struct Lisp_Hash_Table *, Lisp_Object, |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
853 unsigned, Lisp_Object, unsigned)); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
854 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
855 /* C function to compute hash code. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
856 unsigned (* hashfn) P_ ((struct Lisp_Hash_Table *, Lisp_Object)); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
857 }; |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
858 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
859 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
860 #define XHASH_TABLE(OBJ) \ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
861 ((struct Lisp_Hash_Table *) XPNTR (OBJ)) |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
862 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
863 #define XSET_HASH_TABLE(VAR, PTR) \ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
864 (XSETPSEUDOVECTOR (VAR, PTR, PVEC_HASH_TABLE)) |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
865 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
866 #define HASH_TABLE_P(OBJ) PSEUDOVECTORP (OBJ, PVEC_HASH_TABLE) |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
867 #define GC_HASH_TABLE_P(x) GC_PSEUDOVECTORP (x, PVEC_HASH_TABLE) |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
868 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
869 #define CHECK_HASH_TABLE(x, i) \ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
870 do \ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
871 { \ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
872 if (!HASH_TABLE_P ((x))) \ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
873 x = wrong_type_argument (Qhash_table_p, (x)); \ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
874 } \ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
875 while (0) |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
876 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
877 /* Default size for hash tables if not specified. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
878 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
879 #define DEFAULT_HASH_SIZE 65 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
880 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
881 /* Default threshold specifying when to resize a hash table. The |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
882 value gives the ratio of current entries in the hash table and the |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
883 size of the hash table. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
884 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
885 #define DEFAULT_REHASH_THRESHOLD 0.8 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
886 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
887 /* Default factor by which to increase the size of a hash table. */ |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
888 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
889 #define DEFAULT_REHASH_SIZE 1.5 |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
890 |
9462
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
891 |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
892 /* These structures are used for various misc types. */ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
893 |
9462
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
894 /* A miscellaneous object, when it's on the free list. */ |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
895 struct Lisp_Free |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
896 { |
10387
40988c371fca
(struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents:
10339
diff
changeset
|
897 int type : 16; /* = Lisp_Misc_Free */ |
40988c371fca
(struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents:
10339
diff
changeset
|
898 int spacer : 16; |
9462
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
899 union Lisp_Misc *chain; |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
900 }; |
302 | 901 |
16230 | 902 /* In a marker, the markbit of the chain field is used as the gc mark bit. */ |
302 | 903 struct Lisp_Marker |
12890
2a1edeeb13fb
(struct Lisp_Marker): Make insertion_type an unsigned int.
Richard M. Stallman <rms@gnu.org>
parents:
12731
diff
changeset
|
904 { |
2a1edeeb13fb
(struct Lisp_Marker): Make insertion_type an unsigned int.
Richard M. Stallman <rms@gnu.org>
parents:
12731
diff
changeset
|
905 int type : 16; /* = Lisp_Misc_Marker */ |
2a1edeeb13fb
(struct Lisp_Marker): Make insertion_type an unsigned int.
Richard M. Stallman <rms@gnu.org>
parents:
12731
diff
changeset
|
906 int spacer : 15; |
2a1edeeb13fb
(struct Lisp_Marker): Make insertion_type an unsigned int.
Richard M. Stallman <rms@gnu.org>
parents:
12731
diff
changeset
|
907 /* 1 means normal insertion at the marker's position |
2a1edeeb13fb
(struct Lisp_Marker): Make insertion_type an unsigned int.
Richard M. Stallman <rms@gnu.org>
parents:
12731
diff
changeset
|
908 leaves the marker after the inserted text. */ |
2a1edeeb13fb
(struct Lisp_Marker): Make insertion_type an unsigned int.
Richard M. Stallman <rms@gnu.org>
parents:
12731
diff
changeset
|
909 unsigned int insertion_type : 1; |
20559
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
910 /* This is the buffer that the marker points into, |
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
911 or 0 if it points nowhere. */ |
12890
2a1edeeb13fb
(struct Lisp_Marker): Make insertion_type an unsigned int.
Richard M. Stallman <rms@gnu.org>
parents:
12731
diff
changeset
|
912 struct buffer *buffer; |
20559
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
913 |
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
914 /* The remaining fields are meaningless in a marker that |
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
915 does not point anywhere. */ |
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
916 |
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
917 /* For markers that point somewhere, |
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
918 this is used to chain of all the markers in a given buffer. */ |
12890
2a1edeeb13fb
(struct Lisp_Marker): Make insertion_type an unsigned int.
Richard M. Stallman <rms@gnu.org>
parents:
12731
diff
changeset
|
919 Lisp_Object chain; |
20559
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
920 /* This is the char position where the marker points. */ |
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
921 int charpos; |
20569
d8013f2236a0
(struct Lisp_Marker): Rename `bufpos' to `bytepos'.
Richard M. Stallman <rms@gnu.org>
parents:
20559
diff
changeset
|
922 /* This is the byte position. */ |
d8013f2236a0
(struct Lisp_Marker): Rename `bufpos' to `bytepos'.
Richard M. Stallman <rms@gnu.org>
parents:
20559
diff
changeset
|
923 int bytepos; |
12890
2a1edeeb13fb
(struct Lisp_Marker): Make insertion_type an unsigned int.
Richard M. Stallman <rms@gnu.org>
parents:
12731
diff
changeset
|
924 }; |
302 | 925 |
9462
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
926 /* Forwarding pointer to an int variable. |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
927 This is allowed only in the value cell of a symbol, |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
928 and it means that the symbol's value really lives in the |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
929 specified int variable. */ |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
930 struct Lisp_Intfwd |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
931 { |
10387
40988c371fca
(struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents:
10339
diff
changeset
|
932 int type : 16; /* = Lisp_Misc_Intfwd */ |
40988c371fca
(struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents:
10339
diff
changeset
|
933 int spacer : 16; |
9462
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
934 int *intvar; |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
935 }; |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
936 |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
937 /* Boolean forwarding pointer to an int variable. |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
938 This is like Lisp_Intfwd except that the ostensible |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
939 "value" of the symbol is t if the int variable is nonzero, |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
940 nil if it is zero. */ |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
941 struct Lisp_Boolfwd |
9435
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
942 { |
10387
40988c371fca
(struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents:
10339
diff
changeset
|
943 int type : 16; /* = Lisp_Misc_Boolfwd */ |
40988c371fca
(struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents:
10339
diff
changeset
|
944 int spacer : 16; |
9462
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
945 int *boolvar; |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
946 }; |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
947 |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
948 /* Forwarding pointer to a Lisp_Object variable. |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
949 This is allowed only in the value cell of a symbol, |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
950 and it means that the symbol's value really lives in the |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
951 specified variable. */ |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
952 struct Lisp_Objfwd |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
953 { |
10387
40988c371fca
(struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents:
10339
diff
changeset
|
954 int type : 16; /* = Lisp_Misc_Objfwd */ |
40988c371fca
(struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents:
10339
diff
changeset
|
955 int spacer : 16; |
9462
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
956 Lisp_Object *objvar; |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
957 }; |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
958 |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
959 /* Like Lisp_Objfwd except that value lives in a slot in the |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
960 current buffer. Value is byte index of slot within buffer. */ |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
961 struct Lisp_Buffer_Objfwd |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
962 { |
10387
40988c371fca
(struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents:
10339
diff
changeset
|
963 int type : 16; /* = Lisp_Misc_Buffer_Objfwd */ |
40988c371fca
(struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents:
10339
diff
changeset
|
964 int spacer : 16; |
9462
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
965 int offset; |
9435
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
966 }; |
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
967 |
27779 | 968 /* struct Lisp_Buffer_Local_Value is used in a symbol value cell when |
969 the symbol has buffer-local or frame-local bindings. (Exception: | |
970 some buffer-local variables are built-in, with their values stored | |
971 in the buffer structure itself. They are handled differently, | |
972 using struct Lisp_Buffer_Objfwd.) | |
973 | |
974 The `realvalue' slot holds the variable's current value, or a | |
975 forwarding pointer to where that value is kept. This value is the | |
976 one that corresponds to the loaded binding. To read or set the | |
977 variable, you must first make sure the right binding is loaded; | |
978 then you can access the value in (or through) `realvalue'. | |
979 | |
980 `buffer' and `frame' are the buffer and frame for which the loaded | |
981 binding was found. If those have changed, to make sure the right | |
982 binding is loaded it is necessary to find which binding goes with | |
983 the current buffer and selected frame, then load it. To load it, | |
984 first unload the previous binding, then copy the value of the new | |
985 binding into `realvalue' (or through it). Also update | |
986 LOADED-BINDING to point to the newly loaded binding. | |
9891
f4a53f86853d
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Buffer_Local_Value and
Karl Heuer <kwzh@gnu.org>
parents:
9885
diff
changeset
|
987 |
f4a53f86853d
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Buffer_Local_Value and
Karl Heuer <kwzh@gnu.org>
parents:
9885
diff
changeset
|
988 Lisp_Misc_Buffer_Local_Value and Lisp_Misc_Some_Buffer_Local_Value |
27779 | 989 both use this kind of structure. With the former, merely setting |
990 the variable creates a local binding for the current buffer. With | |
991 the latter, setting the variable does not do that; only | |
992 make-local-variable does that. */ | |
993 | |
9891
f4a53f86853d
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Buffer_Local_Value and
Karl Heuer <kwzh@gnu.org>
parents:
9885
diff
changeset
|
994 struct Lisp_Buffer_Local_Value |
f4a53f86853d
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Buffer_Local_Value and
Karl Heuer <kwzh@gnu.org>
parents:
9885
diff
changeset
|
995 { |
21147
81b02a3ea5e0
(struct Lisp_Buffer_Local_Value):
Richard M. Stallman <rms@gnu.org>
parents:
21038
diff
changeset
|
996 int type : 16; /* = Lisp_Misc_Buffer_Local_Value |
81b02a3ea5e0
(struct Lisp_Buffer_Local_Value):
Richard M. Stallman <rms@gnu.org>
parents:
21038
diff
changeset
|
997 or Lisp_Misc_Some_Buffer_Local_Value */ |
81b02a3ea5e0
(struct Lisp_Buffer_Local_Value):
Richard M. Stallman <rms@gnu.org>
parents:
21038
diff
changeset
|
998 int spacer : 13; |
27779 | 999 |
1000 /* 1 means this variable is allowed to have frame-local bindings, | |
1001 so check for them when looking for the proper binding. */ | |
21147
81b02a3ea5e0
(struct Lisp_Buffer_Local_Value):
Richard M. Stallman <rms@gnu.org>
parents:
21038
diff
changeset
|
1002 unsigned int check_frame : 1; |
27779 | 1003 /* 1 means that the binding now loaded was found |
1004 as a local binding for the buffer in the `buffer' slot. */ | |
21147
81b02a3ea5e0
(struct Lisp_Buffer_Local_Value):
Richard M. Stallman <rms@gnu.org>
parents:
21038
diff
changeset
|
1005 unsigned int found_for_buffer : 1; |
27779 | 1006 /* 1 means that the binding now loaded was found |
1007 as a local binding for the frame in the `frame' slot. */ | |
21147
81b02a3ea5e0
(struct Lisp_Buffer_Local_Value):
Richard M. Stallman <rms@gnu.org>
parents:
21038
diff
changeset
|
1008 unsigned int found_for_frame : 1; |
81b02a3ea5e0
(struct Lisp_Buffer_Local_Value):
Richard M. Stallman <rms@gnu.org>
parents:
21038
diff
changeset
|
1009 Lisp_Object realvalue; |
27779 | 1010 /* The buffer and frame for which the loaded binding was found. */ |
21147
81b02a3ea5e0
(struct Lisp_Buffer_Local_Value):
Richard M. Stallman <rms@gnu.org>
parents:
21038
diff
changeset
|
1011 Lisp_Object buffer, frame; |
27779 | 1012 |
1013 /* A cons cell, (LOADED-BINDING . DEFAULT-VALUE). | |
1014 | |
1015 LOADED-BINDING is the binding now loaded. It is a cons cell | |
1016 whose cdr is the binding's value. The cons cell may be an | |
1017 element of a buffer's local-variable alist, or an element of a | |
1018 frame's parameter alist, or it may be this cons cell. | |
1019 | |
1020 DEFAULT-VALUE is the variable's default value, seen when the | |
1021 current buffer and selected frame do not have their own | |
1022 bindings for the variable. When the default binding is loaded, | |
1023 LOADED-BINDING is actually this very cons cell; thus, its car | |
1024 points to itself. */ | |
21147
81b02a3ea5e0
(struct Lisp_Buffer_Local_Value):
Richard M. Stallman <rms@gnu.org>
parents:
21038
diff
changeset
|
1025 Lisp_Object cdr; |
9891
f4a53f86853d
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Buffer_Local_Value and
Karl Heuer <kwzh@gnu.org>
parents:
9885
diff
changeset
|
1026 }; |
f4a53f86853d
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Buffer_Local_Value and
Karl Heuer <kwzh@gnu.org>
parents:
9885
diff
changeset
|
1027 |
9924
594e838f4567
(enum Lisp_Misc_Type): Add new enumeration Lisp_Misc_Overlay.
Karl Heuer <kwzh@gnu.org>
parents:
9904
diff
changeset
|
1028 /* In an overlay object, the mark bit of the plist is used as the GC mark. |
594e838f4567
(enum Lisp_Misc_Type): Add new enumeration Lisp_Misc_Overlay.
Karl Heuer <kwzh@gnu.org>
parents:
9904
diff
changeset
|
1029 START and END are markers in the overlay's buffer, and |
594e838f4567
(enum Lisp_Misc_Type): Add new enumeration Lisp_Misc_Overlay.
Karl Heuer <kwzh@gnu.org>
parents:
9904
diff
changeset
|
1030 PLIST is the overlay's property list. */ |
594e838f4567
(enum Lisp_Misc_Type): Add new enumeration Lisp_Misc_Overlay.
Karl Heuer <kwzh@gnu.org>
parents:
9904
diff
changeset
|
1031 struct Lisp_Overlay |
594e838f4567
(enum Lisp_Misc_Type): Add new enumeration Lisp_Misc_Overlay.
Karl Heuer <kwzh@gnu.org>
parents:
9904
diff
changeset
|
1032 { |
10387
40988c371fca
(struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents:
10339
diff
changeset
|
1033 int type : 16; /* = Lisp_Misc_Overlay */ |
40988c371fca
(struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents:
10339
diff
changeset
|
1034 int spacer : 16; |
9924
594e838f4567
(enum Lisp_Misc_Type): Add new enumeration Lisp_Misc_Overlay.
Karl Heuer <kwzh@gnu.org>
parents:
9904
diff
changeset
|
1035 Lisp_Object start, end, plist; |
594e838f4567
(enum Lisp_Misc_Type): Add new enumeration Lisp_Misc_Overlay.
Karl Heuer <kwzh@gnu.org>
parents:
9904
diff
changeset
|
1036 }; |
10387
40988c371fca
(struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents:
10339
diff
changeset
|
1037 |
10580
09fcb080e537
(enum Lisp_Misc_Type): New enumeration Lisp_Misc_Display_Local.
Karl Heuer <kwzh@gnu.org>
parents:
10578
diff
changeset
|
1038 /* Like Lisp_Objfwd except that value lives in a slot in the |
11012
31d88266ed12
(struct KBOARD, MULTI_KBOARD, current_kboard, all_kboards,
Karl Heuer <kwzh@gnu.org>
parents:
10944
diff
changeset
|
1039 current kboard. */ |
31d88266ed12
(struct KBOARD, MULTI_KBOARD, current_kboard, all_kboards,
Karl Heuer <kwzh@gnu.org>
parents:
10944
diff
changeset
|
1040 struct Lisp_Kboard_Objfwd |
10580
09fcb080e537
(enum Lisp_Misc_Type): New enumeration Lisp_Misc_Display_Local.
Karl Heuer <kwzh@gnu.org>
parents:
10578
diff
changeset
|
1041 { |
11012
31d88266ed12
(struct KBOARD, MULTI_KBOARD, current_kboard, all_kboards,
Karl Heuer <kwzh@gnu.org>
parents:
10944
diff
changeset
|
1042 int type : 16; /* = Lisp_Misc_Kboard_Objfwd */ |
10580
09fcb080e537
(enum Lisp_Misc_Type): New enumeration Lisp_Misc_Display_Local.
Karl Heuer <kwzh@gnu.org>
parents:
10578
diff
changeset
|
1043 int spacer : 16; |
09fcb080e537
(enum Lisp_Misc_Type): New enumeration Lisp_Misc_Display_Local.
Karl Heuer <kwzh@gnu.org>
parents:
10578
diff
changeset
|
1044 int offset; |
09fcb080e537
(enum Lisp_Misc_Type): New enumeration Lisp_Misc_Display_Local.
Karl Heuer <kwzh@gnu.org>
parents:
10578
diff
changeset
|
1045 }; |
09fcb080e537
(enum Lisp_Misc_Type): New enumeration Lisp_Misc_Display_Local.
Karl Heuer <kwzh@gnu.org>
parents:
10578
diff
changeset
|
1046 |
10387
40988c371fca
(struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents:
10339
diff
changeset
|
1047 |
11335
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1048 /* To get the type field of a union Lisp_Misc, use XMISCTYPE. |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1049 It uses one of these struct subtypes to get the type field. */ |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1050 |
9435
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
1051 union Lisp_Misc |
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
1052 { |
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
1053 struct Lisp_Free u_free; |
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
1054 struct Lisp_Marker u_marker; |
9462
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
1055 struct Lisp_Intfwd u_intfwd; |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
1056 struct Lisp_Boolfwd u_boolfwd; |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
1057 struct Lisp_Objfwd u_objfwd; |
3601bf7327b2
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents:
9435
diff
changeset
|
1058 struct Lisp_Buffer_Objfwd u_buffer_objfwd; |
9891
f4a53f86853d
(enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Buffer_Local_Value and
Karl Heuer <kwzh@gnu.org>
parents:
9885
diff
changeset
|
1059 struct Lisp_Buffer_Local_Value u_buffer_local_value; |
9924
594e838f4567
(enum Lisp_Misc_Type): Add new enumeration Lisp_Misc_Overlay.
Karl Heuer <kwzh@gnu.org>
parents:
9904
diff
changeset
|
1060 struct Lisp_Overlay u_overlay; |
11012
31d88266ed12
(struct KBOARD, MULTI_KBOARD, current_kboard, all_kboards,
Karl Heuer <kwzh@gnu.org>
parents:
10944
diff
changeset
|
1061 struct Lisp_Kboard_Objfwd u_kboard_objfwd; |
9435
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
1062 }; |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1063 |
27727
9400865ec7cf
Remove `LISP_FLOAT_TYPE' and `standalone'.
Gerd Moellmann <gerd@gnu.org>
parents:
27427
diff
changeset
|
1064 /* Lisp floating point type */ |
302 | 1065 struct Lisp_Float |
1066 { | |
17404
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
1067 Lisp_Object type; /* essentially used for mark-bit |
302 | 1068 and chaining when on free-list */ |
25421
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
1069 #ifdef HIDE_LISP_IMPLEMENTATION |
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
1070 double data_; |
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
1071 #else |
17404
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
1072 double data; |
25421
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
1073 #endif |
302 | 1074 }; |
25421
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
1075 |
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
1076 #ifdef HIDE_LISP_IMPLEMENTATION |
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
1077 #define XFLOAT_DATA(f) (XFLOAT (f)->data_) |
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
1078 #else |
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
1079 #define XFLOAT_DATA(f) (XFLOAT (f)->data) |
65a7e9c02d4f
(struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents:
25392
diff
changeset
|
1080 #endif |
302 | 1081 |
1082 /* A character, declared with the following typedef, is a member | |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
1083 of some character set associated with the current buffer. */ |
3324
b0e1cf2177fc
(UCHAR): Don't define if _UCHAR_T.
Richard M. Stallman <rms@gnu.org>
parents:
2979
diff
changeset
|
1084 #ifndef _UCHAR_T /* Protect against something in ctab.h on AIX. */ |
b0e1cf2177fc
(UCHAR): Don't define if _UCHAR_T.
Richard M. Stallman <rms@gnu.org>
parents:
2979
diff
changeset
|
1085 #define _UCHAR_T |
302 | 1086 typedef unsigned char UCHAR; |
3324
b0e1cf2177fc
(UCHAR): Don't define if _UCHAR_T.
Richard M. Stallman <rms@gnu.org>
parents:
2979
diff
changeset
|
1087 #endif |
302 | 1088 |
1089 /* Meanings of slots in a Lisp_Compiled: */ | |
1090 | |
1091 #define COMPILED_ARGLIST 0 | |
1092 #define COMPILED_BYTECODE 1 | |
1093 #define COMPILED_CONSTANTS 2 | |
1094 #define COMPILED_STACK_DEPTH 3 | |
1095 #define COMPILED_DOC_STRING 4 | |
1096 #define COMPILED_INTERACTIVE 5 | |
2014
637d9ebe3f50
(CHAR_META, CHAR_SHIFT, CHAR_CTL): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
1990
diff
changeset
|
1097 |
2662
5b92bdfb7fbb
* lisp.h (CHAR_ALT, CHAR_SUPER, CHAR_HYPER, CHAR_SHIFT, CHAR_CTL,
Jim Blandy <jimb@redhat.com>
parents:
2653
diff
changeset
|
1098 /* Flag bits in a character. These also get used in termhooks.h. |
5b92bdfb7fbb
* lisp.h (CHAR_ALT, CHAR_SUPER, CHAR_HYPER, CHAR_SHIFT, CHAR_CTL,
Jim Blandy <jimb@redhat.com>
parents:
2653
diff
changeset
|
1099 Richard Stallman <rms@gnu.ai.mit.edu> thinks that MULE |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1100 (MUlti-Lingual Emacs) might need 22 bits for the character value |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1101 itself, so we probably shouldn't use any bits lower than 0x0400000. */ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1102 #define CHAR_ALT (0x0400000) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1103 #define CHAR_SUPER (0x0800000) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1104 #define CHAR_HYPER (0x1000000) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1105 #define CHAR_SHIFT (0x2000000) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1106 #define CHAR_CTL (0x4000000) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1107 #define CHAR_META (0x8000000) |
2728
93c9529b2b69
* config.h.in: Remove mention of GLYPH datatype; that shouldn't be
Jim Blandy <jimb@redhat.com>
parents:
2662
diff
changeset
|
1108 |
25252
fc1b2b29e66d
(CHAR_MODIFIER_MASK): New macro.
Kenichi Handa <handa@m17n.org>
parents:
25017
diff
changeset
|
1109 #define CHAR_MODIFIER_MASK \ |
fc1b2b29e66d
(CHAR_MODIFIER_MASK): New macro.
Kenichi Handa <handa@m17n.org>
parents:
25017
diff
changeset
|
1110 (CHAR_ALT | CHAR_SUPER | CHAR_HYPER | CHAR_SHIFT | CHAR_CTL | CHAR_META) |
fc1b2b29e66d
(CHAR_MODIFIER_MASK): New macro.
Kenichi Handa <handa@m17n.org>
parents:
25017
diff
changeset
|
1111 |
fc1b2b29e66d
(CHAR_MODIFIER_MASK): New macro.
Kenichi Handa <handa@m17n.org>
parents:
25017
diff
changeset
|
1112 |
17037
af637c0168ad
(CHARACTERBITS, GLYPH_MASK_REV_DIR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
16913
diff
changeset
|
1113 /* Actually, the current Emacs uses 19 bits for the character value |
af637c0168ad
(CHARACTERBITS, GLYPH_MASK_REV_DIR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
16913
diff
changeset
|
1114 itself. */ |
af637c0168ad
(CHARACTERBITS, GLYPH_MASK_REV_DIR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
16913
diff
changeset
|
1115 #define CHARACTERBITS 19 |
af637c0168ad
(CHARACTERBITS, GLYPH_MASK_REV_DIR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
16913
diff
changeset
|
1116 |
26479
cf75e5b634ec
(KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents:
26404
diff
changeset
|
1117 /* The maximum byte size consumed by push_key_description. |
cf75e5b634ec
(KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents:
26404
diff
changeset
|
1118 All callers should assure that at least this size of memory is |
cf75e5b634ec
(KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents:
26404
diff
changeset
|
1119 allocated at the place pointed by the second argument. |
cf75e5b634ec
(KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents:
26404
diff
changeset
|
1120 |
cf75e5b634ec
(KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents:
26404
diff
changeset
|
1121 Thers are 6 modifiers, each consumes 2 chars. |
cf75e5b634ec
(KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents:
26404
diff
changeset
|
1122 The octal form of a character code consumes |
cf75e5b634ec
(KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents:
26404
diff
changeset
|
1123 (1 + CHARACTERBITS / 3 + 1) chars (including backslash at the head). |
cf75e5b634ec
(KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents:
26404
diff
changeset
|
1124 We need one more byte for string terminator `\0'. */ |
cf75e5b634ec
(KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents:
26404
diff
changeset
|
1125 #define KEY_DESCRIPTION_SIZE ((2 * 6) + 1 + (CHARACTERBITS / 3) + 1 + 1) |
cf75e5b634ec
(KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents:
26404
diff
changeset
|
1126 |
5642
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1127 #ifdef USE_X_TOOLKIT |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1128 #ifdef NO_UNION_TYPE |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1129 /* Use this for turning a (void *) into a Lisp_Object, as when the |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1130 Lisp_Object is passed into a toolkit callback function. */ |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1131 #define VOID_TO_LISP(larg,varg) \ |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1132 do { ((larg) = ((Lisp_Object) (varg))); } while (0) |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1133 #define CVOID_TO_LISP VOID_TO_LISP |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1134 |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1135 /* Use this for turning a Lisp_Object into a (void *), as when the |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1136 Lisp_Object is passed into a toolkit callback function. */ |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1137 #define LISP_TO_VOID(larg) ((void *) (larg)) |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1138 #define LISP_TO_CVOID(varg) ((const void *) (larg)) |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1139 |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1140 #else /* not NO_UNION_TYPE */ |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1141 /* Use this for turning a (void *) into a Lisp_Object, as when the |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1142 Lisp_Object is passed into a toolkit callback function. */ |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1143 #define VOID_TO_LISP(larg,varg) \ |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1144 do { ((larg).v = (void *) (varg)); } while (0) |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1145 #define CVOID_TO_LISP(larg,varg) \ |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1146 do { ((larg).cv = (const void *) (varg)); } while (0) |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1147 |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1148 /* Use this for turning a Lisp_Object into a (void *), as when the |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1149 Lisp_Object is passed into a toolkit callback function. */ |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1150 #define LISP_TO_VOID(larg) ((larg).v) |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1151 #define LISP_TO_CVOID(larg) ((larg).cv) |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1152 #endif /* not NO_UNION_TYPE */ |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1153 #endif /* USE_X_TOOLKIT */ |
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
1154 |
2728
93c9529b2b69
* config.h.in: Remove mention of GLYPH datatype; that shouldn't be
Jim Blandy <jimb@redhat.com>
parents:
2662
diff
changeset
|
1155 |
93c9529b2b69
* config.h.in: Remove mention of GLYPH datatype; that shouldn't be
Jim Blandy <jimb@redhat.com>
parents:
2662
diff
changeset
|
1156 /* The glyph datatype, used to represent characters on the display. */ |
93c9529b2b69
* config.h.in: Remove mention of GLYPH datatype; that shouldn't be
Jim Blandy <jimb@redhat.com>
parents:
2662
diff
changeset
|
1157 |
26994
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1158 /* Glyph code to use as an index to the glyph table. If it is out of |
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1159 range for the glyph table, or the corresonding element in the table |
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1160 is nil, the low 8 bits are the single byte character code, and the |
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1161 bits above are the numeric face ID. If FID is the face ID of a |
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1162 glyph on a frame F, then F->display.x->faces[FID] contains the |
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1163 description of that face. This is an int instead of a short, so we |
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1164 can support a good bunch of face ID's (2^(31 - 8)); given that we |
17037
af637c0168ad
(CHARACTERBITS, GLYPH_MASK_REV_DIR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
16913
diff
changeset
|
1165 have no mechanism for tossing unused frame face ID's yet, we'll |
26994
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1166 probably run out of 255 pretty quickly. |
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1167 This is always -1 for a multibyte character. */ |
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1168 #define GLYPH int |
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1169 |
17037
af637c0168ad
(CHARACTERBITS, GLYPH_MASK_REV_DIR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
16913
diff
changeset
|
1170 /* Mask bits for face. */ |
26994
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1171 #define GLYPH_MASK_FACE 0x7FFFFF00 |
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1172 /* Mask bits for character code. */ |
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1173 #define GLYPH_MASK_CHAR 0x000000FF /* The lowest 8 bits */ |
17037
af637c0168ad
(CHARACTERBITS, GLYPH_MASK_REV_DIR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
16913
diff
changeset
|
1174 |
6416
6f57787905d9
(MAKE_GLYPH, GLYPH_CHAR, GLYPH_FACE): Handle termcap frames as well as X.
Karl Heuer <kwzh@gnu.org>
parents:
6277
diff
changeset
|
1175 /* The FAST macros assume that we already know we're in an X window. */ |
6f57787905d9
(MAKE_GLYPH, GLYPH_CHAR, GLYPH_FACE): Handle termcap frames as well as X.
Karl Heuer <kwzh@gnu.org>
parents:
6277
diff
changeset
|
1176 |
26994
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1177 /* Set a character code and a face ID in a glyph G. */ |
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1178 #define FAST_MAKE_GLYPH(char, face) ((char) | ((face) << 8)) |
2728
93c9529b2b69
* config.h.in: Remove mention of GLYPH datatype; that shouldn't be
Jim Blandy <jimb@redhat.com>
parents:
2662
diff
changeset
|
1179 |
93c9529b2b69
* config.h.in: Remove mention of GLYPH datatype; that shouldn't be
Jim Blandy <jimb@redhat.com>
parents:
2662
diff
changeset
|
1180 /* Return a glyph's character code. */ |
17037
af637c0168ad
(CHARACTERBITS, GLYPH_MASK_REV_DIR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
16913
diff
changeset
|
1181 #define FAST_GLYPH_CHAR(glyph) ((glyph) & GLYPH_MASK_CHAR) |
2728
93c9529b2b69
* config.h.in: Remove mention of GLYPH datatype; that shouldn't be
Jim Blandy <jimb@redhat.com>
parents:
2662
diff
changeset
|
1182 |
93c9529b2b69
* config.h.in: Remove mention of GLYPH datatype; that shouldn't be
Jim Blandy <jimb@redhat.com>
parents:
2662
diff
changeset
|
1183 /* Return a glyph's face ID. */ |
26994
be1938426575
(GLYPH): Defined as `int', not `unsigned int'. Now the
Kenichi Handa <handa@m17n.org>
parents:
26865
diff
changeset
|
1184 #define FAST_GLYPH_FACE(glyph) (((glyph) & GLYPH_MASK_FACE) >> 8) |
6416
6f57787905d9
(MAKE_GLYPH, GLYPH_CHAR, GLYPH_FACE): Handle termcap frames as well as X.
Karl Heuer <kwzh@gnu.org>
parents:
6277
diff
changeset
|
1185 |
6f57787905d9
(MAKE_GLYPH, GLYPH_CHAR, GLYPH_FACE): Handle termcap frames as well as X.
Karl Heuer <kwzh@gnu.org>
parents:
6277
diff
changeset
|
1186 /* Slower versions that test the frame type first. */ |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1187 #define MAKE_GLYPH(f, char, face) (FAST_MAKE_GLYPH (char, face)) |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1188 #define GLYPH_CHAR(f, g) (FAST_GLYPH_CHAR (g)) |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1189 #define GLYPH_FACE(f, g) (FAST_GLYPH_FACE (g)) |
2728
93c9529b2b69
* config.h.in: Remove mention of GLYPH datatype; that shouldn't be
Jim Blandy <jimb@redhat.com>
parents:
2662
diff
changeset
|
1190 |
17188
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
1191 /* Return 1 iff GLYPH contains valid character code. */ |
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
1192 #define GLYPH_CHAR_VALID_P(glyph) \ |
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
1193 ((GLYPH) (FAST_GLYPH_CHAR (glyph)) <= MAX_CHAR) |
e38cc84db8ab
(CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents:
17141
diff
changeset
|
1194 |
6277
444351051761
(GLYPH_MODE_LINE_FACE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
6243
diff
changeset
|
1195 /* The ID of the mode line highlighting face. */ |
444351051761
(GLYPH_MODE_LINE_FACE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
6243
diff
changeset
|
1196 #define GLYPH_MODE_LINE_FACE 1 |
302 | 1197 |
1198 /* Data type checking */ | |
1199 | |
621 | 1200 #define NILP(x) (XFASTINT (x) == XFASTINT (Qnil)) |
1990
c7d6c746fea6
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1923
diff
changeset
|
1201 #define GC_NILP(x) GC_EQ (x, Qnil) |
621 | 1202 |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1203 #define NUMBERP(x) (INTEGERP (x) || FLOATP (x)) |
9947
84efab2ce30b
(GC_INTEGERP, etc): New type-test macros for use during GC.
Karl Heuer <kwzh@gnu.org>
parents:
9943
diff
changeset
|
1204 #define GC_NUMBERP(x) (GC_INTEGERP (x) || GC_FLOATP (x)) |
9943 | 1205 #define NATNUMP(x) (INTEGERP (x) && XINT (x) >= 0) |
9947
84efab2ce30b
(GC_INTEGERP, etc): New type-test macros for use during GC.
Karl Heuer <kwzh@gnu.org>
parents:
9943
diff
changeset
|
1206 #define GC_NATNUMP(x) (GC_INTEGERP (x) && XINT (x) >= 0) |
302 | 1207 |
2187
12b50e8d3b1c
(INTEGERP, SYMBOLP, MARKERP, STRINGP, VECTORP): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
2155
diff
changeset
|
1208 #define INTEGERP(x) (XTYPE ((x)) == Lisp_Int) |
9947
84efab2ce30b
(GC_INTEGERP, etc): New type-test macros for use during GC.
Karl Heuer <kwzh@gnu.org>
parents:
9943
diff
changeset
|
1209 #define GC_INTEGERP(x) (XGCTYPE ((x)) == Lisp_Int) |
2187
12b50e8d3b1c
(INTEGERP, SYMBOLP, MARKERP, STRINGP, VECTORP): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
2155
diff
changeset
|
1210 #define SYMBOLP(x) (XTYPE ((x)) == Lisp_Symbol) |
9947
84efab2ce30b
(GC_INTEGERP, etc): New type-test macros for use during GC.
Karl Heuer <kwzh@gnu.org>
parents:
9943
diff
changeset
|
1211 #define GC_SYMBOLP(x) (XGCTYPE ((x)) == Lisp_Symbol) |
9435
3a157cdf395c
(Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents:
9392
diff
changeset
|
1212 #define MISCP(x) (XTYPE ((x)) == Lisp_Misc) |
9947
84efab2ce30b
(GC_INTEGERP, etc): New type-test macros for use during GC.
Karl Heuer <kwzh@gnu.org>
parents:
9943
diff
changeset
|
1213 #define GC_MISCP(x) (XGCTYPE ((x)) == Lisp_Misc) |
10010
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
1214 #define VECTORLIKEP(x) (XTYPE ((x)) == Lisp_Vectorlike) |
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
1215 #define GC_VECTORLIKEP(x) (XGCTYPE ((x)) == Lisp_Vectorlike) |
2187
12b50e8d3b1c
(INTEGERP, SYMBOLP, MARKERP, STRINGP, VECTORP): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
2155
diff
changeset
|
1216 #define STRINGP(x) (XTYPE ((x)) == Lisp_String) |
9947
84efab2ce30b
(GC_INTEGERP, etc): New type-test macros for use during GC.
Karl Heuer <kwzh@gnu.org>
parents:
9943
diff
changeset
|
1217 #define GC_STRINGP(x) (XGCTYPE ((x)) == Lisp_String) |
302 | 1218 #define CONSP(x) (XTYPE ((x)) == Lisp_Cons) |
9947
84efab2ce30b
(GC_INTEGERP, etc): New type-test macros for use during GC.
Karl Heuer <kwzh@gnu.org>
parents:
9943
diff
changeset
|
1219 #define GC_CONSP(x) (XGCTYPE ((x)) == Lisp_Cons) |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1220 |
2187
12b50e8d3b1c
(INTEGERP, SYMBOLP, MARKERP, STRINGP, VECTORP): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
2155
diff
changeset
|
1221 #define FLOATP(x) (XTYPE ((x)) == Lisp_Float) |
9947
84efab2ce30b
(GC_INTEGERP, etc): New type-test macros for use during GC.
Karl Heuer <kwzh@gnu.org>
parents:
9943
diff
changeset
|
1222 #define GC_FLOATP(x) (XGCTYPE ((x)) == Lisp_Float) |
10010
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
1223 #define VECTORP(x) (VECTORLIKEP (x) && !(XVECTOR (x)->size & PSEUDOVECTOR_FLAG)) |
67375493afa2
(enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents:
10003
diff
changeset
|
1224 #define GC_VECTORP(x) (GC_VECTORLIKEP (x) && !(XVECTOR (x)->size & PSEUDOVECTOR_FLAG)) |
11335
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1225 #define OVERLAYP(x) (MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Overlay) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1226 #define GC_OVERLAYP(x) (GC_MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Overlay) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1227 #define MARKERP(x) (MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Marker) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1228 #define GC_MARKERP(x) (GC_MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Marker) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1229 #define INTFWDP(x) (MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Intfwd) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1230 #define GC_INTFWDP(x) (GC_MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Intfwd) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1231 #define BOOLFWDP(x) (MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Boolfwd) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1232 #define GC_BOOLFWDP(x) (GC_MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Boolfwd) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1233 #define OBJFWDP(x) (MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Objfwd) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1234 #define GC_OBJFWDP(x) (GC_MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Objfwd) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1235 #define BUFFER_OBJFWDP(x) (MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Buffer_Objfwd) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1236 #define GC_BUFFER_OBJFWDP(x) (GC_MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Buffer_Objfwd) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1237 #define BUFFER_LOCAL_VALUEP(x) (MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Buffer_Local_Value) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1238 #define GC_BUFFER_LOCAL_VALUEP(x) (GC_MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Buffer_Local_Value) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1239 #define SOME_BUFFER_LOCAL_VALUEP(x) (MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Some_Buffer_Local_Value) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1240 #define GC_SOME_BUFFER_LOCAL_VALUEP(x) (GC_MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Some_Buffer_Local_Value) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1241 #define KBOARD_OBJFWDP(x) (MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Kboard_Objfwd) |
78eda0ee4cba
(XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
11204
diff
changeset
|
1242 #define GC_KBOARD_OBJFWDP(x) (GC_MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Kboard_Objfwd) |
2187
12b50e8d3b1c
(INTEGERP, SYMBOLP, MARKERP, STRINGP, VECTORP): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
2155
diff
changeset
|
1243 |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1244 |
10322
c1c2ec3aeefa
Use consistent spelling in comments.
Karl Heuer <kwzh@gnu.org>
parents:
10321
diff
changeset
|
1245 /* True if object X is a pseudovector whose code is CODE. */ |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1246 #define PSEUDOVECTORP(x, code) \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1247 (VECTORLIKEP (x) \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1248 && (((XVECTOR (x)->size & (PSEUDOVECTOR_FLAG | (code)))) \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1249 == (PSEUDOVECTOR_FLAG | (code)))) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1250 |
10322
c1c2ec3aeefa
Use consistent spelling in comments.
Karl Heuer <kwzh@gnu.org>
parents:
10321
diff
changeset
|
1251 /* True if object X is a pseudovector whose code is CODE. |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1252 This one works during GC. */ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1253 #define GC_PSEUDOVECTORP(x, code) \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1254 (GC_VECTORLIKEP (x) \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1255 && (((XVECTOR (x)->size & (PSEUDOVECTOR_FLAG | (code)))) \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1256 == (PSEUDOVECTOR_FLAG | (code)))) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1257 |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1258 /* Test for specific pseudovector types. */ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1259 #define WINDOW_CONFIGURATIONP(x) PSEUDOVECTORP (x, PVEC_WINDOW_CONFIGURATION) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1260 #define GC_WINDOW_CONFIGURATIONP(x) GC_PSEUDOVECTORP (x, PVEC_WINDOW_CONFIGURATION) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1261 #define PROCESSP(x) PSEUDOVECTORP (x, PVEC_PROCESS) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1262 #define GC_PROCESSP(x) GC_PSEUDOVECTORP (x, PVEC_PROCESS) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1263 #define WINDOWP(x) PSEUDOVECTORP (x, PVEC_WINDOW) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1264 #define GC_WINDOWP(x) GC_PSEUDOVECTORP (x, PVEC_WINDOW) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1265 #define SUBRP(x) PSEUDOVECTORP (x, PVEC_SUBR) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1266 #define GC_SUBRP(x) GC_PSEUDOVECTORP (x, PVEC_SUBR) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1267 #define COMPILEDP(x) PSEUDOVECTORP (x, PVEC_COMPILED) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1268 #define GC_COMPILEDP(x) GC_PSEUDOVECTORP (x, PVEC_COMPILED) |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
1269 #define BUFFERP(x) PSEUDOVECTORP (x, PVEC_BUFFER) |
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
1270 #define GC_BUFFERP(x) GC_PSEUDOVECTORP (x, PVEC_BUFFER) |
13149
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
1271 #define CHAR_TABLE_P(x) PSEUDOVECTORP (x, PVEC_CHAR_TABLE) |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
1272 #define GC_CHAR_TABLE_P(x) GC_PSEUDOVECTORP (x, PVEC_CHAR_TABLE) |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
1273 #define BOOL_VECTOR_P(x) PSEUDOVECTORP (x, PVEC_BOOL_VECTOR) |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
1274 #define GC_BOOL_VECTOR_P(x) GC_PSEUDOVECTORP (x, PVEC_BOOL_VECTOR) |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1275 #define FRAMEP(x) PSEUDOVECTORP (x, PVEC_FRAME) |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1276 #define GC_FRAMEP(x) GC_PSEUDOVECTORP (x, PVEC_FRAME) |
17326
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
1277 |
bd34aa57f3f5
(CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents:
17289
diff
changeset
|
1278 #define SUB_CHAR_TABLE_P(x) (CHAR_TABLE_P (x) && NILP (XCHAR_TABLE (x)->top)) |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1279 |
302 | 1280 #define EQ(x, y) (XFASTINT (x) == XFASTINT (y)) |
1990
c7d6c746fea6
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1923
diff
changeset
|
1281 #define GC_EQ(x, y) (XGCTYPE (x) == XGCTYPE (y) && XPNTR (x) == XPNTR (y)) |
621 | 1282 |
302 | 1283 #define CHECK_LIST(x, i) \ |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1284 do { if (!CONSP ((x)) && !NILP (x)) x = wrong_type_argument (Qlistp, (x)); } while (0) |
302 | 1285 |
1286 #define CHECK_STRING(x, i) \ | |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1287 do { if (!STRINGP ((x))) x = wrong_type_argument (Qstringp, (x)); } while (0) |
302 | 1288 |
1289 #define CHECK_CONS(x, i) \ | |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1290 do { if (!CONSP ((x))) x = wrong_type_argument (Qconsp, (x)); } while (0) |
302 | 1291 |
1292 #define CHECK_SYMBOL(x, i) \ | |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1293 do { if (!SYMBOLP ((x))) x = wrong_type_argument (Qsymbolp, (x)); } while (0) |
302 | 1294 |
13149
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
1295 #define CHECK_CHAR_TABLE(x, i) \ |
13357
74a891e3ef44
(CHECK_CHAR_TABLE): Don't accept nil.
Richard M. Stallman <rms@gnu.org>
parents:
13330
diff
changeset
|
1296 do { if (!CHAR_TABLE_P ((x))) \ |
13149
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
1297 x = wrong_type_argument (Qchar_table_p, (x)); } while (0) |
b1dcc3e87ffb
(struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents:
12890
diff
changeset
|
1298 |
302 | 1299 #define CHECK_VECTOR(x, i) \ |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1300 do { if (!VECTORP ((x))) x = wrong_type_argument (Qvectorp, (x)); } while (0) |
302 | 1301 |
13202
b307cd5c259f
(struct Lisp_Char_Table): New slot `purpose'.
Richard M. Stallman <rms@gnu.org>
parents:
13149
diff
changeset
|
1302 #define CHECK_VECTOR_OR_CHAR_TABLE(x, i) \ |
b307cd5c259f
(struct Lisp_Char_Table): New slot `purpose'.
Richard M. Stallman <rms@gnu.org>
parents:
13149
diff
changeset
|
1303 do { if (!VECTORP ((x)) && !CHAR_TABLE_P ((x))) \ |
b307cd5c259f
(struct Lisp_Char_Table): New slot `purpose'.
Richard M. Stallman <rms@gnu.org>
parents:
13149
diff
changeset
|
1304 x = wrong_type_argument (Qvector_or_char_table_p, (x)); \ |
b307cd5c259f
(struct Lisp_Char_Table): New slot `purpose'.
Richard M. Stallman <rms@gnu.org>
parents:
13149
diff
changeset
|
1305 } while (0) |
b307cd5c259f
(struct Lisp_Char_Table): New slot `purpose'.
Richard M. Stallman <rms@gnu.org>
parents:
13149
diff
changeset
|
1306 |
302 | 1307 #define CHECK_BUFFER(x, i) \ |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1308 do { if (!BUFFERP ((x))) x = wrong_type_argument (Qbufferp, (x)); } while (0) |
302 | 1309 |
1310 #define CHECK_WINDOW(x, i) \ | |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1311 do { if (!WINDOWP ((x))) x = wrong_type_argument (Qwindowp, (x)); } while (0) |
302 | 1312 |
1442
89ac471c745c
* lisp.h (CHECK_LIVE_WINDOW): New predicate.
Jim Blandy <jimb@redhat.com>
parents:
1306
diff
changeset
|
1313 /* This macro rejects windows on the interior of the window tree as |
17404
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
1314 "dead", which is what we want; this is an argument-checking macro, and |
1442
89ac471c745c
* lisp.h (CHECK_LIVE_WINDOW): New predicate.
Jim Blandy <jimb@redhat.com>
parents:
1306
diff
changeset
|
1315 the user should never get access to interior windows. |
89ac471c745c
* lisp.h (CHECK_LIVE_WINDOW): New predicate.
Jim Blandy <jimb@redhat.com>
parents:
1306
diff
changeset
|
1316 |
89ac471c745c
* lisp.h (CHECK_LIVE_WINDOW): New predicate.
Jim Blandy <jimb@redhat.com>
parents:
1306
diff
changeset
|
1317 A window of any sort, leaf or interior, is dead iff the buffer, |
89ac471c745c
* lisp.h (CHECK_LIVE_WINDOW): New predicate.
Jim Blandy <jimb@redhat.com>
parents:
1306
diff
changeset
|
1318 vchild, and hchild members are all nil. */ |
89ac471c745c
* lisp.h (CHECK_LIVE_WINDOW): New predicate.
Jim Blandy <jimb@redhat.com>
parents:
1306
diff
changeset
|
1319 |
89ac471c745c
* lisp.h (CHECK_LIVE_WINDOW): New predicate.
Jim Blandy <jimb@redhat.com>
parents:
1306
diff
changeset
|
1320 #define CHECK_LIVE_WINDOW(x, i) \ |
3793
374fc1ccdc3f
* lisp.h (CHECK_LIST, CHECK_STRING, CHECK_CONS, CHECK_SYMBOL,
Jim Blandy <jimb@redhat.com>
parents:
3785
diff
changeset
|
1321 do { \ |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1322 if (!WINDOWP ((x)) \ |
1442
89ac471c745c
* lisp.h (CHECK_LIVE_WINDOW): New predicate.
Jim Blandy <jimb@redhat.com>
parents:
1306
diff
changeset
|
1323 || NILP (XWINDOW ((x))->buffer)) \ |
2210
22d78dbb3cc7
Rename `live-window-p' to `window-live-p', for consistency with
Jim Blandy <jimb@redhat.com>
parents:
2187
diff
changeset
|
1324 x = wrong_type_argument (Qwindow_live_p, (x)); \ |
3793
374fc1ccdc3f
* lisp.h (CHECK_LIST, CHECK_STRING, CHECK_CONS, CHECK_SYMBOL,
Jim Blandy <jimb@redhat.com>
parents:
3785
diff
changeset
|
1325 } while (0) |
1442
89ac471c745c
* lisp.h (CHECK_LIVE_WINDOW): New predicate.
Jim Blandy <jimb@redhat.com>
parents:
1306
diff
changeset
|
1326 |
302 | 1327 #define CHECK_PROCESS(x, i) \ |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1328 do { if (!PROCESSP ((x))) x = wrong_type_argument (Qprocessp, (x)); } while (0) |
302 | 1329 |
1330 #define CHECK_NUMBER(x, i) \ | |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1331 do { if (!INTEGERP ((x))) x = wrong_type_argument (Qintegerp, (x)); } while (0) |
302 | 1332 |
1333 #define CHECK_NATNUM(x, i) \ | |
9943 | 1334 do { if (!NATNUMP (x)) x = wrong_type_argument (Qwholenump, (x)); } while (0) |
302 | 1335 |
1336 #define CHECK_MARKER(x, i) \ | |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1337 do { if (!MARKERP ((x))) x = wrong_type_argument (Qmarkerp, (x)); } while (0) |
302 | 1338 |
1339 #define CHECK_NUMBER_COERCE_MARKER(x, i) \ | |
9292 | 1340 do { if (MARKERP ((x))) XSETFASTINT (x, marker_position (x)); \ |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1341 else if (!INTEGERP ((x))) x = wrong_type_argument (Qinteger_or_marker_p, (x)); } while (0) |
302 | 1342 |
1343 #define XFLOATINT(n) extract_float((n)) | |
1344 | |
1345 #define CHECK_FLOAT(x, i) \ | |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1346 do { if (!FLOATP (x)) \ |
3793
374fc1ccdc3f
* lisp.h (CHECK_LIST, CHECK_STRING, CHECK_CONS, CHECK_SYMBOL,
Jim Blandy <jimb@redhat.com>
parents:
3785
diff
changeset
|
1347 x = wrong_type_argument (Qfloatp, (x)); } while (0) |
302 | 1348 |
1349 #define CHECK_NUMBER_OR_FLOAT(x, i) \ | |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1350 do { if (!FLOATP (x) && !INTEGERP (x)) \ |
3793
374fc1ccdc3f
* lisp.h (CHECK_LIST, CHECK_STRING, CHECK_CONS, CHECK_SYMBOL,
Jim Blandy <jimb@redhat.com>
parents:
3785
diff
changeset
|
1351 x = wrong_type_argument (Qnumberp, (x)); } while (0) |
302 | 1352 |
1353 #define CHECK_NUMBER_OR_FLOAT_COERCE_MARKER(x, i) \ | |
9292 | 1354 do { if (MARKERP (x)) XSETFASTINT (x, marker_position (x)); \ |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1355 else if (!INTEGERP (x) && !FLOATP (x)) \ |
3793
374fc1ccdc3f
* lisp.h (CHECK_LIST, CHECK_STRING, CHECK_CONS, CHECK_SYMBOL,
Jim Blandy <jimb@redhat.com>
parents:
3785
diff
changeset
|
1356 x = wrong_type_argument (Qnumber_or_marker_p, (x)); } while (0) |
302 | 1357 |
2780
cfe7659bbc05
* lisp.h (Lisp_Overlay): New tag.
Jim Blandy <jimb@redhat.com>
parents:
2728
diff
changeset
|
1358 #define CHECK_OVERLAY(x, i) \ |
9150
642bbaf7c3fc
(BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents:
9099
diff
changeset
|
1359 do { if (!OVERLAYP ((x))) x = wrong_type_argument (Qoverlayp, (x));} while (0) |
2780
cfe7659bbc05
* lisp.h (Lisp_Overlay): New tag.
Jim Blandy <jimb@redhat.com>
parents:
2728
diff
changeset
|
1360 |
302 | 1361 /* Cast pointers to this type to compare them. Some machines want int. */ |
1362 #ifndef PNTR_COMPARISON_TYPE | |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
1363 #define PNTR_COMPARISON_TYPE EMACS_UINT |
302 | 1364 #endif |
1365 | |
1366 /* Define a built-in function for calling from Lisp. | |
1367 `lname' should be the name to give the function in Lisp, | |
1368 as a null-terminated C string. | |
1369 `fnname' should be the name of the function in C. | |
1370 By convention, it starts with F. | |
1371 `sname' should be the name for the C constant structure | |
1372 that records information on this function for internal use. | |
1373 By convention, it should be the same as `fnname' but with S instead of F. | |
1374 It's too bad that C macros can't compute this from `fnname'. | |
1375 `minargs' should be a number, the minimum number of arguments allowed. | |
1376 `maxargs' should be a number, the maximum number of arguments allowed, | |
1377 or else MANY or UNEVALLED. | |
1378 MANY means pass a vector of evaluated arguments, | |
1379 in the form of an integer number-of-arguments | |
1380 followed by the address of a vector of Lisp_Objects | |
1381 which contains the argument values. | |
1382 UNEVALLED means pass the list of unevaluated arguments | |
1383 `prompt' says how to read arguments for an interactive call. | |
9904 | 1384 See the doc string for `interactive'. |
302 | 1385 A null string means call interactively with no arguments. |
9904 | 1386 `doc' is documentation for the user. */ |
302 | 1387 |
8631
232f6277bb8a
(DEFUN): Check USE_NONANSI_DEFUN.
Richard M. Stallman <rms@gnu.org>
parents:
8560
diff
changeset
|
1388 #if !defined (__STDC__) || defined (USE_NONANSI_DEFUN) |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1389 #define DEFUN(lname, fnname, sname, minargs, maxargs, prompt, doc) \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1390 Lisp_Object fnname (); \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1391 struct Lisp_Subr sname = \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1392 { PVEC_SUBR | (sizeof (struct Lisp_Subr) / sizeof (EMACS_INT)), \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1393 fnname, minargs, maxargs, lname, prompt, 0}; \ |
302 | 1394 Lisp_Object fnname |
1395 | |
5241
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1396 #else |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1397 |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1398 /* This version of DEFUN declares a function prototype with the right |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
1399 arguments, so we can catch errors with maxargs at compile-time. */ |
10292
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1400 #define DEFUN(lname, fnname, sname, minargs, maxargs, prompt, doc) \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1401 Lisp_Object fnname DEFUN_ARGS_ ## maxargs ; \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1402 struct Lisp_Subr sname = \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1403 { PVEC_SUBR | (sizeof (struct Lisp_Subr) / sizeof (EMACS_INT)), \ |
c467ec24a6bd
(VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents:
10247
diff
changeset
|
1404 fnname, minargs, maxargs, lname, prompt, 0}; \ |
5241
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1405 Lisp_Object fnname |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1406 |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1407 /* Note that the weird token-substitution semantics of ANSI C makes |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
1408 this work for MANY and UNEVALLED. */ |
5241
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1409 #define DEFUN_ARGS_MANY (int, Lisp_Object *) |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1410 #define DEFUN_ARGS_UNEVALLED (Lisp_Object) |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1411 #define DEFUN_ARGS_0 (void) |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1412 #define DEFUN_ARGS_1 (Lisp_Object) |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1413 #define DEFUN_ARGS_2 (Lisp_Object, Lisp_Object) |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1414 #define DEFUN_ARGS_3 (Lisp_Object, Lisp_Object, Lisp_Object) |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1415 #define DEFUN_ARGS_4 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object) |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1416 #define DEFUN_ARGS_5 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, \ |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1417 Lisp_Object) |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1418 #define DEFUN_ARGS_6 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, \ |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1419 Lisp_Object, Lisp_Object) |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1420 #define DEFUN_ARGS_7 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, \ |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1421 Lisp_Object, Lisp_Object, Lisp_Object) |
19547
70d930b49bb4
(DEFUN_ARGS_8): New macro.
Kenichi Handa <handa@m17n.org>
parents:
19224
diff
changeset
|
1422 #define DEFUN_ARGS_8 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, \ |
70d930b49bb4
(DEFUN_ARGS_8): New macro.
Kenichi Handa <handa@m17n.org>
parents:
19224
diff
changeset
|
1423 Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object) |
5241
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1424 #endif |
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
1425 |
302 | 1426 /* defsubr (Sname); |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
1427 is how we define the symbol for function `name' at start-up time. */ |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1428 extern void defsubr P_ ((struct Lisp_Subr *)); |
302 | 1429 |
1430 #define MANY -2 | |
1431 #define UNEVALLED -1 | |
1432 | |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1433 extern void defvar_lisp P_ ((char *, Lisp_Object *)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1434 extern void defvar_lisp_nopro P_ ((char *, Lisp_Object *)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1435 extern void defvar_bool P_ ((char *, int *)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1436 extern void defvar_int P_ ((char *, int *)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1437 extern void defvar_per_buffer P_ ((char *, Lisp_Object *, Lisp_Object, char *)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1438 extern void defvar_kboard P_ ((char *, int)); |
302 | 1439 |
1440 /* Macros we use to define forwarded Lisp variables. | |
1441 These are used in the syms_of_FILENAME functions. */ | |
1442 | |
1443 #define DEFVAR_LISP(lname, vname, doc) defvar_lisp (lname, vname) | |
1444 #define DEFVAR_LISP_NOPRO(lname, vname, doc) defvar_lisp_nopro (lname, vname) | |
1445 #define DEFVAR_BOOL(lname, vname, doc) defvar_bool (lname, vname) | |
1446 #define DEFVAR_INT(lname, vname, doc) defvar_int (lname, vname) | |
999 | 1447 #define DEFVAR_PER_BUFFER(lname, vname, type, doc) \ |
1448 defvar_per_buffer (lname, vname, type, 0) | |
11012
31d88266ed12
(struct KBOARD, MULTI_KBOARD, current_kboard, all_kboards,
Karl Heuer <kwzh@gnu.org>
parents:
10944
diff
changeset
|
1449 #define DEFVAR_KBOARD(lname, vname, doc) \ |
31d88266ed12
(struct KBOARD, MULTI_KBOARD, current_kboard, all_kboards,
Karl Heuer <kwzh@gnu.org>
parents:
10944
diff
changeset
|
1450 defvar_kboard (lname, \ |
31d88266ed12
(struct KBOARD, MULTI_KBOARD, current_kboard, all_kboards,
Karl Heuer <kwzh@gnu.org>
parents:
10944
diff
changeset
|
1451 (int)((char *)(¤t_kboard->vname) \ |
31d88266ed12
(struct KBOARD, MULTI_KBOARD, current_kboard, all_kboards,
Karl Heuer <kwzh@gnu.org>
parents:
10944
diff
changeset
|
1452 - (char *)current_kboard)) |
302 | 1453 |
1197
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1454 /* Structure for recording Lisp call stack for backtrace purposes. */ |
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1455 |
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1456 /* The special binding stack holds the outer values of variables while |
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1457 they are bound by a function application or a let form, stores the |
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1458 code to be executed for Lisp unwind-protect forms, and stores the C |
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1459 functions to be called for record_unwind_protect. |
302 | 1460 |
1197
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1461 If func is non-zero, undoing this binding applies func to old_value; |
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1462 This implements record_unwind_protect. |
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1463 If func is zero and symbol is nil, undoing this binding evaluates |
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1464 the list of forms in old_value; this implements Lisp's unwind-protect |
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1465 form. |
27292
d0aba668c5af
(set_internal): Enter the new arg.
Richard M. Stallman <rms@gnu.org>
parents:
27141
diff
changeset
|
1466 |
d0aba668c5af
(set_internal): Enter the new arg.
Richard M. Stallman <rms@gnu.org>
parents:
27141
diff
changeset
|
1467 Otherwise, the element is a variable binding. |
d0aba668c5af
(set_internal): Enter the new arg.
Richard M. Stallman <rms@gnu.org>
parents:
27141
diff
changeset
|
1468 If the symbol field is a symbol, it is an ordinary variable binding. |
27779 | 1469 Otherwise, it should be a structure (SYMBOL BUFFER . BUFFER), |
1470 which represents having bound BUFFER's local value, | |
1471 or (SYMBOL nil . BUFFER), which represents having bound the default | |
1472 value when BUFFER was current (buffer not having any local binding | |
1473 for SYMBOL). */ | |
27292
d0aba668c5af
(set_internal): Enter the new arg.
Richard M. Stallman <rms@gnu.org>
parents:
27141
diff
changeset
|
1474 |
302 | 1475 struct specbinding |
1476 { | |
1477 Lisp_Object symbol, old_value; | |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1478 Lisp_Object (*func) P_ ((Lisp_Object)); |
302 | 1479 Lisp_Object unused; /* Dividing by 16 is faster than by 12 */ |
1480 }; | |
1481 | |
1482 extern struct specbinding *specpdl; | |
1483 extern struct specbinding *specpdl_ptr; | |
1484 extern int specpdl_size; | |
1485 | |
1197
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1486 /* Everything needed to describe an active condition case. */ |
302 | 1487 struct handler |
1488 { | |
1197
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1489 /* The handler clauses and variable from the condition-case form. */ |
302 | 1490 Lisp_Object handler; |
1491 Lisp_Object var; | |
6131
854e14ecfa93
(struct handler): New field chosen_clause.
Richard M. Stallman <rms@gnu.org>
parents:
6094
diff
changeset
|
1492 /* Fsignal stores here the condition-case clause that applies, |
854e14ecfa93
(struct handler): New field chosen_clause.
Richard M. Stallman <rms@gnu.org>
parents:
6094
diff
changeset
|
1493 and Fcondition_case thus knows which clause to run. */ |
854e14ecfa93
(struct handler): New field chosen_clause.
Richard M. Stallman <rms@gnu.org>
parents:
6094
diff
changeset
|
1494 Lisp_Object chosen_clause; |
1197
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1495 |
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1496 /* Used to effect the longjump out to the handler. */ |
302 | 1497 struct catchtag *tag; |
1197
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1498 |
4eee4dc734bb
* lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents:
1184
diff
changeset
|
1499 /* The next enclosing handler. */ |
302 | 1500 struct handler *next; |
1501 }; | |
1502 | |
1503 extern struct handler *handlerlist; | |
1504 | |
1505 extern struct catchtag *catchlist; | |
1506 extern struct backtrace *backtrace_list; | |
1507 | |
6131
854e14ecfa93
(struct handler): New field chosen_clause.
Richard M. Stallman <rms@gnu.org>
parents:
6094
diff
changeset
|
1508 extern Lisp_Object memory_signal_data; |
854e14ecfa93
(struct handler): New field chosen_clause.
Richard M. Stallman <rms@gnu.org>
parents:
6094
diff
changeset
|
1509 |
302 | 1510 /* An address near the bottom of the stack. |
1511 Tells GC how to save a copy of the stack. */ | |
1512 extern char *stack_bottom; | |
1513 | |
26296
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1514 /* Check quit-flag and quit if it is non-nil. |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1515 Typing C-g does not directly cause a quit; it only sets Vquit_flag. |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1516 So the program needs to do QUIT at times when it is safe to quit. |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1517 Every loop that might run for a long time or might not exit |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1518 ought to do QUIT at least once, at a safe place. |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1519 Unless that is impossible, of course. |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1520 But it is very desirable to avoid creating loops where QUIT is impossible. |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1521 |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1522 Exception: if you set immediate_quit to nonzero, |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1523 then the handler that responds to the C-g does the quit itself. |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1524 This is a good thing to do around a loop that has no side effects |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1525 and (in particular) cannot call arbitrary Lisp code. */ |
302 | 1526 |
26309
8817f3f80755
(QUIT): Give it statement form.
Gerd Moellmann <gerd@gnu.org>
parents:
26296
diff
changeset
|
1527 #define QUIT \ |
8817f3f80755
(QUIT): Give it statement form.
Gerd Moellmann <gerd@gnu.org>
parents:
26296
diff
changeset
|
1528 do { \ |
8817f3f80755
(QUIT): Give it statement form.
Gerd Moellmann <gerd@gnu.org>
parents:
26296
diff
changeset
|
1529 if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \ |
8817f3f80755
(QUIT): Give it statement form.
Gerd Moellmann <gerd@gnu.org>
parents:
26296
diff
changeset
|
1530 { \ |
8817f3f80755
(QUIT): Give it statement form.
Gerd Moellmann <gerd@gnu.org>
parents:
26296
diff
changeset
|
1531 Vquit_flag = Qnil; \ |
8817f3f80755
(QUIT): Give it statement form.
Gerd Moellmann <gerd@gnu.org>
parents:
26296
diff
changeset
|
1532 Fsignal (Qquit, Qnil); \ |
8817f3f80755
(QUIT): Give it statement form.
Gerd Moellmann <gerd@gnu.org>
parents:
26296
diff
changeset
|
1533 } \ |
8817f3f80755
(QUIT): Give it statement form.
Gerd Moellmann <gerd@gnu.org>
parents:
26296
diff
changeset
|
1534 } while (0) |
302 | 1535 |
1536 /* Nonzero if ought to quit now. */ | |
1537 | |
493 | 1538 #define QUITP (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) |
302 | 1539 |
18006
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
1540 /* Variables used locally in the following case handling macros. */ |
18613
614b916ff5bf
Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents:
18115
diff
changeset
|
1541 extern int case_temp1; |
614b916ff5bf
Fix bugs with inappropriate mixing of Lisp_Object with int.
Richard M. Stallman <rms@gnu.org>
parents:
18115
diff
changeset
|
1542 extern Lisp_Object case_temp2; |
18006
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
1543 |
17404
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
1544 /* Current buffer's map from characters to lower-case characters. */ |
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
1545 |
18006
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
1546 #define DOWNCASE_TABLE current_buffer->downcase_table |
17404
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
1547 |
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
1548 /* Current buffer's map from characters to upper-case characters. */ |
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
1549 |
18006
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
1550 #define UPCASE_TABLE current_buffer->upcase_table |
17404
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
1551 |
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
1552 /* Downcase a character, or make no change if that cannot be done. */ |
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
1553 |
18006
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
1554 #define DOWNCASE(CH) \ |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
1555 ((case_temp1 = (CH), \ |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
1556 case_temp2 = CHAR_TABLE_REF (DOWNCASE_TABLE, case_temp1), \ |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
1557 NATNUMP (case_temp2)) \ |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
1558 ? XFASTINT (case_temp2) : case_temp1) |
17404
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
1559 |
302 | 1560 /* 1 if CH is upper case. */ |
1561 | |
18111
4bd5e5e3db42
(concat3, get_truename_buffer): Declare them.
Richard M. Stallman <rms@gnu.org>
parents:
18006
diff
changeset
|
1562 #define UPPERCASEP(CH) (DOWNCASE (CH) != (CH)) |
17404
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
1563 |
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
1564 /* 1 if CH is neither upper nor lower case. */ |
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
1565 |
18006
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
1566 #define NOCASEP(CH) (UPCASE1 (CH) == (CH)) |
302 | 1567 |
1568 /* 1 if CH is lower case. */ | |
1569 | |
17289
83cc6a193391
(CHAR_TABLE_REF): Fix syntax error.
Karl Heuer <kwzh@gnu.org>
parents:
17188
diff
changeset
|
1570 #define LOWERCASEP(CH) (!UPPERCASEP (CH) && !NOCASEP(CH)) |
302 | 1571 |
1572 /* Upcase a character, or make no change if that cannot be done. */ | |
1573 | |
17289
83cc6a193391
(CHAR_TABLE_REF): Fix syntax error.
Karl Heuer <kwzh@gnu.org>
parents:
17188
diff
changeset
|
1574 #define UPCASE(CH) (!UPPERCASEP (CH) ? UPCASE1 (CH) : (CH)) |
302 | 1575 |
1576 /* Upcase a character known to be not upper case. */ | |
1577 | |
18006
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
1578 #define UPCASE1(CH) \ |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
1579 ((case_temp1 = (CH), \ |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
1580 case_temp2 = CHAR_TABLE_REF (UPCASE_TABLE, case_temp1), \ |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
1581 NATNUMP (case_temp2)) \ |
d29a9b467ac9
(CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents:
17871
diff
changeset
|
1582 ? XFASTINT (case_temp2) : case_temp1) |
302 | 1583 |
13241
b1d118fb7b3e
(UPCASE_TABLE): Definition deleted.
Richard M. Stallman <rms@gnu.org>
parents:
13202
diff
changeset
|
1584 extern Lisp_Object Vascii_downcase_table; |
302 | 1585 |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
1586 /* Number of bytes of structure consed since last GC. */ |
302 | 1587 |
1588 extern int consing_since_gc; | |
1589 | |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
1590 /* Threshold for doing another gc. */ |
302 | 1591 |
11726
77a296d0ab90
(gc_cons_threshold): Change back to int.
Richard M. Stallman <rms@gnu.org>
parents:
11680
diff
changeset
|
1592 extern int gc_cons_threshold; |
302 | 1593 |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
1594 /* Structure for recording stack slots that need marking. */ |
302 | 1595 |
1596 /* This is a chain of structures, each of which points at a Lisp_Object variable | |
1597 whose value should be marked in garbage collection. | |
1598 Normally every link of the chain is an automatic variable of a function, | |
1599 and its `val' points to some argument or local variable of the function. | |
1600 On exit to the function, the chain is set back to the value it had on entry. | |
4826 | 1601 This way, no link remains in the chain when the stack frame containing the |
1602 link disappears. | |
302 | 1603 |
1604 Every function that can call Feval must protect in this fashion all | |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
1605 Lisp_Object variables whose contents will be used again. */ |
302 | 1606 |
1607 extern struct gcpro *gcprolist; | |
1608 | |
1609 struct gcpro | |
1610 { | |
1611 struct gcpro *next; | |
1612 Lisp_Object *var; /* Address of first protected variable */ | |
1613 int nvars; /* Number of consecutive protected variables */ | |
26296
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1614 #ifdef DEBUG_GCPRO |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1615 int level; |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1616 #endif |
302 | 1617 }; |
1618 | |
27741
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1619 /* Values of GC_MARK_STACK during compilation: |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1620 |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1621 0 Use GCPRO as before |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1622 1 Do the real thing, make GCPROs and UNGCPRO no-ops. |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1623 2 Mark the stack, and check that everything GCPRO'd is |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1624 marked. |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1625 3 Mark using GCPRO's, mark stack last, and count how many |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1626 dead objects are kept alive. */ |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1627 |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1628 |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1629 #define GC_USE_GCPROS_AS_BEFORE 0 |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1630 #define GC_MAKE_GCPROS_NOOPS 1 |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1631 #define GC_MARK_STACK_CHECK_GCPROS 2 |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1632 #define GC_USE_GCPROS_CHECK_ZOMBIES 3 |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1633 |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1634 #ifndef GC_MARK_STACK |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1635 #define GC_MARK_STACK GC_USE_GCPROS_AS_BEFORE |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1636 #endif |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1637 |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1638 #if GC_MARK_STACK == GC_MAKE_GCPROS_NOOPS |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1639 |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1640 #define GCPRO1(varname) ((void) 0) |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1641 #define GCPRO2(varname1, varname2)((void) 0) |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1642 #define GCPRO3(varname1, varname2, varname3) ((void) 0) |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1643 #define GCPRO4(varname1, varname2, varname3, varname4) ((void) 0) |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1644 #define GCPRO5(varname1, varname2, varname3, varname4, varname5) ((void) 0) |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1645 #define UNGCPRO ((void) 0) |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1646 |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1647 #else /* GC_MARK_STACK != GC_MAKE_GCPROS_NOOPS */ |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1648 |
26296
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1649 #ifndef DEBUG_GCPRO |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1650 |
302 | 1651 #define GCPRO1(varname) \ |
1652 {gcpro1.next = gcprolist; gcpro1.var = &varname; gcpro1.nvars = 1; \ | |
1653 gcprolist = &gcpro1; } | |
1654 | |
1655 #define GCPRO2(varname1, varname2) \ | |
1656 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ | |
1657 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ | |
1658 gcprolist = &gcpro2; } | |
1659 | |
1660 #define GCPRO3(varname1, varname2, varname3) \ | |
1661 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ | |
1662 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ | |
1663 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ | |
1664 gcprolist = &gcpro3; } | |
1665 | |
1666 #define GCPRO4(varname1, varname2, varname3, varname4) \ | |
1667 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ | |
1668 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ | |
1669 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ | |
1670 gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \ | |
1671 gcprolist = &gcpro4; } | |
1672 | |
8009
abbe65c17b55
(RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
7906
diff
changeset
|
1673 #define GCPRO5(varname1, varname2, varname3, varname4, varname5) \ |
abbe65c17b55
(RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
7906
diff
changeset
|
1674 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ |
abbe65c17b55
(RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
7906
diff
changeset
|
1675 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ |
abbe65c17b55
(RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
7906
diff
changeset
|
1676 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ |
abbe65c17b55
(RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
7906
diff
changeset
|
1677 gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \ |
abbe65c17b55
(RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
7906
diff
changeset
|
1678 gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \ |
abbe65c17b55
(RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
7906
diff
changeset
|
1679 gcprolist = &gcpro5; } |
abbe65c17b55
(RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
7906
diff
changeset
|
1680 |
302 | 1681 #define UNGCPRO (gcprolist = gcpro1.next) |
1682 | |
26296
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1683 #else |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1684 |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1685 extern int gcpro_level; |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1686 |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1687 #define GCPRO1(varname) \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1688 {gcpro1.next = gcprolist; gcpro1.var = &varname; gcpro1.nvars = 1; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1689 gcpro1.level = gcpro_level++; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1690 gcprolist = &gcpro1; } |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1691 |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1692 #define GCPRO2(varname1, varname2) \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1693 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1694 gcpro1.level = gcpro_level; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1695 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1696 gcpro2.level = gcpro_level++; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1697 gcprolist = &gcpro2; } |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1698 |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1699 #define GCPRO3(varname1, varname2, varname3) \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1700 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1701 gcpro1.level = gcpro_level; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1702 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1703 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1704 gcpro3.level = gcpro_level++; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1705 gcprolist = &gcpro3; } |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1706 |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1707 #define GCPRO4(varname1, varname2, varname3, varname4) \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1708 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1709 gcpro1.level = gcpro_level; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1710 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1711 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1712 gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1713 gcpro4.level = gcpro_level++; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1714 gcprolist = &gcpro4; } |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1715 |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1716 #define GCPRO5(varname1, varname2, varname3, varname4, varname5) \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1717 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1718 gcpro1.level = gcpro_level; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1719 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1720 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1721 gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1722 gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1723 gcpro5.level = gcpro_level++; \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1724 gcprolist = &gcpro5; } |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1725 |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1726 #define UNGCPRO \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1727 ((--gcpro_level != gcpro1.level) \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1728 ? (abort (), 0) \ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1729 : ((gcprolist = gcpro1.next), 0)) |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1730 |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1731 #endif /* DEBUG_GCPRO */ |
27741
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1732 #endif /* GC_MARK_STACK != GC_MAKE_GCPROS_NOOPS */ |
ef732a190ead
(GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents:
27727
diff
changeset
|
1733 |
26296
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1734 |
8560 | 1735 /* Evaluate expr, UNGCPRO, and then return the value of expr. */ |
8009
abbe65c17b55
(RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
7906
diff
changeset
|
1736 #define RETURN_UNGCPRO(expr) \ |
25769
4399d55899d3
(RETURN_UNGCPRO): Use do-while (0) idiom.
Gerd Moellmann <gerd@gnu.org>
parents:
25765
diff
changeset
|
1737 do \ |
8009
abbe65c17b55
(RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
7906
diff
changeset
|
1738 { \ |
abbe65c17b55
(RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
7906
diff
changeset
|
1739 Lisp_Object ret_ungc_val; \ |
abbe65c17b55
(RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
7906
diff
changeset
|
1740 ret_ungc_val = (expr); \ |
abbe65c17b55
(RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
7906
diff
changeset
|
1741 UNGCPRO; \ |
abbe65c17b55
(RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
7906
diff
changeset
|
1742 return ret_ungc_val; \ |
abbe65c17b55
(RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents:
7906
diff
changeset
|
1743 } \ |
25769
4399d55899d3
(RETURN_UNGCPRO): Use do-while (0) idiom.
Gerd Moellmann <gerd@gnu.org>
parents:
25765
diff
changeset
|
1744 while (0) |
26296
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1745 |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1746 /* Call staticpro (&var) to protect static variable `var'. */ |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1747 |
e5c745f5a9fc
(struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents:
26275
diff
changeset
|
1748 void staticpro P_ ((Lisp_Object *)); |
302 | 1749 |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1750 /* Declare a Lisp-callable function. The MAXARGS parameter has the same |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1751 meaning as in the DEFUN macro, and is used to construct a prototype. */ |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1752 #if !defined (__STDC__) || defined (USE_NONANSI_DEFUN) |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1753 #define EXFUN(fnname, maxargs) \ |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1754 extern Lisp_Object fnname () |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1755 #else |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1756 /* We can use the same trick as in the DEFUN macro to generate the |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1757 appropriate prototype. */ |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1758 #define EXFUN(fnname, maxargs) \ |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1759 extern Lisp_Object fnname DEFUN_ARGS_ ## maxargs |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1760 #endif |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1761 |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1762 /* Forward declarations for prototypes. */ |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1763 struct window; |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1764 struct frame; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1765 |
302 | 1766 /* Defined in data.c */ |
1767 extern Lisp_Object Qnil, Qt, Qquote, Qlambda, Qsubr, Qunbound; | |
1768 extern Lisp_Object Qerror_conditions, Qerror_message, Qtop_level; | |
1769 extern Lisp_Object Qerror, Qquit, Qwrong_type_argument, Qargs_out_of_range; | |
1770 extern Lisp_Object Qvoid_variable, Qvoid_function; | |
1771 extern Lisp_Object Qsetting_constant, Qinvalid_read_syntax; | |
1772 extern Lisp_Object Qinvalid_function, Qwrong_number_of_arguments, Qno_catch; | |
1773 extern Lisp_Object Qend_of_file, Qarith_error; | |
1774 extern Lisp_Object Qbeginning_of_buffer, Qend_of_buffer, Qbuffer_read_only; | |
26275
0a50b06a5aa7
Add extern declaration for Qtext_read_only.
Gerd Moellmann <gerd@gnu.org>
parents:
26088
diff
changeset
|
1775 extern Lisp_Object Qmark_inactive, Qtext_read_only; |
302 | 1776 |
2653
d547e1a7eb9b
* lisp.h (CHAR_ALT, CHAR_SUPER, CHAR_HYPER): New constants, in
Jim Blandy <jimb@redhat.com>
parents:
2605
diff
changeset
|
1777 extern Lisp_Object Qrange_error, Qdomain_error, Qsingularity_error; |
d547e1a7eb9b
* lisp.h (CHAR_ALT, CHAR_SUPER, CHAR_HYPER): New constants, in
Jim Blandy <jimb@redhat.com>
parents:
2605
diff
changeset
|
1778 extern Lisp_Object Qoverflow_error, Qunderflow_error; |
2155
3ec142562a65
(Qrange_error, Qdomain_error, Qsingularity_error):
Richard M. Stallman <rms@gnu.org>
parents:
2014
diff
changeset
|
1779 |
6458 | 1780 extern Lisp_Object Qintegerp, Qnumberp, Qnatnump, Qwholenump; |
1781 extern Lisp_Object Qsymbolp, Qlistp, Qconsp; | |
302 | 1782 extern Lisp_Object Qstringp, Qarrayp, Qsequencep, Qbufferp; |
1783 extern Lisp_Object Qchar_or_string_p, Qmarkerp, Qvectorp; | |
706
86cb5db0b6c3
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
695
diff
changeset
|
1784 extern Lisp_Object Qinteger_or_marker_p, Qnumber_or_marker_p; |
13202
b307cd5c259f
(struct Lisp_Char_Table): New slot `purpose'.
Richard M. Stallman <rms@gnu.org>
parents:
13149
diff
changeset
|
1785 extern Lisp_Object Qchar_table_p, Qvector_or_char_table_p; |
706
86cb5db0b6c3
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
695
diff
changeset
|
1786 extern Lisp_Object Qboundp, Qfboundp; |
1306
01d973b5d81b
* lisp.h: Declare Qbuffer_or_string_p.
Joseph Arceneaux <jla@gnu.org>
parents:
1290
diff
changeset
|
1787 extern Lisp_Object Qbuffer_or_string_p; |
302 | 1788 extern Lisp_Object Qcdr; |
1789 | |
1790 extern Lisp_Object Qfloatp, Qinteger_or_floatp, Qinteger_or_float_or_marker_p; | |
1791 | |
765 | 1792 extern Lisp_Object Qframep; |
302 | 1793 |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1794 EXFUN (Feq, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1795 EXFUN (Fnull, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1796 EXFUN (Flistp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1797 EXFUN (Fconsp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1798 EXFUN (Fatom, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1799 EXFUN (Fnlistp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1800 EXFUN (Fintegerp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1801 EXFUN (Fnatnump, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1802 EXFUN (Fsymbolp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1803 EXFUN (Fvectorp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1804 EXFUN (Fstringp, 1); |
20625
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
1805 EXFUN (Fmultibyte_string_p, 1); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1806 EXFUN (Farrayp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1807 EXFUN (Fsequencep, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1808 EXFUN (Fbufferp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1809 EXFUN (Fmarkerp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1810 EXFUN (Fsubrp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1811 EXFUN (Fchar_or_string_p, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1812 EXFUN (Finteger_or_marker_p, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1813 EXFUN (Ffloatp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1814 EXFUN (Finteger_or_floatp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1815 EXFUN (Finteger_or_float_or_marker_p, 1); |
302 | 1816 |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1817 EXFUN (Fcar, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1818 EXFUN (Fcar_safe, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1819 EXFUN (Fcdr, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1820 EXFUN (Fcdr_safe, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1821 EXFUN (Fsetcar, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1822 EXFUN (Fsetcdr, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1823 EXFUN (Fboundp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1824 EXFUN (Ffboundp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1825 EXFUN (Fmakunbound, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1826 EXFUN (Ffmakunbound, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1827 EXFUN (Fsymbol_function, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1828 EXFUN (Fsymbol_plist, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1829 EXFUN (Fsymbol_name, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1830 extern Lisp_Object indirect_function P_ ((Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1831 EXFUN (Findirect_function, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1832 EXFUN (Ffset, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1833 EXFUN (Fsetplist, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1834 EXFUN (Fsymbol_value, 1); |
19224
db9418ba5d32
(Flocal_variable_p, Ffind_operation_coding_system): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
19119
diff
changeset
|
1835 extern Lisp_Object find_symbol_value P_ ((Lisp_Object)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1836 EXFUN (Fset, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1837 EXFUN (Fdefault_value, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1838 EXFUN (Fset_default, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1839 EXFUN (Fdefault_boundp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1840 EXFUN (Fmake_local_variable, 1); |
19224
db9418ba5d32
(Flocal_variable_p, Ffind_operation_coding_system): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
19119
diff
changeset
|
1841 EXFUN (Flocal_variable_p, 2); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1842 EXFUN (Flocal_variable_if_set_p, 2); |
302 | 1843 |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1844 EXFUN (Faref, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1845 EXFUN (Faset, 3); |
302 | 1846 |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1847 EXFUN (Fstring_to_number, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1848 EXFUN (Fnumber_to_string, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1849 EXFUN (Feqlsign, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1850 EXFUN (Fgtr, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1851 EXFUN (Flss, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1852 EXFUN (Fgeq, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1853 EXFUN (Fleq, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1854 EXFUN (Fneq, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1855 EXFUN (Fzerop, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1856 EXFUN (Fplus, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1857 EXFUN (Fminus, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1858 EXFUN (Ftimes, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1859 EXFUN (Fquo, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1860 EXFUN (Frem, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1861 EXFUN (Fmax, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1862 EXFUN (Fmin, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1863 EXFUN (Flogand, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1864 EXFUN (Flogior, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1865 EXFUN (Flogxor, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1866 EXFUN (Flognot, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1867 EXFUN (Flsh, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1868 EXFUN (Fash, 2); |
302 | 1869 |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1870 EXFUN (Fadd1, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1871 EXFUN (Fsub1, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1872 |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1873 extern Lisp_Object long_to_cons P_ ((unsigned long)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1874 extern unsigned long cons_to_long P_ ((Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1875 extern void args_out_of_range P_ ((Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1876 extern void args_out_of_range_3 P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1877 extern Lisp_Object wrong_type_argument P_ ((Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1878 extern void store_symval_forwarding P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1879 extern Lisp_Object do_symval_forwarding P_ ((Lisp_Object)); |
27292
d0aba668c5af
(set_internal): Enter the new arg.
Richard M. Stallman <rms@gnu.org>
parents:
27141
diff
changeset
|
1880 extern Lisp_Object set_internal P_ ((Lisp_Object, Lisp_Object, struct buffer *, int)); |
21931 | 1881 extern void syms_of_data P_ ((void)); |
1882 extern void init_data P_ ((void)); | |
302 | 1883 |
11934
4b82fb5bde27
(Foverlay_start, Foverlay_end): Declare these functions.
Karl Heuer <kwzh@gnu.org>
parents:
11913
diff
changeset
|
1884 /* Defined in cmds.c */ |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1885 EXFUN (Fend_of_line, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1886 EXFUN (Fforward_char, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1887 EXFUN (Fforward_line, 1); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1888 extern int forward_point P_ ((int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1889 extern int internal_self_insert P_ ((int, int)); |
21931 | 1890 extern void syms_of_cmds P_ ((void)); |
1891 extern void keys_of_cmds P_ ((void)); | |
11934
4b82fb5bde27
(Foverlay_start, Foverlay_end): Declare these functions.
Karl Heuer <kwzh@gnu.org>
parents:
11913
diff
changeset
|
1892 |
17037
af637c0168ad
(CHARACTERBITS, GLYPH_MASK_REV_DIR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
16913
diff
changeset
|
1893 /* Defined in coding.c */ |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1894 EXFUN (Fcoding_system_p, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1895 EXFUN (Fcheck_coding_system, 1); |
19757
328233592e3b
(Fread_coding_system): Update decl.
Richard M. Stallman <rms@gnu.org>
parents:
19698
diff
changeset
|
1896 EXFUN (Fread_coding_system, 2); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1897 EXFUN (Fread_non_nil_coding_system, 1); |
19224
db9418ba5d32
(Flocal_variable_p, Ffind_operation_coding_system): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
19119
diff
changeset
|
1898 EXFUN (Ffind_operation_coding_system, MANY); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1899 EXFUN (Fencode_coding_string, 3); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1900 EXFUN (Fdecode_coding_string, 3); |
20723
a0df1e68fc76
(detect_coding_system): Extern it.
Kenichi Handa <handa@m17n.org>
parents:
20708
diff
changeset
|
1901 extern Lisp_Object detect_coding_system P_ ((unsigned char *, int, int)); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
1902 Lisp_Object code_convert_string_norecord P_ ((Lisp_Object, Lisp_Object, int)); |
22791 | 1903 extern void init_coding P_ ((void)); |
21931 | 1904 extern void init_coding_once P_ ((void)); |
1905 extern void syms_of_coding P_ ((void)); | |
25769
4399d55899d3
(RETURN_UNGCPRO): Use do-while (0) idiom.
Gerd Moellmann <gerd@gnu.org>
parents:
25765
diff
changeset
|
1906 extern Lisp_Object code_convert_string_norecord P_ ((Lisp_Object, Lisp_Object, |
4399d55899d3
(RETURN_UNGCPRO): Use do-while (0) idiom.
Gerd Moellmann <gerd@gnu.org>
parents:
25765
diff
changeset
|
1907 int)); |
17037
af637c0168ad
(CHARACTERBITS, GLYPH_MASK_REV_DIR): New macros.
Karl Heuer <kwzh@gnu.org>
parents:
16913
diff
changeset
|
1908 |
19574 | 1909 /* Defined in charset.c */ |
21038
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
1910 extern int nonascii_insert_offset; |
22123
42a41d39c4fb
(Vnonascii_translation_table): Name changed from
Kenichi Handa <handa@m17n.org>
parents:
21931
diff
changeset
|
1911 extern Lisp_Object Vnonascii_translation_table; |
19574 | 1912 EXFUN (Fchar_bytes, 1); |
21515 | 1913 EXFUN (Fchar_width, 1); |
27885 | 1914 EXFUN (Fstring, MANY); |
20625
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
1915 extern int chars_in_text P_ ((unsigned char *, int)); |
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
1916 extern int multibyte_chars_in_text P_ ((unsigned char *, int)); |
20708 | 1917 extern int unibyte_char_to_multibyte P_ ((int)); |
22928
db3229678ef9
(multibyte_char_to_unibyte): Extern it.
Kenichi Handa <handa@m17n.org>
parents:
22925
diff
changeset
|
1918 extern int multibyte_char_to_unibyte P_ ((int, Lisp_Object)); |
21038
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
1919 extern Lisp_Object Qcharset; |
21931 | 1920 extern void init_charset_once P_ ((void)); |
1921 extern void syms_of_charset P_ ((void)); | |
19574 | 1922 |
11934
4b82fb5bde27
(Foverlay_start, Foverlay_end): Declare these functions.
Karl Heuer <kwzh@gnu.org>
parents:
11913
diff
changeset
|
1923 /* Defined in syntax.c */ |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1924 EXFUN (Fforward_word, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1925 EXFUN (Fskip_chars_forward, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1926 EXFUN (Fskip_chars_backward, 2); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1927 EXFUN (Fsyntax_table_p, 1); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1928 EXFUN (Fsyntax_table, 0); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
1929 EXFUN (Fset_syntax_table, 1); |
21931 | 1930 extern void init_syntax_once P_ ((void)); |
1931 extern void syms_of_syntax P_ ((void)); | |
11934
4b82fb5bde27
(Foverlay_start, Foverlay_end): Declare these functions.
Karl Heuer <kwzh@gnu.org>
parents:
11913
diff
changeset
|
1932 |
302 | 1933 /* Defined in fns.c */ |
28480
cbe58003b232
(larger_vector): Add prototype.
Gerd Moellmann <gerd@gnu.org>
parents:
28430
diff
changeset
|
1934 extern Lisp_Object larger_vector P_ ((Lisp_Object, int, Lisp_Object)); |
25765
416e6af8f06a
Add prototype for shrink_regexp_cache,
Gerd Moellmann <gerd@gnu.org>
parents:
25759
diff
changeset
|
1935 extern void sweep_weak_hash_tables P_ ((void)); |
302 | 1936 extern Lisp_Object Qstring_lessp; |
1937 extern Lisp_Object Vfeatures; | |
26865
87623e53b7c6
(QCtest, QCweakness, Qequal): Extern them.
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
1938 extern Lisp_Object QCtest, QCweakness, Qequal; |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1939 unsigned sxhash P_ ((Lisp_Object, int)); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1940 Lisp_Object make_hash_table P_ ((Lisp_Object, Lisp_Object, Lisp_Object, |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1941 Lisp_Object, Lisp_Object, Lisp_Object, |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1942 Lisp_Object)); |
25366
78de9d041747
Add prototype for copy_hash_table and Fcopy_hash_table.
Gerd Moellmann <gerd@gnu.org>
parents:
25353
diff
changeset
|
1943 Lisp_Object copy_hash_table P_ ((struct Lisp_Hash_Table *)); |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1944 int hash_lookup P_ ((struct Lisp_Hash_Table *, Lisp_Object, unsigned *)); |
26865
87623e53b7c6
(QCtest, QCweakness, Qequal): Extern them.
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
1945 int hash_put P_ ((struct Lisp_Hash_Table *, Lisp_Object, Lisp_Object, |
87623e53b7c6
(QCtest, QCweakness, Qequal): Extern them.
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
1946 unsigned)); |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1947 void hash_remove P_ ((struct Lisp_Hash_Table *, Lisp_Object)); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1948 void hash_clear P_ ((struct Lisp_Hash_Table *)); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1949 void remove_hash_entry P_ ((struct Lisp_Hash_Table *, int)); |
25748
6fddda6e635e
Add prototype for uninterrupt_malloc, memory_warnings,
Gerd Moellmann <gerd@gnu.org>
parents:
25737
diff
changeset
|
1950 extern void init_fns P_ ((void)); |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1951 EXFUN (Fsxhash, 1); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1952 EXFUN (Fmake_hash_table, MANY); |
25366
78de9d041747
Add prototype for copy_hash_table and Fcopy_hash_table.
Gerd Moellmann <gerd@gnu.org>
parents:
25353
diff
changeset
|
1953 EXFUN (Fcopy_hash_table, 1); |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1954 EXFUN (Fhash_table_count, 1); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1955 EXFUN (Fhash_table_rehash_size, 1); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1956 EXFUN (Fhash_table_rehash_threshold, 1); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1957 EXFUN (Fhash_table_size, 1); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1958 EXFUN (Fhash_table_test, 1); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1959 EXFUN (Fhash_table_weak, 1); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1960 EXFUN (Fhash_table_p, 1); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1961 EXFUN (Fclrhash, 1); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1962 EXFUN (Fgethash, 3); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1963 EXFUN (Fputhash, 3); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1964 EXFUN (Fremhash, 2); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1965 EXFUN (Fmaphash, 2); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1966 EXFUN (Fdefine_hash_table_test, 3); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
1967 |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1968 EXFUN (Fidentity, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1969 EXFUN (Frandom, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1970 EXFUN (Flength, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1971 EXFUN (Fsafe_length, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1972 EXFUN (Fappend, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1973 EXFUN (Fconcat, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1974 EXFUN (Fvconcat, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1975 EXFUN (Fcopy_sequence, 1); |
21038
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
1976 EXFUN (Fstring_make_multibyte, 1); |
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
1977 EXFUN (Fstring_make_unibyte, 1); |
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
1978 EXFUN (Fstring_as_multibyte, 1); |
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
1979 EXFUN (Fstring_as_unibyte, 1); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1980 EXFUN (Fsubstring, 3); |
20625
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
1981 extern Lisp_Object substring_both P_ ((Lisp_Object, int, int, int, int)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1982 EXFUN (Fnth, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1983 EXFUN (Fnthcdr, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1984 EXFUN (Fmemq, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1985 EXFUN (Fassq, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1986 EXFUN (Fassoc, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1987 EXFUN (Felt, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1988 EXFUN (Fmember, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1989 EXFUN (Frassq, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1990 EXFUN (Fdelq, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1991 EXFUN (Fsort, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1992 EXFUN (Freverse, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1993 EXFUN (Fnreverse, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1994 EXFUN (Fget, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1995 EXFUN (Fput, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1996 EXFUN (Fequal, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1997 EXFUN (Ffillarray, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1998 EXFUN (Fnconc, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
1999 EXFUN (Fmapcar, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2000 EXFUN (Fmapconcat, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2001 EXFUN (Fy_or_n_p, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2002 extern Lisp_Object do_yes_or_no_p P_ ((Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2003 EXFUN (Ffeaturep, 1); |
23772
afe440aabd55
(Frequire): Update declaration.
Kenichi Handa <handa@m17n.org>
parents:
23721
diff
changeset
|
2004 EXFUN (Frequire, 3); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2005 EXFUN (Fprovide, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2006 extern Lisp_Object concat2 P_ ((Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2007 extern Lisp_Object concat3 P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2008 extern Lisp_Object nconc2 P_ ((Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2009 extern Lisp_Object assq_no_quit P_ ((Lisp_Object, Lisp_Object)); |
27885 | 2010 extern void clear_string_char_byte_cache P_ ((void)); |
20625
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
2011 extern int string_char_to_byte P_ ((Lisp_Object, int)); |
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
2012 extern int string_byte_to_char P_ ((Lisp_Object, int)); |
21515 | 2013 extern Lisp_Object string_make_multibyte P_ ((Lisp_Object)); |
2014 extern Lisp_Object string_make_unibyte P_ ((Lisp_Object)); | |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2015 EXFUN (Fcopy_alist, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2016 EXFUN (Fplist_get, 2); |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
2017 EXFUN (Fplist_put, 3); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2018 EXFUN (Fset_char_table_parent, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2019 EXFUN (Fchar_table_extra_slot, 2); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2020 EXFUN (Fset_char_table_extra_slot, 3); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2021 EXFUN (Frassoc, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2022 EXFUN (Fstring_equal, 2); |
21842
870b55420529
Declare Fcompare_strings.
Andreas Schwab <schwab@suse.de>
parents:
21826
diff
changeset
|
2023 EXFUN (Fcompare_strings, 7); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2024 EXFUN (Fstring_lessp, 2); |
21515 | 2025 extern int char_table_translate P_ ((Lisp_Object, int)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2026 extern void map_char_table P_ ((void (*) (Lisp_Object, Lisp_Object, Lisp_Object), |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2027 Lisp_Object, Lisp_Object, Lisp_Object, int, |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2028 Lisp_Object *)); |
21931 | 2029 extern void syms_of_fns P_ ((void)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2030 |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2031 /* Defined in floatfns.c */ |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2032 extern double extract_float P_ ((Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2033 EXFUN (Ffloat, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2034 EXFUN (Ftruncate, 2); |
21931 | 2035 extern void init_floatfns P_ ((void)); |
2036 extern void syms_of_floatfns P_ ((void)); | |
302 | 2037 |
10396
47938020b39d
Use large constants for Lisp_Misc_Type.
Karl Heuer <kwzh@gnu.org>
parents:
10387
diff
changeset
|
2038 /* Defined in insdel.c */ |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2039 extern void move_gap P_ ((int)); |
20559
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
2040 extern void move_gap_both P_ ((int, int)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2041 extern void make_gap P_ ((int)); |
20625
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
2042 extern int copy_text P_ ((unsigned char *, unsigned char *, int, int, int)); |
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
2043 extern int count_size_as_multibyte P_ ((unsigned char *, int)); |
21515 | 2044 extern int count_combining_before P_ ((unsigned char *, int, int, int)); |
2045 extern int count_combining_after P_ ((unsigned char *, int, int, int)); | |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2046 extern void insert P_ ((unsigned char *, int)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2047 extern void insert_and_inherit P_ ((unsigned char *, int)); |
20559
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
2048 extern void insert_1 P_ ((unsigned char *, int, int, int, int)); |
20625
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
2049 extern void insert_1_both P_ ((unsigned char *, int, int, int, int, int)); |
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
2050 extern void insert_from_string P_ ((Lisp_Object, int, int, int, int, int)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2051 extern void insert_from_buffer P_ ((struct buffer *, int, int, int)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2052 extern void insert_char P_ ((int)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2053 extern void insert_string P_ ((char *)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2054 extern void insert_before_markers P_ ((unsigned char *, int)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2055 extern void insert_before_markers_and_inherit P_ ((unsigned char *, int)); |
20625
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
2056 extern void insert_from_string_before_markers P_ ((Lisp_Object, int, int, int, int, int)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2057 extern void del_range P_ ((int, int)); |
26742
936b39bd05b4
* editfns.c (Fdelete_and_extract_region): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26603
diff
changeset
|
2058 extern Lisp_Object del_range_1 P_ ((int, int, int, int)); |
20559
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
2059 extern void del_range_byte P_ ((int, int, int)); |
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
2060 extern void del_range_both P_ ((int, int, int, int, int)); |
26742
936b39bd05b4
* editfns.c (Fdelete_and_extract_region): New function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
26603
diff
changeset
|
2061 extern Lisp_Object del_range_2 P_ ((int, int, int, int, int)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2062 extern void modify_region P_ ((struct buffer *, int, int)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2063 extern void prepare_to_modify_buffer P_ ((int, int, int *)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2064 extern void signal_before_change P_ ((int, int, int *)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2065 extern void signal_after_change P_ ((int, int, int)); |
21322
f93df7bbcead
(adjust_after_replace, adjust_after_insert): Extern them.
Kenichi Handa <handa@m17n.org>
parents:
21282
diff
changeset
|
2066 extern void adjust_after_replace P_ ((int, int, Lisp_Object, int, int)); |
f93df7bbcead
(adjust_after_replace, adjust_after_insert): Extern them.
Kenichi Handa <handa@m17n.org>
parents:
21282
diff
changeset
|
2067 extern void adjust_after_insert P_ ((int, int, int, int, int)); |
21276 | 2068 extern void replace_range P_ ((int, int, Lisp_Object, int, int, int)); |
21931 | 2069 extern void syms_of_insdel P_ ((void)); |
10396
47938020b39d
Use large constants for Lisp_Misc_Type.
Karl Heuer <kwzh@gnu.org>
parents:
10387
diff
changeset
|
2070 |
16133 | 2071 /* Defined in dispnew.c */ |
25672
68068da11161
(selected_frame): Add external declaration.
Gerd Moellmann <gerd@gnu.org>
parents:
25556
diff
changeset
|
2072 extern Lisp_Object selected_frame; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2073 EXFUN (Fding, 1); |
25450
b5c133b3bfa0
Add declarations for some functions.
Andreas Schwab <schwab@suse.de>
parents:
25421
diff
changeset
|
2074 EXFUN (Fredraw_frame, 1); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2075 EXFUN (Fredraw_display, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2076 EXFUN (Fsleep_for, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2077 EXFUN (Fsit_for, 3); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2078 extern Lisp_Object sit_for P_ ((int, int, int, int, int)); |
21931 | 2079 extern void init_display P_ ((void)); |
2080 extern void syms_of_display P_ ((void)); | |
25786
5ccfb99a7e21
Add prototype for safe_bcopy, fatal.
Gerd Moellmann <gerd@gnu.org>
parents:
25769
diff
changeset
|
2081 extern void safe_bcopy P_ ((char *, char *, int)); |
16133 | 2082 |
10396
47938020b39d
Use large constants for Lisp_Misc_Type.
Karl Heuer <kwzh@gnu.org>
parents:
10387
diff
changeset
|
2083 /* Defined in xdisp.c */ |
22541
c0e254b26492
(Qinhibit_redisplay): Declared.
Karl Heuer <kwzh@gnu.org>
parents:
22418
diff
changeset
|
2084 extern Lisp_Object Qinhibit_redisplay; |
11191 | 2085 extern Lisp_Object Vmessage_log_max; |
20625
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
2086 extern int message_enable_multibyte; |
25353 | 2087 extern Lisp_Object echo_area_buffer[2]; |
25748
6fddda6e635e
Add prototype for uninterrupt_malloc, memory_warnings,
Gerd Moellmann <gerd@gnu.org>
parents:
25737
diff
changeset
|
2088 extern void check_message_stack P_ ((void)); |
25353 | 2089 extern void setup_echo_area_for_printing P_ ((int)); |
2090 extern int push_message P_ ((void)); | |
2091 extern void pop_message P_ ((void)); | |
2092 extern void restore_message P_ ((void)); | |
2093 extern Lisp_Object current_message P_ ((void)); | |
2094 extern void set_message P_ ((char *s, Lisp_Object, int, int)); | |
2095 extern void clear_message P_ ((int, int)); | |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2096 extern void message P_ ((/* char *, ... */)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2097 extern void message_nolog P_ ((/* char *, ... */)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2098 extern void message1 P_ ((char *)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2099 extern void message1_nolog P_ ((char *)); |
20625
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
2100 extern void message2 P_ ((char *, int, int)); |
20499
693dbc5a2190
(message2_nolog): Fix arg types.
Richard M. Stallman <rms@gnu.org>
parents:
20377
diff
changeset
|
2101 extern void message2_nolog P_ ((char *, int, int)); |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
2102 extern void message3 P_ ((Lisp_Object, int, int)); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
2103 extern void message3_nolog P_ ((Lisp_Object, int, int)); |
20625
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
2104 extern void message_dolog P_ ((char *, int, int, int)); |
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
2105 extern void message_with_string P_ ((char *, Lisp_Object, int)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2106 extern void message_log_maybe_newline P_ ((void)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2107 extern void update_echo_area P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2108 extern void truncate_echo_area P_ ((int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2109 extern void redisplay P_ ((void)); |
26865
87623e53b7c6
(QCtest, QCweakness, Qequal): Extern them.
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
2110 extern int check_point_in_composition |
87623e53b7c6
(QCtest, QCweakness, Qequal): Extern them.
Kenichi Handa <handa@m17n.org>
parents:
26742
diff
changeset
|
2111 P_ ((struct buffer *, int, struct buffer *, int)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2112 extern void redisplay_preserve_echo_area P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2113 extern void mark_window_display_accurate P_ ((Lisp_Object, int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2114 extern int invisible_p P_ ((Lisp_Object, Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2115 extern void prepare_menu_bars P_ ((void)); |
21931 | 2116 extern void syms_of_xdisp P_ ((void)); |
2117 extern void init_xdisp P_ ((void)); | |
10396
47938020b39d
Use large constants for Lisp_Misc_Type.
Karl Heuer <kwzh@gnu.org>
parents:
10387
diff
changeset
|
2118 |
25748
6fddda6e635e
Add prototype for uninterrupt_malloc, memory_warnings,
Gerd Moellmann <gerd@gnu.org>
parents:
25737
diff
changeset
|
2119 /* Defined in vm-limit.c. */ |
28054
d53d22ce7f4b
(P_): Define based on PROTOTYPES, not __STDC__.
Dave Love <fx@gnu.org>
parents:
27885
diff
changeset
|
2120 extern void memory_warnings P_ ((POINTER_TYPE *, void (*warnfun) ())); |
d53d22ce7f4b
(P_): Define based on PROTOTYPES, not __STDC__.
Dave Love <fx@gnu.org>
parents:
27885
diff
changeset
|
2121 |
302 | 2122 /* Defined in alloc.c */ |
27141
d7b1de135a40
Add prototype for allocate_string_data.
Gerd Moellmann <gerd@gnu.org>
parents:
27078
diff
changeset
|
2123 extern void allocate_string_data P_ ((struct Lisp_String *, int, int)); |
25748
6fddda6e635e
Add prototype for uninterrupt_malloc, memory_warnings,
Gerd Moellmann <gerd@gnu.org>
parents:
25737
diff
changeset
|
2124 extern void uninterrupt_malloc P_ ((void)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2125 extern void malloc_warning P_ ((char *)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2126 extern void memory_full P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2127 extern void buffer_memory_full P_ ((void)); |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
2128 extern int survives_gc_p P_ ((Lisp_Object)); |
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
2129 extern void mark_object P_ ((Lisp_Object *)); |
302 | 2130 extern Lisp_Object Vpurify_flag; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2131 EXFUN (Fcons, 2); |
21038
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
2132 EXFUN (list2, 2); |
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
2133 EXFUN (list3, 3); |
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
2134 EXFUN (list4, 4); |
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
2135 EXFUN (list5, 5); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2136 EXFUN (Flist, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2137 EXFUN (Fmake_list, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2138 extern Lisp_Object allocate_misc P_ ((void)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2139 EXFUN (Fmake_vector, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2140 EXFUN (Fvector, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2141 EXFUN (Fmake_symbol, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2142 EXFUN (Fmake_marker, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2143 EXFUN (Fmake_string, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2144 extern Lisp_Object build_string P_ ((char *)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2145 extern Lisp_Object make_string P_ ((char *, int)); |
21515 | 2146 extern Lisp_Object make_unibyte_string P_ ((char *, int)); |
21276 | 2147 extern Lisp_Object make_multibyte_string P_ ((char *, int, int)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2148 extern Lisp_Object make_event_array P_ ((int, Lisp_Object *)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2149 extern Lisp_Object make_uninit_string P_ ((int)); |
20625
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
2150 extern Lisp_Object make_uninit_multibyte_string P_ ((int, int)); |
21276 | 2151 extern Lisp_Object make_string_from_bytes P_ ((char *, int, int)); |
2152 extern Lisp_Object make_specified_string P_ ((char *, int, int, int)); | |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2153 EXFUN (Fpurecopy, 1); |
21276 | 2154 extern Lisp_Object make_pure_string P_ ((char *, int, int, int)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2155 extern Lisp_Object pure_cons P_ ((Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2156 extern Lisp_Object make_pure_vector P_ ((EMACS_INT)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2157 EXFUN (Fgarbage_collect, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2158 EXFUN (Fmake_byte_code, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2159 EXFUN (Fmake_bool_vector, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2160 EXFUN (Fmake_char_table, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2161 extern Lisp_Object make_sub_char_table P_ ((Lisp_Object)); |
13202
b307cd5c259f
(struct Lisp_Char_Table): New slot `purpose'.
Richard M. Stallman <rms@gnu.org>
parents:
13149
diff
changeset
|
2162 extern Lisp_Object Qchar_table_extra_slots; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2163 extern struct Lisp_Vector *allocate_vectorlike P_ ((EMACS_INT)); |
6657
28359458811c
(gc_in_progress): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
6458
diff
changeset
|
2164 extern int gc_in_progress; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2165 extern Lisp_Object make_float P_ ((double)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2166 extern void display_malloc_warning P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2167 extern int inhibit_garbage_collection P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2168 extern void free_marker P_ ((Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2169 extern void free_cons P_ ((struct Lisp_Cons *)); |
21931 | 2170 extern void init_alloc_once P_ ((void)); |
2171 extern void init_alloc P_ ((void)); | |
2172 extern void syms_of_alloc P_ ((void)); | |
27885 | 2173 extern struct buffer * allocate_buffer P_ ((void)); |
302 | 2174 |
2175 /* Defined in print.c */ | |
2176 extern Lisp_Object Vprin1_to_string_buffer; | |
25712
178d6245c681
Add prototype for debug_print.
Gerd Moellmann <gerd@gnu.org>
parents:
25704
diff
changeset
|
2177 extern void debug_print P_ ((Lisp_Object)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2178 EXFUN (Fprin1, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2179 EXFUN (Fprin1_to_string, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2180 EXFUN (Fprinc, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2181 EXFUN (Fterpri, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2182 EXFUN (Fprint, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2183 EXFUN (Ferror_message_string, 1); |
302 | 2184 extern Lisp_Object Vstandard_output, Qstandard_output; |
439 | 2185 extern Lisp_Object Qexternal_debugging_output; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2186 extern void temp_output_buffer_setup P_ ((char *)); |
302 | 2187 extern int print_level, print_escape_newlines; |
2188 extern Lisp_Object Qprint_escape_newlines; | |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2189 extern void write_string P_ ((char *, int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2190 extern void write_string_1 P_ ((char *, int, Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2191 extern void print_error_message P_ ((Lisp_Object, Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2192 extern Lisp_Object internal_with_output_to_temp_buffer |
21515 | 2193 P_ ((char *, Lisp_Object (*) (Lisp_Object), Lisp_Object)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2194 extern void float_to_string P_ ((unsigned char *, double)); |
21931 | 2195 extern void syms_of_print P_ ((void)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2196 |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2197 /* Defined in doprnt.c */ |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2198 extern int doprnt P_ ((char *, int, char *, char *, int, char **)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2199 extern int doprnt_lisp P_ ((char *, int, char *, char *, int, char **)); |
302 | 2200 |
2201 /* Defined in lread.c */ | |
2202 extern Lisp_Object Qvariable_documentation, Qstandard_input; | |
21774
101cc2e8a4b7
Include initial_obarray from lread.c
Richard M. Stallman <rms@gnu.org>
parents:
21711
diff
changeset
|
2203 extern Lisp_Object Vobarray, initial_obarray, Vstandard_input; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2204 EXFUN (Fread, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2205 EXFUN (Fread_from_string, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2206 EXFUN (Fintern, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2207 EXFUN (Fintern_soft, 2); |
19119
e772b77b919e
(Fload): Update declaration.
Richard M. Stallman <rms@gnu.org>
parents:
18732
diff
changeset
|
2208 EXFUN (Fload, 5); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2209 EXFUN (Fget_file_char, 0); |
23061
74a5a99c805e
(Fread_event, Fread_char, Fread_char_exclusive):
Richard M. Stallman <rms@gnu.org>
parents:
22928
diff
changeset
|
2210 EXFUN (Fread_char, 2); |
74a5a99c805e
(Fread_event, Fread_char, Fread_char_exclusive):
Richard M. Stallman <rms@gnu.org>
parents:
22928
diff
changeset
|
2211 EXFUN (Fread_event, 2); |
74a5a99c805e
(Fread_event, Fread_char, Fread_char_exclusive):
Richard M. Stallman <rms@gnu.org>
parents:
22928
diff
changeset
|
2212 extern Lisp_Object read_filtered_event P_ ((int, int, int, int)); |
22418
340060628c47
(Feval_region): Accept 4 args.
Richard M. Stallman <rms@gnu.org>
parents:
22269
diff
changeset
|
2213 EXFUN (Feval_region, 4); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2214 extern Lisp_Object intern P_ ((char *)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2215 extern Lisp_Object make_symbol P_ ((char *)); |
20625
a9c4bf3f4e46
(STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
20569
diff
changeset
|
2216 extern Lisp_Object oblookup P_ ((Lisp_Object, char *, int, int)); |
2605
b3c605e9bb30
(LOADHIST_ATTACH): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
2515
diff
changeset
|
2217 #define LOADHIST_ATTACH(x) \ |
b3c605e9bb30
(LOADHIST_ATTACH): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
2515
diff
changeset
|
2218 if (initialized) Vcurrent_load_list = Fcons (x, Vcurrent_load_list) |
b3c605e9bb30
(LOADHIST_ATTACH): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
2515
diff
changeset
|
2219 extern Lisp_Object Vcurrent_load_list; |
b3c605e9bb30
(LOADHIST_ATTACH): New macro.
Richard M. Stallman <rms@gnu.org>
parents:
2515
diff
changeset
|
2220 extern Lisp_Object Vload_history; |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2221 extern int openp P_ ((Lisp_Object, Lisp_Object, char *, Lisp_Object *, int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2222 extern int isfloat_string P_ ((char *)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2223 extern void map_obarray P_ ((Lisp_Object, void (*) (Lisp_Object, Lisp_Object), |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2224 Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2225 extern void dir_warning P_ ((char *, Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2226 extern void close_load_descs P_ ((void)); |
21931 | 2227 extern void init_obarray P_ ((void)); |
2228 extern void init_lread P_ ((void)); | |
2229 extern void syms_of_lread P_ ((void)); | |
302 | 2230 |
2231 /* Defined in eval.c */ | |
2232 extern Lisp_Object Qautoload, Qexit, Qinteractive, Qcommandp, Qdefun, Qmacro; | |
381 | 2233 extern Lisp_Object Vinhibit_quit, Qinhibit_quit, Vquit_flag; |
302 | 2234 extern Lisp_Object Vmocklisp_arguments, Qmocklisp, Qmocklisp_arguments; |
2235 extern Lisp_Object Vautoload_queue; | |
8995
2281d87b7c91
(Vdebug_on_error): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
8912
diff
changeset
|
2236 extern Lisp_Object Vdebug_on_error; |
12731
cac1b80e43be
Declare hook running functions.
Simon Marshall <simon@gnu.org>
parents:
12653
diff
changeset
|
2237 /* To run a normal hook, use the appropriate function from the list below. |
cac1b80e43be
Declare hook running functions.
Simon Marshall <simon@gnu.org>
parents:
12653
diff
changeset
|
2238 The calling convention: |
cac1b80e43be
Declare hook running functions.
Simon Marshall <simon@gnu.org>
parents:
12653
diff
changeset
|
2239 |
6216
9f7708f75f17
(ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents:
6131
diff
changeset
|
2240 if (!NILP (Vrun_hooks)) |
12731
cac1b80e43be
Declare hook running functions.
Simon Marshall <simon@gnu.org>
parents:
12653
diff
changeset
|
2241 call1 (Vrun_hooks, Qmy_funny_hook); |
cac1b80e43be
Declare hook running functions.
Simon Marshall <simon@gnu.org>
parents:
12653
diff
changeset
|
2242 |
cac1b80e43be
Declare hook running functions.
Simon Marshall <simon@gnu.org>
parents:
12653
diff
changeset
|
2243 should no longer be used. */ |
302 | 2244 extern Lisp_Object Vrun_hooks; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2245 EXFUN (Frun_hooks, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2246 EXFUN (Frun_hook_with_args, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2247 EXFUN (Frun_hook_with_args_until_success, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2248 EXFUN (Frun_hook_with_args_until_failure, MANY); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2249 extern Lisp_Object run_hook_list_with_args P_ ((Lisp_Object, int, Lisp_Object *)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2250 extern void run_hook_with_args_2 P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2251 EXFUN (Fand, UNEVALLED); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2252 EXFUN (For, UNEVALLED); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2253 EXFUN (Fif, UNEVALLED); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2254 EXFUN (Fprogn, UNEVALLED); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2255 EXFUN (Fprog1, UNEVALLED); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2256 EXFUN (Fprog2, UNEVALLED); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2257 EXFUN (Fsetq, UNEVALLED); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2258 EXFUN (Fquote, UNEVALLED); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2259 EXFUN (Fuser_variable_p, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2260 EXFUN (Finteractive_p, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2261 EXFUN (Fdefun, UNEVALLED); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2262 EXFUN (Flet, UNEVALLED); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2263 EXFUN (FletX, UNEVALLED); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2264 EXFUN (Fwhile, UNEVALLED); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2265 EXFUN (Fcatch, UNEVALLED); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2266 EXFUN (Fthrow, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2267 EXFUN (Funwind_protect, UNEVALLED); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2268 EXFUN (Fcondition_case, UNEVALLED); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2269 EXFUN (Fsignal, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2270 EXFUN (Fautoload, 5); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2271 EXFUN (Fcommandp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2272 EXFUN (Feval, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2273 EXFUN (Fapply, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2274 EXFUN (Ffuncall, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2275 EXFUN (Fbacktrace, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2276 extern Lisp_Object apply1 P_ ((Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2277 extern Lisp_Object call0 P_ ((Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2278 extern Lisp_Object call1 P_ ((Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2279 extern Lisp_Object call2 P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2280 extern Lisp_Object call3 P_ ((Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2281 extern Lisp_Object call4 P_ ((Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2282 extern Lisp_Object call5 P_ ((Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2283 extern Lisp_Object call6 P_ ((Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2284 EXFUN (Fdo_auto_save, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2285 extern Lisp_Object apply_lambda P_ ((Lisp_Object, Lisp_Object, int)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2286 extern Lisp_Object internal_catch P_ ((Lisp_Object, Lisp_Object (*) (Lisp_Object), Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2287 extern Lisp_Object internal_condition_case P_ ((Lisp_Object (*) (void), Lisp_Object, Lisp_Object (*) (Lisp_Object))); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2288 extern Lisp_Object internal_condition_case_1 P_ ((Lisp_Object (*) (Lisp_Object), Lisp_Object, Lisp_Object, Lisp_Object (*) (Lisp_Object))); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2289 extern void specbind P_ ((Lisp_Object, Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2290 extern void record_unwind_protect P_ ((Lisp_Object (*) (Lisp_Object), Lisp_Object)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2291 extern Lisp_Object unbind_to P_ ((int, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2292 extern void error P_ ((/* char *, ... */)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2293 extern void do_autoload P_ ((Lisp_Object, Lisp_Object)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2294 extern Lisp_Object un_autoload P_ ((Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2295 EXFUN (Ffetch_bytecode, 1); |
21931 | 2296 extern void init_eval_once P_ ((void)); |
2297 extern void init_eval P_ ((void)); | |
2298 extern void syms_of_eval P_ ((void)); | |
302 | 2299 |
2300 /* Defined in editfns.c */ | |
25353 | 2301 EXFUN (Fcurrent_message, 0); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2302 EXFUN (Fgoto_char, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2303 EXFUN (Fpoint_min_marker, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2304 EXFUN (Fpoint_max_marker, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2305 EXFUN (Fpoint_min, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2306 EXFUN (Fpoint_max, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2307 EXFUN (Fpoint, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2308 EXFUN (Fpoint_marker, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2309 EXFUN (Fmark_marker, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2310 EXFUN (Fline_beginning_position, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2311 EXFUN (Fline_end_position, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2312 EXFUN (Ffollowing_char, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2313 EXFUN (Fprevious_char, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2314 EXFUN (Fchar_after, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2315 EXFUN (Finsert, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2316 EXFUN (Finsert_and_inherit, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2317 EXFUN (Finsert_before_markers, MANY); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2318 EXFUN (Finsert_buffer_substring, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2319 EXFUN (Finsert_char, 3); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2320 extern void insert1 P_ ((Lisp_Object)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2321 EXFUN (Feolp, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2322 EXFUN (Feobp, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2323 EXFUN (Fbolp, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2324 EXFUN (Fbobp, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2325 EXFUN (Fformat, MANY); |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
2326 EXFUN (Fmessage, MANY); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2327 extern Lisp_Object format1 P_ ((/* char *, ... */)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2328 extern Lisp_Object make_buffer_string P_ ((int, int, int)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2329 EXFUN (Fbuffer_substring, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2330 EXFUN (Fbuffer_string, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2331 extern Lisp_Object save_excursion_save P_ ((void)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2332 extern Lisp_Object save_restriction_save P_ ((void)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2333 extern Lisp_Object save_excursion_restore P_ ((Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2334 extern Lisp_Object save_restriction_restore P_ ((Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2335 EXFUN (Fchar_to_string, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2336 EXFUN (Fdelete_region, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2337 EXFUN (Fnarrow_to_region, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2338 EXFUN (Fwiden, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2339 EXFUN (Fuser_login_name, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2340 EXFUN (Fsystem_name, 0); |
25450
b5c133b3bfa0
Add declarations for some functions.
Andreas Schwab <schwab@suse.de>
parents:
25421
diff
changeset
|
2341 EXFUN (Fcurrent_time, 0); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2342 extern int clip_to_bounds P_ ((int, int, int)); |
21282
58268912c0b5
(make_buffer_string, make_buffer_string_both): Extern them.
Kenichi Handa <handa@m17n.org>
parents:
21277
diff
changeset
|
2343 extern Lisp_Object make_buffer_string P_ ((int, int, int)); |
58268912c0b5
(make_buffer_string, make_buffer_string_both): Extern them.
Kenichi Handa <handa@m17n.org>
parents:
21277
diff
changeset
|
2344 extern Lisp_Object make_buffer_string_both P_ ((int, int, int, int, int)); |
21931 | 2345 extern void init_editfns P_ ((void)); |
2346 extern void syms_of_editfns P_ ((void)); | |
25759
e473b3e5cf6d
Declare Fcurrent_message, Fmake_temp_name, read_bytecode_char,
Dave Love <fx@gnu.org>
parents:
25748
diff
changeset
|
2347 EXFUN (Fcurrent_message, 0); |
27078
bedae2f61170
Add extern declaration for Vinhibit_field_text_motion.
Gerd Moellmann <gerd@gnu.org>
parents:
26994
diff
changeset
|
2348 extern Lisp_Object Vinhibit_field_text_motion; |
27885 | 2349 EXFUN (Fconstrain_to_field, 4); |
2350 EXFUN (Ffield_string, 1); | |
2351 EXFUN (Fdelete_field, 1); | |
2352 EXFUN (Ffield_beginning, 2); | |
2353 EXFUN (Ffield_string_no_properties, 1); | |
302 | 2354 |
2355 /* defined in buffer.c */ | |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2356 extern void nsberror P_ ((Lisp_Object)); |
25737
542f95129dd9
Add prototype for no_switch_window.
Gerd Moellmann <gerd@gnu.org>
parents:
25712
diff
changeset
|
2357 extern char *no_switch_window P_ ((Lisp_Object window)); |
25353 | 2358 EXFUN (Fset_buffer_multibyte, 1); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2359 EXFUN (Foverlay_start, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2360 EXFUN (Foverlay_end, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2361 extern void adjust_overlays_for_insert P_ ((int, int)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2362 extern void adjust_overlays_for_delete P_ ((int, int)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2363 extern void fix_overlays_in_range P_ ((int, int)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2364 extern void report_overlay_modification P_ ((Lisp_Object, Lisp_Object, int, |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2365 Lisp_Object, Lisp_Object, Lisp_Object)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2366 extern int overlay_touches_p P_ ((int)); |
3539
a9b1e2a5523b
Don't declare malloc or realloc.
Richard M. Stallman <rms@gnu.org>
parents:
3324
diff
changeset
|
2367 extern Lisp_Object Vbuffer_alist, Vinhibit_read_only; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2368 EXFUN (Fget_buffer, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2369 EXFUN (Fget_buffer_create, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2370 EXFUN (Fset_buffer, 1); |
20708 | 2371 EXFUN (set_buffer_if_live, 1); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2372 EXFUN (Fbarf_if_buffer_read_only, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2373 EXFUN (Fcurrent_buffer, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2374 EXFUN (Fswitch_to_buffer, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2375 EXFUN (Fpop_to_buffer, 3); |
22190
54a0e89d2a48
(frame_buffer_predicate, frame_buffer_list)
Richard M. Stallman <rms@gnu.org>
parents:
22123
diff
changeset
|
2376 EXFUN (Fother_buffer, 3); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2377 EXFUN (Foverlay_get, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2378 EXFUN (Fbuffer_modified_p, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2379 EXFUN (Fset_buffer_modified_p, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2380 EXFUN (Fkill_buffer, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2381 EXFUN (Fkill_all_local_variables, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2382 EXFUN (Fbuffer_disable_undo, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2383 EXFUN (Fbuffer_enable_undo, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2384 EXFUN (Ferase_buffer, 0); |
2780
cfe7659bbc05
* lisp.h (Lisp_Overlay): New tag.
Jim Blandy <jimb@redhat.com>
parents:
2728
diff
changeset
|
2385 extern Lisp_Object Qoverlayp; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2386 extern Lisp_Object get_truename_buffer P_ ((Lisp_Object)); |
302 | 2387 extern struct buffer *all_buffers; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2388 EXFUN (Fprevious_overlay_change, 1); |
21931 | 2389 extern void init_buffer_once P_ ((void)); |
2390 extern void init_buffer P_ ((void)); | |
2391 extern void syms_of_buffer P_ ((void)); | |
2392 extern void keys_of_buffer P_ ((void)); | |
302 | 2393 |
2394 /* defined in marker.c */ | |
2395 | |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2396 EXFUN (Fmarker_position, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2397 EXFUN (Fmarker_buffer, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2398 EXFUN (Fcopy_marker, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2399 EXFUN (Fset_marker, 3); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2400 extern int marker_position P_ ((Lisp_Object)); |
21515 | 2401 extern int marker_byte_position P_ ((Lisp_Object)); |
2402 extern void clear_charpos_cache P_ ((struct buffer *)); | |
2403 extern int charpos_to_bytepos P_ ((int)); | |
2404 extern int buf_charpos_to_bytepos P_ ((struct buffer *, int)); | |
2405 extern int buf_bytepos_to_charpos P_ ((struct buffer *, int)); | |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2406 extern void unchain_marker P_ ((Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2407 extern Lisp_Object set_marker_restricted P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); |
20559
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
2408 extern Lisp_Object set_marker_both P_ ((Lisp_Object, Lisp_Object, int, int)); |
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
2409 extern Lisp_Object set_marker_restricted_both P_ ((Lisp_Object, Lisp_Object, |
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
2410 int, int)); |
21931 | 2411 extern void syms_of_marker P_ ((void)); |
302 | 2412 |
2413 /* Defined in fileio.c */ | |
2414 | |
2415 extern Lisp_Object Qfile_error; | |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2416 EXFUN (Ffind_file_name_handler, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2417 EXFUN (Ffile_name_as_directory, 1); |
25450
b5c133b3bfa0
Add declarations for some functions.
Andreas Schwab <schwab@suse.de>
parents:
25421
diff
changeset
|
2418 EXFUN (Fmake_temp_name, 1); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2419 EXFUN (Fexpand_file_name, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2420 EXFUN (Ffile_name_nondirectory, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2421 EXFUN (Fsubstitute_in_file_name, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2422 EXFUN (Ffile_symlink_p, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2423 EXFUN (Fverify_visited_file_modtime, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2424 EXFUN (Ffile_exists_p, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2425 EXFUN (Ffile_name_absolute_p, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2426 EXFUN (Fdirectory_file_name, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2427 EXFUN (Ffile_name_directory, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2428 extern Lisp_Object expand_and_dir_to_file P_ ((Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2429 EXFUN (Ffile_accessible_directory_p, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2430 EXFUN (Funhandled_file_name_directory, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2431 EXFUN (Ffile_directory_p, 1); |
21038
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
2432 EXFUN (Fwrite_region, 7); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2433 EXFUN (Ffile_readable_p, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2434 EXFUN (Ffile_executable_p, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2435 EXFUN (Fread_file_name, 5); |
25704
71063541d5e3
Declare close_file_unwind.
Andreas Schwab <schwab@suse.de>
parents:
25672
diff
changeset
|
2436 extern Lisp_Object close_file_unwind P_ ((Lisp_Object)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2437 extern void report_file_error P_ ((char *, Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2438 extern int internal_delete_file P_ ((Lisp_Object)); |
21931 | 2439 extern void syms_of_fileio P_ ((void)); |
25759
e473b3e5cf6d
Declare Fcurrent_message, Fmake_temp_name, read_bytecode_char,
Dave Love <fx@gnu.org>
parents:
25748
diff
changeset
|
2440 EXFUN (Fmake_temp_name, 1); |
25748
6fddda6e635e
Add prototype for uninterrupt_malloc, memory_warnings,
Gerd Moellmann <gerd@gnu.org>
parents:
25737
diff
changeset
|
2441 extern void init_fileio_once P_ ((void)); |
302 | 2442 |
2443 /* Defined in abbrev.c */ | |
2444 | |
2445 extern Lisp_Object Vfundamental_mode_abbrev_table; | |
21931 | 2446 extern void syms_of_abbrev P_ ((void)); |
302 | 2447 |
2448 /* defined in search.c */ | |
25765
416e6af8f06a
Add prototype for shrink_regexp_cache,
Gerd Moellmann <gerd@gnu.org>
parents:
25759
diff
changeset
|
2449 extern void shrink_regexp_cache P_ ((void)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2450 EXFUN (Fstring_match, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2451 extern void restore_match_data P_ ((void)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2452 EXFUN (Fmatch_data, 2); |
21199
7da9a3e9d3c8
Fstore_match_data => Fset_match_data.
Richard M. Stallman <rms@gnu.org>
parents:
21147
diff
changeset
|
2453 EXFUN (Fset_match_data, 1); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2454 EXFUN (Fmatch_beginning, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2455 EXFUN (Fmatch_end, 1); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2456 extern int fast_string_match P_ ((Lisp_Object, Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2457 extern int fast_c_string_match_ignore_case P_ ((Lisp_Object, char *)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2458 extern int scan_buffer P_ ((int, int, int, int, int *, int)); |
20559
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
2459 extern int scan_newline P_ ((int, int, int, int, int, int)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2460 extern int find_next_newline P_ ((int, int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2461 extern int find_next_newline_no_quit P_ ((int, int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2462 extern int find_before_next_newline P_ ((int, int, int)); |
21931 | 2463 extern void syms_of_search P_ ((void)); |
302 | 2464 |
2465 /* defined in minibuf.c */ | |
2466 | |
2467 extern Lisp_Object last_minibuf_string; | |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2468 extern void choose_minibuf_frame P_ ((void)); |
21515 | 2469 extern int scmp P_ ((unsigned char *, unsigned char *, int)); |
19547
70d930b49bb4
(DEFUN_ARGS_8): New macro.
Kenichi Handa <handa@m17n.org>
parents:
19224
diff
changeset
|
2470 EXFUN (Fcompleting_read, 8); |
70d930b49bb4
(DEFUN_ARGS_8): New macro.
Kenichi Handa <handa@m17n.org>
parents:
19224
diff
changeset
|
2471 EXFUN (Fread_from_minibuffer, 7); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2472 EXFUN (Fread_variable, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2473 EXFUN (Fread_buffer, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2474 EXFUN (Fread_minibuffer, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2475 EXFUN (Feval_minibuffer, 2); |
19547
70d930b49bb4
(DEFUN_ARGS_8): New macro.
Kenichi Handa <handa@m17n.org>
parents:
19224
diff
changeset
|
2476 EXFUN (Fread_string, 5); |
70d930b49bb4
(DEFUN_ARGS_8): New macro.
Kenichi Handa <handa@m17n.org>
parents:
19224
diff
changeset
|
2477 EXFUN (Fread_no_blanks_input, 3); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2478 extern Lisp_Object get_minibuffer P_ ((int)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2479 extern void temp_echo_area_glyphs P_ ((char *)); |
21931 | 2480 extern void init_minibuf_once P_ ((void)); |
2481 extern void syms_of_minibuf P_ ((void)); | |
2482 extern void keys_of_minibuf P_ ((void)); | |
302 | 2483 |
2484 /* Defined in callint.c */ | |
2485 | |
12114
437964ecfc70
(current_prefix_partial): Deleted.
Karl Heuer <kwzh@gnu.org>
parents:
12093
diff
changeset
|
2486 extern Lisp_Object Qminus, Qplus, Vcurrent_prefix_arg; |
302 | 2487 extern Lisp_Object Vcommand_history; |
15695
597fb46cb2fd
(Qmouse_leave_buffer_hook): Declare it here.
Karl Heuer <kwzh@gnu.org>
parents:
15090
diff
changeset
|
2488 extern Lisp_Object Qcall_interactively, Qmouse_leave_buffer_hook; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2489 EXFUN (Fcall_interactively, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2490 EXFUN (Fprefix_numeric_value, 1); |
21931 | 2491 extern void syms_of_callint P_ ((void)); |
302 | 2492 |
2493 /* defined in casefiddle.c */ | |
2494 | |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2495 EXFUN (Fdowncase, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2496 EXFUN (Fupcase, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2497 EXFUN (Fcapitalize, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2498 EXFUN (Fupcase_region, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2499 EXFUN (Fupcase_initials, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2500 EXFUN (Fupcase_initials_region, 2); |
21931 | 2501 extern void syms_of_casefiddle P_ ((void)); |
2502 extern void keys_of_casefiddle P_ ((void)); | |
302 | 2503 |
16133 | 2504 /* defined in casetab.c */ |
2505 | |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2506 EXFUN (Fset_case_table, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2507 EXFUN (Fset_standard_case_table, 1); |
21931 | 2508 extern void init_casetab_once P_ ((void)); |
2509 extern void syms_of_casetab P_ ((void)); | |
16133 | 2510 |
302 | 2511 /* defined in keyboard.c */ |
2512 | |
2513 extern Lisp_Object Qdisabled; | |
17871
1c5753313c4e
(Vtty_erase_char): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
17714
diff
changeset
|
2514 extern Lisp_Object Vtty_erase_char, Vhelp_form, Vtop_level; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2515 EXFUN (Fdiscard_input, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2516 EXFUN (Frecursive_edit, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2517 EXFUN (Fcommand_execute, 4); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2518 EXFUN (Finput_pending_p, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2519 extern Lisp_Object menu_bar_items P_ ((Lisp_Object)); |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25515
diff
changeset
|
2520 extern Lisp_Object tool_bar_items P_ ((Lisp_Object, int *)); |
1990
c7d6c746fea6
Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1923
diff
changeset
|
2521 extern Lisp_Object Qvertical_scroll_bar; |
27885 | 2522 extern void discard_mouse_events P_ ((void)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2523 EXFUN (Fevent_convert_list, 1); |
22925
e89aad442cf7
(Fread_key_sequence): Update declaration.
Kenichi Handa <handa@m17n.org>
parents:
22791
diff
changeset
|
2524 EXFUN (Fread_key_sequence, 5); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2525 EXFUN (Fset_input_mode, 4); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2526 extern int detect_input_pending P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2527 extern int detect_input_pending_run_timers P_ ((int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2528 extern void safe_run_hooks P_ ((Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2529 extern void cmd_error_internal P_ ((Lisp_Object, char *)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2530 extern Lisp_Object command_loop_1 P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2531 extern Lisp_Object recursive_edit_1 P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2532 extern void record_auto_save P_ ((void)); |
21931 | 2533 extern void init_keyboard P_ ((void)); |
2534 extern void syms_of_keyboard P_ ((void)); | |
2535 extern void keys_of_keyboard P_ ((void)); | |
302 | 2536 |
2537 /* defined in keymap.c */ | |
2538 | |
5241
1536c6b80ff6
Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents:
5128
diff
changeset
|
2539 extern Lisp_Object Qkeymap, Qmenu_bar; |
302 | 2540 extern Lisp_Object current_global_map; |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2541 EXFUN (Fmake_sparse_keymap, 1); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2542 EXFUN (Fcopy_keymap, 1); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2543 EXFUN (Fdefine_key, 3); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2544 EXFUN (Flookup_key, 3); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2545 EXFUN (Fkey_binding, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2546 EXFUN (Fkey_description, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2547 EXFUN (Fsingle_key_description, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2548 EXFUN (Fwhere_is_internal, 4); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2549 extern Lisp_Object access_keymap P_ ((Lisp_Object, Lisp_Object, int, int)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2550 extern Lisp_Object store_in_keymap P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2551 extern Lisp_Object get_keyelt P_ ((Lisp_Object, int)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2552 extern Lisp_Object get_keymap P_ ((Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2553 extern Lisp_Object get_keymap_1 P_ ((Lisp_Object, int, int)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2554 extern void describe_vector P_ ((Lisp_Object, Lisp_Object, |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2555 void (*) (Lisp_Object), int, |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2556 Lisp_Object, Lisp_Object, int *, int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2557 extern void describe_map_tree P_ ((Lisp_Object, int, Lisp_Object, Lisp_Object, |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2558 char *, int, int, int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2559 extern int current_minor_maps P_ ((Lisp_Object **, Lisp_Object **)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2560 extern void initial_define_key P_ ((Lisp_Object, int, char *)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2561 extern void initial_define_lispy_key P_ ((Lisp_Object, char *, char *)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2562 extern void fix_submap_inheritance P_ ((Lisp_Object, Lisp_Object, Lisp_Object)); |
21931 | 2563 extern void syms_of_keymap P_ ((void)); |
2564 extern void keys_of_keymap P_ ((void)); | |
302 | 2565 |
2566 /* defined in indent.c */ | |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2567 EXFUN (Fvertical_motion, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2568 EXFUN (Findent_to, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2569 EXFUN (Fcurrent_column, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2570 EXFUN (Fmove_to_column, 2); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2571 extern int current_column P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2572 extern void invalidate_current_column P_ ((void)); |
20559
38941faa1564
(struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents:
20499
diff
changeset
|
2573 extern int indented_beyond_p P_ ((int, int, int)); |
21931 | 2574 extern void syms_of_indent P_ ((void)); |
302 | 2575 |
2576 /* defined in window.c */ | |
3800 | 2577 extern Lisp_Object Qwindowp, Qwindow_live_p; |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
2578 EXFUN (Fwindow_end, 2); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2579 EXFUN (Fselected_window, 0); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2580 EXFUN (Fnext_window, 3); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2581 EXFUN (Fdelete_window, 1); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2582 EXFUN (Fselect_window, 1); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2583 EXFUN (Fset_window_buffer, 2); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2584 EXFUN (Fget_buffer_window, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2585 EXFUN (Fsave_window_excursion, UNEVALLED); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2586 EXFUN (Fsplit_window, 3); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2587 EXFUN (Fset_window_configuration, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2588 EXFUN (Fcurrent_window_configuration, 1); |
21038
9b33c6a5b4dc
(Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents:
20723
diff
changeset
|
2589 extern int compare_window_configurations P_ ((Lisp_Object, Lisp_Object, int)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2590 EXFUN (Fcoordinates_in_window_p, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2591 EXFUN (Fwindow_at, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2592 EXFUN (Fpos_visible_in_window_p, 2); |
25450
b5c133b3bfa0
Add declarations for some functions.
Andreas Schwab <schwab@suse.de>
parents:
25421
diff
changeset
|
2593 extern void mark_window_cursors_off P_ ((struct window *)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2594 extern int window_internal_height P_ ((struct window *)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2595 extern int window_internal_width P_ ((struct window *)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2596 EXFUN (Frecenter, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2597 EXFUN (Fscroll_other_window, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2598 EXFUN (Fset_window_start, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2599 extern void temp_output_buffer_show P_ ((Lisp_Object)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2600 extern void replace_buffer_in_all_windows P_ ((Lisp_Object)); |
21931 | 2601 extern void init_window_once P_ ((void)); |
2602 extern void syms_of_window P_ ((void)); | |
2603 extern void keys_of_window P_ ((void)); | |
302 | 2604 |
765 | 2605 /* defined in frame.c */ |
6243 | 2606 extern Lisp_Object Qvisible; |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2607 extern void store_frame_param P_ ((struct frame *, Lisp_Object, Lisp_Object)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2608 extern void store_in_alist P_ ((Lisp_Object *, Lisp_Object, Lisp_Object)); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2609 extern Lisp_Object do_switch_frame P_ ((Lisp_Object, Lisp_Object, int)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2610 extern Lisp_Object get_frame_param P_ ((struct frame *, Lisp_Object)); |
22190
54a0e89d2a48
(frame_buffer_predicate, frame_buffer_list)
Richard M. Stallman <rms@gnu.org>
parents:
22123
diff
changeset
|
2611 extern Lisp_Object frame_buffer_predicate P_ ((Lisp_Object)); |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2612 EXFUN (Fframep, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2613 EXFUN (Fselect_frame, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2614 EXFUN (Fselected_frame, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2615 EXFUN (Fwindow_frame, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2616 EXFUN (Fframe_root_window, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2617 EXFUN (Fframe_first_window, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2618 EXFUN (Fframe_selected_window, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2619 EXFUN (Fframe_list, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2620 EXFUN (Fnext_frame, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2621 EXFUN (Fdelete_frame, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2622 EXFUN (Fset_mouse_position, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2623 EXFUN (Fmake_frame_visible, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2624 EXFUN (Fmake_frame_invisible, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2625 EXFUN (Ficonify_frame, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2626 EXFUN (Fframe_visible_p, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2627 EXFUN (Fvisible_frame_list, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2628 EXFUN (Fframe_parameters, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2629 EXFUN (Fmodify_frame_parameters, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2630 EXFUN (Fset_frame_height, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2631 EXFUN (Fset_frame_width, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2632 EXFUN (Fset_frame_size, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2633 EXFUN (Fset_frame_position, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2634 EXFUN (Fraise_frame, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2635 EXFUN (Fredirect_frame_focus, 2); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2636 EXFUN (Fset_frame_selected_window, 2); |
22190
54a0e89d2a48
(frame_buffer_predicate, frame_buffer_list)
Richard M. Stallman <rms@gnu.org>
parents:
22123
diff
changeset
|
2637 extern Lisp_Object frame_buffer_list P_ ((Lisp_Object)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2638 extern void frames_discard_buffer P_ ((Lisp_Object)); |
22190
54a0e89d2a48
(frame_buffer_predicate, frame_buffer_list)
Richard M. Stallman <rms@gnu.org>
parents:
22123
diff
changeset
|
2639 extern void set_frame_buffer_list P_ ((Lisp_Object, Lisp_Object)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2640 extern void frames_bury_buffer P_ ((Lisp_Object)); |
21931 | 2641 extern void syms_of_frame P_ ((void)); |
2642 extern void keys_of_frame P_ ((void)); | |
302 | 2643 |
2644 /* defined in emacs.c */ | |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2645 extern Lisp_Object decode_env_path P_ ((char *, char *)); |
4528
5622149e7f75
(Vinvocation_directory): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
4139
diff
changeset
|
2646 extern Lisp_Object Vinvocation_name, Vinvocation_directory; |
5642
665c0dc2b4bd
(VOID_TO_LISP, CVOID_TO_LISP, LISP_TO_VOID, LISP_TO_CVOID): New macros.
Richard M. Stallman <rms@gnu.org>
parents:
5241
diff
changeset
|
2647 extern Lisp_Object Vinstallation_directory; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2648 EXFUN (Fkill_emacs, 1); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
2649 #if HAVE_SETLOCALE |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
2650 void fixup_locale P_ ((void)); |
26526
b7438760079b
* callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents:
26479
diff
changeset
|
2651 void synchronize_system_messages_locale P_ ((void)); |
b7438760079b
* callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents:
26479
diff
changeset
|
2652 void synchronize_system_time_locale P_ ((void)); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
2653 #else |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
2654 #define setlocale(category, locale) |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
2655 #define fixup_locale() |
26526
b7438760079b
* callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents:
26479
diff
changeset
|
2656 #define synchronize_system_messages_locale() |
b7438760079b
* callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents:
26479
diff
changeset
|
2657 #define synchronize_system_time_locale() |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
2658 #endif |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2659 void shut_down_emacs P_ ((int, int, Lisp_Object)); |
302 | 2660 /* Nonzero means don't do interactive redisplay and don't change tty modes */ |
2661 extern int noninteractive; | |
2662 /* Nonzero means don't do use window-system-specific display code */ | |
2663 extern int inhibit_window_system; | |
10316
272f15eddaca
(enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents:
10292
diff
changeset
|
2664 /* Nonzero means that a filter or a sentinel is running. */ |
10032
f689803caa92
Added code for automatically saving and restoring the match data
Francesco Potortì <pot@gnu.org>
parents:
10010
diff
changeset
|
2665 extern int running_asynch_code; |
302 | 2666 |
2667 /* defined in process.c */ | |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2668 EXFUN (Fget_process, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2669 EXFUN (Fget_buffer_process, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2670 EXFUN (Fprocessp, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2671 EXFUN (Fprocess_status, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2672 EXFUN (Fkill_process, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2673 EXFUN (Fprocess_send_eof, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2674 EXFUN (Fwaiting_for_user_input_p, 0); |
10727 | 2675 extern Lisp_Object Qprocessp; |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2676 extern void kill_buffer_processes P_ ((Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2677 extern int wait_reading_process_input P_ ((int, int, Lisp_Object, int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2678 extern void deactivate_process P_ ((Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2679 extern void add_keyboard_wait_descriptor P_ ((int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2680 extern void delete_keyboard_wait_descriptor P_ ((int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2681 extern void close_process_descs P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2682 extern void status_notify P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2683 extern int read_process_output P_ ((Lisp_Object, int)); |
21931 | 2684 extern void init_process P_ ((void)); |
2685 extern void syms_of_process P_ ((void)); | |
302 | 2686 |
2687 /* defined in callproc.c */ | |
439 | 2688 extern Lisp_Object Vexec_path, Vexec_directory, Vdata_directory; |
6029 | 2689 extern Lisp_Object Vdoc_directory; |
25450
b5c133b3bfa0
Add declarations for some functions.
Andreas Schwab <schwab@suse.de>
parents:
25421
diff
changeset
|
2690 EXFUN (Fcall_process, MANY); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2691 extern int child_setup P_ ((int, int, int, char **, int, Lisp_Object)); |
21931 | 2692 extern void init_callproc_1 P_ ((void)); |
2693 extern void init_callproc P_ ((void)); | |
2694 extern void set_process_environment P_ ((void)); | |
2695 extern void syms_of_callproc P_ ((void)); | |
302 | 2696 |
2697 /* defined in doc.c */ | |
2698 extern Lisp_Object Vdoc_file_name; | |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2699 EXFUN (Fsubstitute_command_keys, 1); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2700 EXFUN (Fdocumentation, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2701 EXFUN (Fdocumentation_property, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2702 extern Lisp_Object read_doc_string P_ ((Lisp_Object)); |
22604
51f68ee599f8
(get_doc_string): Adjust declaration.
Richard M. Stallman <rms@gnu.org>
parents:
22541
diff
changeset
|
2703 extern Lisp_Object get_doc_string P_ ((Lisp_Object, int, int)); |
21931 | 2704 extern void syms_of_doc P_ ((void)); |
25759
e473b3e5cf6d
Declare Fcurrent_message, Fmake_temp_name, read_bytecode_char,
Dave Love <fx@gnu.org>
parents:
25748
diff
changeset
|
2705 extern int read_bytecode_char P_ ((int)); |
302 | 2706 |
2707 /* defined in bytecode.c */ | |
2708 extern Lisp_Object Qbytecode; | |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2709 EXFUN (Fbyte_code, 3); |
21931 | 2710 extern void syms_of_bytecode P_ ((void)); |
26367
9f71d570068d
Add prototypes for new functions in bytecode.c.
Gerd Moellmann <gerd@gnu.org>
parents:
26309
diff
changeset
|
2711 extern struct byte_stack *byte_stack_list; |
9f71d570068d
Add prototypes for new functions in bytecode.c.
Gerd Moellmann <gerd@gnu.org>
parents:
26309
diff
changeset
|
2712 extern void mark_byte_stack P_ ((void)); |
26377
55f8aad5034d
Add prototype for unmark_byte_stack.
Gerd Moellmann <gerd@gnu.org>
parents:
26367
diff
changeset
|
2713 extern void unmark_byte_stack P_ ((void)); |
302 | 2714 |
2715 /* defined in macros.c */ | |
2716 extern Lisp_Object Qexecute_kbd_macro; | |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2717 EXFUN (Fexecute_kbd_macro, 2); |
21931 | 2718 extern void init_macros P_ ((void)); |
2719 extern void syms_of_macros P_ ((void)); | |
2720 extern void keys_of_macros P_ ((void)); | |
302 | 2721 |
1518
eda3ace74d74
* lisp.h (Fdefault_boundp, make_float, Ffloat, Fnth, Fcopy_alist,
Jim Blandy <jimb@redhat.com>
parents:
1442
diff
changeset
|
2722 /* defined in undo.c */ |
14665
7a50843d260f
(Qinhibit_read_only): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
14473
diff
changeset
|
2723 extern Lisp_Object Qinhibit_read_only; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2724 EXFUN (Fundo_boundary, 0); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2725 extern Lisp_Object truncate_undo_list P_ ((Lisp_Object, int, int)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2726 extern void record_marker_adjustment P_ ((Lisp_Object, int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2727 extern void record_insert P_ ((int, int)); |
21277
be5da0a5cf64
(record_delete): The second arg is Lisp_Object.
Kenichi Handa <handa@m17n.org>
parents:
21276
diff
changeset
|
2728 extern void record_delete P_ ((int, Lisp_Object)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2729 extern void record_first_change P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2730 extern void record_change P_ ((int, int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2731 extern void record_property_change P_ ((int, int, Lisp_Object, Lisp_Object, |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2732 Lisp_Object)); |
21931 | 2733 extern void syms_of_undo P_ ((void)); |
1518
eda3ace74d74
* lisp.h (Fdefault_boundp, make_float, Ffloat, Fnth, Fcopy_alist,
Jim Blandy <jimb@redhat.com>
parents:
1442
diff
changeset
|
2734 |
4067
379b03502e48
(Qinsert_before_hooks, Qinsert_after_hooks): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
4035
diff
changeset
|
2735 /* defined in textprop.c */ |
4079
c1b16f1167d4
(Qinsert_in_front_hooks, Qinsert_behind_hooks): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
4067
diff
changeset
|
2736 extern Lisp_Object Qmodification_hooks; |
15702 | 2737 extern Lisp_Object Qrear_nonsticky, Qfont; |
4079
c1b16f1167d4
(Qinsert_in_front_hooks, Qinsert_behind_hooks): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
4067
diff
changeset
|
2738 extern Lisp_Object Qinsert_in_front_hooks, Qinsert_behind_hooks; |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2739 EXFUN (Fnext_property_change, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2740 EXFUN (Fnext_single_property_change, 4); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2741 EXFUN (Fprevious_single_property_change, 4); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2742 EXFUN (Fget_text_property, 3); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2743 EXFUN (Fput_text_property, 5); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2744 EXFUN (Fset_text_properties, 4); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2745 EXFUN (Ftext_property_not_all, 5); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2746 EXFUN (Fprevious_char_property_change, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2747 EXFUN (Fnext_char_property_change, 2); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2748 extern void report_interval_modification P_ ((Lisp_Object, Lisp_Object)); |
21931 | 2749 extern void syms_of_textprop P_ ((void)); |
25818
c5458623cf16
(toplevel): Add prototype for
Gerd Moellmann <gerd@gnu.org>
parents:
25786
diff
changeset
|
2750 extern Lisp_Object next_single_char_property_change P_ ((Lisp_Object, |
c5458623cf16
(toplevel): Add prototype for
Gerd Moellmann <gerd@gnu.org>
parents:
25786
diff
changeset
|
2751 Lisp_Object, |
c5458623cf16
(toplevel): Add prototype for
Gerd Moellmann <gerd@gnu.org>
parents:
25786
diff
changeset
|
2752 Lisp_Object, |
c5458623cf16
(toplevel): Add prototype for
Gerd Moellmann <gerd@gnu.org>
parents:
25786
diff
changeset
|
2753 Lisp_Object)); |
26603
30dbdfd88028
Add prototype for set_text_properties.
Gerd Moellmann <gerd@gnu.org>
parents:
26569
diff
changeset
|
2754 extern Lisp_Object set_text_properties P_ ((Lisp_Object, Lisp_Object, |
30dbdfd88028
Add prototype for set_text_properties.
Gerd Moellmann <gerd@gnu.org>
parents:
26569
diff
changeset
|
2755 Lisp_Object, Lisp_Object, |
30dbdfd88028
Add prototype for set_text_properties.
Gerd Moellmann <gerd@gnu.org>
parents:
26569
diff
changeset
|
2756 Lisp_Object)); |
4067
379b03502e48
(Qinsert_before_hooks, Qinsert_after_hooks): Declared.
Richard M. Stallman <rms@gnu.org>
parents:
4035
diff
changeset
|
2757 |
12093
7212f4fd85e3
(Fwaiting_for_user_input_p): Function declared.
Karl Heuer <kwzh@gnu.org>
parents:
11934
diff
changeset
|
2758 /* defined in intervals.c */ |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2759 extern Lisp_Object get_local_map P_ ((int, struct buffer *)); |
12093
7212f4fd85e3
(Fwaiting_for_user_input_p): Function declared.
Karl Heuer <kwzh@gnu.org>
parents:
11934
diff
changeset
|
2760 |
7212f4fd85e3
(Fwaiting_for_user_input_p): Function declared.
Karl Heuer <kwzh@gnu.org>
parents:
11934
diff
changeset
|
2761 /* defined in xmenu.c */ |
18732
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2762 EXFUN (Fx_popup_menu, 2); |
a0663e413622
(EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents:
18613
diff
changeset
|
2763 EXFUN (Fx_popup_dialog, 2); |
21931 | 2764 extern void syms_of_xmenu P_ ((void)); |
27427
0036f90725f6
(popup_activated_flag): Add extern declaration.
Gerd Moellmann <gerd@gnu.org>
parents:
27292
diff
changeset
|
2765 extern int popup_activated_flag; |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2766 |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2767 /* defined in sysdep.c */ |
25769
4399d55899d3
(RETURN_UNGCPRO): Use do-while (0) idiom.
Gerd Moellmann <gerd@gnu.org>
parents:
25765
diff
changeset
|
2768 extern void stuff_char P_ ((char c)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2769 extern void init_sigio P_ ((int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2770 extern void request_sigio P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2771 extern void unrequest_sigio P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2772 extern void reset_sys_modes P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2773 extern void sys_subshell P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2774 extern void sys_suspend P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2775 extern void discard_tty_input P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2776 extern void init_sys_modes P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2777 extern void reset_sys_modes P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2778 extern void get_frame_size P_ ((int *, int *)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2779 extern void wait_for_termination P_ ((int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2780 extern void flush_pending_output P_ ((int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2781 extern void child_setup_tty P_ ((int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2782 extern void setup_pty P_ ((int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2783 extern int set_window_size P_ ((int, int, int)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2784 extern void create_process P_ ((Lisp_Object, char **, Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2785 extern int tabs_safe_p P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2786 extern void init_baud_rate P_ ((void)); |
26088
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
2787 extern int emacs_open P_ ((char *, int, int)); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
2788 extern int emacs_close P_ ((int)); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
2789 extern int emacs_read P_ ((int, char *, unsigned int)); |
b7aa6ac26872
Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents:
25818
diff
changeset
|
2790 extern int emacs_write P_ ((int, char *, unsigned int)); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2791 |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2792 /* defined in filelock.c */ |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2793 EXFUN (Funlock_buffer, 0); |
21711
2aa9965afd39
Remove extraneous semicolon.
Erik Naggum <erik@naggum.no>
parents:
21515
diff
changeset
|
2794 EXFUN (Ffile_locked_p, 1); |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2795 extern void unlock_all_files P_ ((void)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2796 extern void lock_file P_ ((Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2797 extern void unlock_file P_ ((Lisp_Object)); |
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2798 extern void unlock_buffer P_ ((struct buffer *)); |
21931 | 2799 extern void syms_of_filelock P_ ((void)); |
25748
6fddda6e635e
Add prototype for uninterrupt_malloc, memory_warnings,
Gerd Moellmann <gerd@gnu.org>
parents:
25737
diff
changeset
|
2800 extern void init_filelock P_ ((void)); |
6fddda6e635e
Add prototype for uninterrupt_malloc, memory_warnings,
Gerd Moellmann <gerd@gnu.org>
parents:
25737
diff
changeset
|
2801 |
6fddda6e635e
Add prototype for uninterrupt_malloc, memory_warnings,
Gerd Moellmann <gerd@gnu.org>
parents:
25737
diff
changeset
|
2802 /* Defined in sound.c */ |
6fddda6e635e
Add prototype for uninterrupt_malloc, memory_warnings,
Gerd Moellmann <gerd@gnu.org>
parents:
25737
diff
changeset
|
2803 extern void syms_of_sound P_ ((void)); |
6fddda6e635e
Add prototype for uninterrupt_malloc, memory_warnings,
Gerd Moellmann <gerd@gnu.org>
parents:
25737
diff
changeset
|
2804 extern void init_sound P_ ((void)); |
21931 | 2805 |
2806 /* Defined in category.c */ | |
2807 extern void init_category_once P_ ((void)); | |
2808 extern void syms_of_category P_ ((void)); | |
2809 | |
2810 /* Defined in ccl.c */ | |
2811 extern void syms_of_ccl P_ ((void)); | |
2812 | |
2813 /* Defined in dired.c */ | |
25450
b5c133b3bfa0
Add declarations for some functions.
Andreas Schwab <schwab@suse.de>
parents:
25421
diff
changeset
|
2814 EXFUN (Ffile_attributes, 1); |
21931 | 2815 extern void syms_of_dired P_ ((void)); |
2816 | |
2817 /* Defined in mocklisp.c */ | |
2818 extern void syms_of_mocklisp P_ ((void)); | |
2819 | |
2820 /* Defined in term.c */ | |
2821 extern void syms_of_term P_ ((void)); | |
25786
5ccfb99a7e21
Add prototype for safe_bcopy, fatal.
Gerd Moellmann <gerd@gnu.org>
parents:
25769
diff
changeset
|
2822 extern void fatal (); |
21931 | 2823 |
2824 #ifdef HAVE_X_WINDOWS | |
2825 /* Defined in fontset.c */ | |
2826 extern void syms_of_fontset P_ ((void)); | |
25017
4a142fb92f94
(P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents:
23984
diff
changeset
|
2827 EXFUN (Fset_fontset_font, 4); |
21931 | 2828 #endif |
2829 | |
2830 /* Defined in xfaces.c */ | |
2831 extern void syms_of_xfaces P_ ((void)); | |
2832 | |
25712
178d6245c681
Add prototype for debug_print.
Gerd Moellmann <gerd@gnu.org>
parents:
25704
diff
changeset
|
2833 /* Defined in getloadavg.c */ |
178d6245c681
Add prototype for debug_print.
Gerd Moellmann <gerd@gnu.org>
parents:
25704
diff
changeset
|
2834 extern int getloadavg P_ ((double *, int)); |
178d6245c681
Add prototype for debug_print.
Gerd Moellmann <gerd@gnu.org>
parents:
25704
diff
changeset
|
2835 |
21931 | 2836 #ifdef HAVE_X_WINDOWS |
2837 /* Defined in xfns.c */ | |
25544
693ca9ba497a
Change spelling of `toolbar' to `tool_bar' or `tool-bar'.
Gerd Moellmann <gerd@gnu.org>
parents:
25515
diff
changeset
|
2838 extern void x_set_tool_bar_lines P_ ((struct frame *, Lisp_Object, Lisp_Object)); |
21931 | 2839 extern void syms_of_xfns P_ ((void)); |
25748
6fddda6e635e
Add prototype for uninterrupt_malloc, memory_warnings,
Gerd Moellmann <gerd@gnu.org>
parents:
25737
diff
changeset
|
2840 extern void init_xfns P_ ((void)); |
27885 | 2841 EXFUN (Fxw_display_color_p, 1); |
2842 #ifdef HAVE_X_I18N | |
28141
52b185e0d8bd
(free_frame_xic) [HAVE_X_I18N]: Add missing semicolon.
Gerd Moellmann <gerd@gnu.org>
parents:
28054
diff
changeset
|
2843 extern void free_frame_xic P_ ((struct frame *)); |
27885 | 2844 #endif |
2845 /* Fixme: x_defined_color needs declaring, but needs FRAME_PTR and XColor. */ | |
28141
52b185e0d8bd
(free_frame_xic) [HAVE_X_I18N]: Add missing semicolon.
Gerd Moellmann <gerd@gnu.org>
parents:
28054
diff
changeset
|
2846 #endif /* HAVE_X_WINDOWS */ |
21931 | 2847 |
2848 /* Defined in xselect.c */ | |
2849 extern void syms_of_xselect P_ ((void)); | |
2850 | |
2851 /* Defined in xterm.c */ | |
2852 extern void syms_of_xterm P_ ((void)); | |
25759
e473b3e5cf6d
Declare Fcurrent_message, Fmake_temp_name, read_bytecode_char,
Dave Love <fx@gnu.org>
parents:
25748
diff
changeset
|
2853 |
e473b3e5cf6d
Declare Fcurrent_message, Fmake_temp_name, read_bytecode_char,
Dave Love <fx@gnu.org>
parents:
25748
diff
changeset
|
2854 /* Defined in getloadavg.c */ |
e473b3e5cf6d
Declare Fcurrent_message, Fmake_temp_name, read_bytecode_char,
Dave Love <fx@gnu.org>
parents:
25748
diff
changeset
|
2855 extern int getloadavg P_ ((double [], int)); |
27885 | 2856 |
2857 /* Defined in composite.c */ | |
2858 extern void compose_text P_ ((int, int, Lisp_Object, Lisp_Object, Lisp_Object)); | |
302 | 2859 /* Nonzero means Emacs has already been initialized. |
2860 Used during startup to detect startup of dumped Emacs. */ | |
2861 extern int initialized; | |
2862 | |
2863 extern int immediate_quit; /* Nonzero means ^G can quit instantly */ | |
2864 | |
2872
0ab5a9f88ff3
* lisp.h (malloc, realloc): Declare these to return void *, to
Jim Blandy <jimb@redhat.com>
parents:
2780
diff
changeset
|
2865 extern char *getenv (), *ctime (), *getwd (); |
302 | 2866 extern long *xmalloc (), *xrealloc (); |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2429
diff
changeset
|
2867 extern void xfree (); |
28414 | 2868 extern char *xstrdup P_ ((char *)); |
302 | 2869 |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2870 extern char *egetenv P_ ((char *)); |
17404
73012b195cf3
(DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents:
17326
diff
changeset
|
2871 |
7906
1d64f77001be
declare init_system_name (replaces get_system_name).
Karl Heuer <kwzh@gnu.org>
parents:
7307
diff
changeset
|
2872 /* Set up the name of the machine we're running on. */ |
20297
bf0a54297d95
Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents:
20123
diff
changeset
|
2873 extern void init_system_name P_ ((void)); |
9799
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2874 |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2875 /* Some systems (e.g., NT) use a different path separator than Unix, |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2876 in addition to a device separator. Default the path separator |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2877 to '/', and don't test for a device separator in IS_ANY_SEP. */ |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2878 |
15090
c07a2c3e141d
[WINDOWS_NT]: Declare Vdirectory_sep_char.
Richard M. Stallman <rms@gnu.org>
parents:
14665
diff
changeset
|
2879 #ifdef WINDOWSNT |
c07a2c3e141d
[WINDOWS_NT]: Declare Vdirectory_sep_char.
Richard M. Stallman <rms@gnu.org>
parents:
14665
diff
changeset
|
2880 extern Lisp_Object Vdirectory_sep_char; |
c07a2c3e141d
[WINDOWS_NT]: Declare Vdirectory_sep_char.
Richard M. Stallman <rms@gnu.org>
parents:
14665
diff
changeset
|
2881 #endif |
c07a2c3e141d
[WINDOWS_NT]: Declare Vdirectory_sep_char.
Richard M. Stallman <rms@gnu.org>
parents:
14665
diff
changeset
|
2882 |
9799
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2883 #ifndef DIRECTORY_SEP |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2884 #define DIRECTORY_SEP '/' |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2885 #endif |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2886 #ifndef IS_DIRECTORY_SEP |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2887 #define IS_DIRECTORY_SEP(_c_) ((_c_) == DIRECTORY_SEP) |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2888 #endif |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2889 #ifndef IS_DEVICE_SEP |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2890 #ifndef DEVICE_SEP |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2891 #define IS_DEVICE_SEP(_c_) 0 |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2892 #else |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2893 #define IS_DEVICE_SEP(_c_) ((_c_) == DEVICE_SEP) |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2894 #endif |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2895 #endif |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2896 #ifndef IS_ANY_SEP |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2897 #define IS_ANY_SEP(_c_) (IS_DIRECTORY_SEP (_c_)) |
c9c11e41bf07
(DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
2898 #endif |
10455 | 2899 |
2900 #ifdef SWITCH_ENUM_BUG | |
2901 #define SWITCH_ENUM_CAST(x) ((int)(x)) | |
2902 #else | |
2903 #define SWITCH_ENUM_CAST(x) (x) | |
2904 #endif |