annotate src/lisp.h @ 112125:4dbda0e7c8bf

Use __builtin_unwind_init if available * configure.in: Check for __builtin_unwind_init. * src/alloc.c (mark_stack): Use __builtin_unwind_init if available.
author Andreas Schwab <schwab@linux-m68k.org>
date Wed, 05 Jan 2011 14:09:07 +0100
parents ac49e05bfcf2
children 4ef5cb86f2e8
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 /* Fundamental definitions for GNU Emacs Lisp interpreter.
60897
0f9e0d897751 (make_number): Make prototype more precise.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 60417
diff changeset
2 Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1998, 1999, 2000,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106406
diff changeset
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
79759
fc2bcd2a8aad Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78616
diff changeset
4 Free Software Foundation, Inc.
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 This file is part of GNU Emacs.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7
94994
29adfc9354e7 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94935
diff changeset
8 GNU Emacs is free software: you can redistribute it and/or modify
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 it under the terms of the GNU General Public License as published by
94994
29adfc9354e7 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94935
diff changeset
10 the Free Software Foundation, either version 3 of the License, or
29adfc9354e7 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94935
diff changeset
11 (at your option) any later version.
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 GNU Emacs is distributed in the hope that it will be useful,
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 GNU General Public License for more details.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
94994
29adfc9354e7 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94935
diff changeset
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20
52274
9f08d8959a2a (EMACS_LISP_H): New.
Dave Love <fx@gnu.org>
parents: 51868
diff changeset
21 #ifndef EMACS_LISP_H
9f08d8959a2a (EMACS_LISP_H): New.
Dave Love <fx@gnu.org>
parents: 51868
diff changeset
22 #define EMACS_LISP_H
9f08d8959a2a (EMACS_LISP_H): New.
Dave Love <fx@gnu.org>
parents: 51868
diff changeset
23
109308
3200fb11db9d Make doprnt and related functions ANSI C compliant, with prototypes.
Ken Raeburn <raeburn@raeburn.org>
parents: 109165
diff changeset
24 #include <stdarg.h>
109320
a0d2db31314d Use offsetof instead of own definition
Andreas Schwab <schwab@linux-m68k.org>
parents: 109313
diff changeset
25 #include <stddef.h>
109308
3200fb11db9d Make doprnt and related functions ANSI C compliant, with prototypes.
Ken Raeburn <raeburn@raeburn.org>
parents: 109165
diff changeset
26
104622
cf947e01a2b6 * lisp.h: Replace #if 0 code for checking with text pointing to
Dan Nicolaescu <dann@ics.uci.edu>
parents: 104568
diff changeset
27 /* Use the configure flag --enable-checking[=LIST] to enable various
cf947e01a2b6 * lisp.h: Replace #if 0 code for checking with text pointing to
Dan Nicolaescu <dann@ics.uci.edu>
parents: 104568
diff changeset
28 types of run time checks for Lisp objects. */
35184
07ec5658a7a5 (STRING_BYTES) [GC_CHECK_STRING_BYTES]: Call
Gerd Moellmann <gerd@gnu.org>
parents: 35173
diff changeset
29
60417
4a07536ef0de (CHECK_CONS_LIST): New macro (two definitions).
Richard M. Stallman <rms@gnu.org>
parents: 59678
diff changeset
30 #ifdef GC_CHECK_CONS_LIST
4a07536ef0de (CHECK_CONS_LIST): New macro (two definitions).
Richard M. Stallman <rms@gnu.org>
parents: 59678
diff changeset
31 #define CHECK_CONS_LIST() check_cons_list()
4a07536ef0de (CHECK_CONS_LIST): New macro (two definitions).
Richard M. Stallman <rms@gnu.org>
parents: 59678
diff changeset
32 #else
81813
32d8fd242bb2 * lisp.h (struct Lisp_Hash_Table): Turn next_weak into a bare pointer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81794
diff changeset
33 #define CHECK_CONS_LIST() ((void)0)
60417
4a07536ef0de (CHECK_CONS_LIST): New macro (two definitions).
Richard M. Stallman <rms@gnu.org>
parents: 59678
diff changeset
34 #endif
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35
8835
48bcdcb9d191 (EMACS_INT, EMACS_UINT): Define, if not already defined.
Richard M. Stallman <rms@gnu.org>
parents: 8827
diff changeset
36 /* 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
37 #ifdef _LP64
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25818
diff changeset
38 #ifndef EMACS_INT
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25818
diff changeset
39 #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
40 #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
41 #endif
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25818
diff changeset
42 #ifndef EMACS_UINT
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25818
diff changeset
43 #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
44 #endif
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25818
diff changeset
45 #else /* not _LP64 */
8835
48bcdcb9d191 (EMACS_INT, EMACS_UINT): Define, if not already defined.
Richard M. Stallman <rms@gnu.org>
parents: 8827
diff changeset
46 #ifndef EMACS_INT
48bcdcb9d191 (EMACS_INT, EMACS_UINT): Define, if not already defined.
Richard M. Stallman <rms@gnu.org>
parents: 8827
diff changeset
47 #define EMACS_INT int
16133
36566aa94b49 Add many declarations.
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
48 #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
49 #endif
48bcdcb9d191 (EMACS_INT, EMACS_UINT): Define, if not already defined.
Richard M. Stallman <rms@gnu.org>
parents: 8827
diff changeset
50 #ifndef EMACS_UINT
48bcdcb9d191 (EMACS_INT, EMACS_UINT): Define, if not already defined.
Richard M. Stallman <rms@gnu.org>
parents: 8827
diff changeset
51 #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
52 #endif
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25818
diff changeset
53 #endif
8835
48bcdcb9d191 (EMACS_INT, EMACS_UINT): Define, if not already defined.
Richard M. Stallman <rms@gnu.org>
parents: 8827
diff changeset
54
28406
451721e784a8 Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents: 28141
diff changeset
55 /* 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
56 extern int suppress_checking;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
57 extern void die (const char *, const char *, int) NO_RETURN;
28430
f805ef5a2a03 * lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents: 28417
diff changeset
58
28406
451721e784a8 Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents: 28141
diff changeset
59 #ifdef ENABLE_CHECKING
28430
f805ef5a2a03 * lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents: 28417
diff changeset
60
85764
e12efff1fa77 Comment the ENABLE_CHECKING version of the CHECK macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 85595
diff changeset
61 /* The suppress_checking variable is initialized to 0 in alloc.c. Set
e12efff1fa77 Comment the ENABLE_CHECKING version of the CHECK macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 85595
diff changeset
62 it to 1 using a debugger to temporarily disable aborting on
e12efff1fa77 Comment the ENABLE_CHECKING version of the CHECK macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 85595
diff changeset
63 detected internal inconsistencies or error conditions.
e12efff1fa77 Comment the ENABLE_CHECKING version of the CHECK macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 85595
diff changeset
64
e12efff1fa77 Comment the ENABLE_CHECKING version of the CHECK macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 85595
diff changeset
65 Testing suppress_checking after the supplied condition ensures that
e12efff1fa77 Comment the ENABLE_CHECKING version of the CHECK macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 85595
diff changeset
66 the side effects produced by CHECK will be consistent, independent
e12efff1fa77 Comment the ENABLE_CHECKING version of the CHECK macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 85595
diff changeset
67 of whether ENABLE_CHECKING is defined, or whether the checks are
e12efff1fa77 Comment the ENABLE_CHECKING version of the CHECK macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 85595
diff changeset
68 suppressed at run time.
e12efff1fa77 Comment the ENABLE_CHECKING version of the CHECK macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 85595
diff changeset
69
e12efff1fa77 Comment the ENABLE_CHECKING version of the CHECK macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 85595
diff changeset
70 In some cases, a good compiler may be able to optimize away the
e12efff1fa77 Comment the ENABLE_CHECKING version of the CHECK macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 85595
diff changeset
71 CHECK macro altogether, e.g., if XSTRING (x) uses CHECK to test
e12efff1fa77 Comment the ENABLE_CHECKING version of the CHECK macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 85595
diff changeset
72 STRINGP (x), but a particular use of XSTRING is invoked only after
e12efff1fa77 Comment the ENABLE_CHECKING version of the CHECK macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 85595
diff changeset
73 testing that STRINGP (x) is true, making the test redundant. */
e12efff1fa77 Comment the ENABLE_CHECKING version of the CHECK macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 85595
diff changeset
74
50761
3afa0d82e92e (CHECK): Wrap args in parenthesis.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50748
diff changeset
75 #define CHECK(check,msg) (((check) || suppress_checking \
30943
429bcc971263 (CHECK) [ENABLE_CHECKING]: Make both side of the
Gerd Moellmann <gerd@gnu.org>
parents: 30934
diff changeset
76 ? (void) 0 \
50761
3afa0d82e92e (CHECK): Wrap args in parenthesis.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50748
diff changeset
77 : die ((msg), __FILE__, __LINE__)), \
28430
f805ef5a2a03 * lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents: 28417
diff changeset
78 0)
28406
451721e784a8 Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents: 28141
diff changeset
79 #else
28430
f805ef5a2a03 * lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents: 28417
diff changeset
80
28406
451721e784a8 Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents: 28141
diff changeset
81 /* 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
82 #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
83
28406
451721e784a8 Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents: 28141
diff changeset
84 #endif
28430
f805ef5a2a03 * lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
Ken Raeburn <raeburn@raeburn.org>
parents: 28417
diff changeset
85
28406
451721e784a8 Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents: 28141
diff changeset
86 /* 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
87 flaky. */
29337
637117135842 (eassert) [!ENABLE_CHECKING]: Define as `(void) 0'.
Gerd Moellmann <gerd@gnu.org>
parents: 29276
diff changeset
88 #ifndef ENABLE_CHECKING
637117135842 (eassert) [!ENABLE_CHECKING]: Define as `(void) 0'.
Gerd Moellmann <gerd@gnu.org>
parents: 29276
diff changeset
89 #define eassert(X) (void) 0
637117135842 (eassert) [!ENABLE_CHECKING]: Define as `(void) 0'.
Gerd Moellmann <gerd@gnu.org>
parents: 29276
diff changeset
90 #else /* ENABLE_CHECKING */
28406
451721e784a8 Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents: 28141
diff changeset
91 #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
92 #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
93 #else
451721e784a8 Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents: 28141
diff changeset
94 #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
95 #endif
29337
637117135842 (eassert) [!ENABLE_CHECKING]: Define as `(void) 0'.
Gerd Moellmann <gerd@gnu.org>
parents: 29276
diff changeset
96 #endif /* ENABLE_CHECKING */
84979
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
97
109098
a17732ef349e Define USE_LISP_UNION_TYPE using autoconf.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 108946
diff changeset
98 /* Use the configure flag --enable-use-lisp-union-type to make
a17732ef349e Define USE_LISP_UNION_TYPE using autoconf.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 108946
diff changeset
99 Lisp_Object use a union type instead of the default int. The flag
a17732ef349e Define USE_LISP_UNION_TYPE using autoconf.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 108946
diff changeset
100 causes USE_LISP_UNION_TYPE to be defined. */
97232
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
101
84979
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
102 /***** Select the tagging scheme. *****/
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
103 /* There are basically two options that control the tagging scheme:
97232
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
104 - USE_LISP_UNION_TYPE says that Lisp_Object should be a union instead
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
105 of an integer.
84979
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
106 - USE_LSB_TAG means that we can assume the least 3 bits of pointers are
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
107 always 0, and we can thus use them to hold tag bits, without
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
108 restricting our addressing space.
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
109
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
110 If USE_LSB_TAG is not set, then we use the top 3 bits for tagging, thus
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
111 restricting our possible address range. Currently USE_LSB_TAG is not
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
112 allowed together with a union. This is not due to any fundamental
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
113 technical (or political ;-) problem: nobody wrote the code to do it yet.
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
114
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
115 USE_LSB_TAG not only requires the least 3 bits of pointers returned by
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
116 malloc to be 0 but also needs to be able to impose a mult-of-8 alignment
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
117 on the few static Lisp_Objects used: all the defsubr as well
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
118 as the two special buffers buffer_defaults and buffer_local_symbols. */
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
119
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
120 /* First, try and define DECL_ALIGN(type,var) which declares a static
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
121 variable VAR of type TYPE with the added requirement that it be
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
122 TYPEBITS-aligned. */
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
123 #ifndef NO_DECL_ALIGN
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
124 # ifndef DECL_ALIGN
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
125 /* What compiler directive should we use for non-gcc compilers? -stef */
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
126 # if defined (__GNUC__)
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
127 # define DECL_ALIGN(type, var) \
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
128 type __attribute__ ((__aligned__ (1 << GCTYPEBITS))) var
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
129 # endif
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
130 # endif
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
131 #endif
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
132
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
133 /* Let's USE_LSB_TAG on systems where we know malloc returns mult-of-8. */
97279
76ed169d532c Dock menu customization, based on a patch by Ken Raeburn, plus some other fixes.
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97267
diff changeset
134 #if defined GNU_MALLOC || defined DOUG_LEA_MALLOC || defined __GLIBC__ || defined DARWIN_OS
84979
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
135 /* We also need to be able to specify mult-of-8 alignment on static vars. */
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
136 # if defined DECL_ALIGN
105839
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
137 # define USE_LSB_TAG
84979
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
138 # endif
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
139 #endif
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
140
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
141 /* If we cannot use 8-byte alignment, make DECL_ALIGN a no-op. */
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
142 #ifndef DECL_ALIGN
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
143 # ifdef USE_LSB_TAG
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
144 # error "USE_LSB_TAG used without defining DECL_ALIGN"
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
145 # endif
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
146 # define DECL_ALIGN(type, var) type var
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
147 #endif
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
148
28406
451721e784a8 Stop assuming interval pointers and lisp objects can be distinguished by
Ken Raeburn <raeburn@raeburn.org>
parents: 28141
diff changeset
149
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
150 /* Define the fundamental Lisp data structures. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
152 /* If USE_2_TAGBITS_FOR_INTS is defined, then Lisp integers use
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
153 2 tags, to give them one extra bit, thus extending their range from
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
154 e.g -2^28..2^28-1 to -2^29..2^29-1. */
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
155 #define USE_2_TAGS_FOR_INTS
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
156
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
157 /* Making it work for the union case is too much trouble. */
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
158 #ifdef USE_LISP_UNION_TYPE
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
159 # undef USE_2_TAGS_FOR_INTS
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
160 #endif
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
161
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
162 /* This is the set of Lisp data types. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
163
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
164 #if !defined USE_2_TAGS_FOR_INTS
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
165 # define LISP_INT_TAG Lisp_Int
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
166 # define case_Lisp_Int case Lisp_Int
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
167 # define LISP_STRING_TAG 4
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
168 # define LISP_INT_TAG_P(x) ((x) == Lisp_Int)
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
169 #else
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
170 # define LISP_INT_TAG Lisp_Int0
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
171 # define case_Lisp_Int case Lisp_Int0: case Lisp_Int1
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
172 # ifdef USE_LSB_TAG
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
173 # define LISP_INT1_TAG 4
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
174 # define LISP_STRING_TAG 1
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
175 # define LISP_INT_TAG_P(x) (((x) & 3) == 0)
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
176 # else
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
177 # define LISP_INT1_TAG 1
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
178 # define LISP_STRING_TAG 4
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
179 # define LISP_INT_TAG_P(x) (((x) & 6) == 0)
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
180 # endif
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
181 #endif
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
182
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 enum Lisp_Type
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184 {
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
185 /* Integer. XINT (obj) is the integer value. */
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
186 #ifdef USE_2_TAGS_FOR_INTS
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
187 Lisp_Int0 = 0,
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
188 Lisp_Int1 = LISP_INT1_TAG,
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
189 #else
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
190 Lisp_Int = 0,
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
191 #endif
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
193 /* Symbol. XSYMBOL (object) points to a struct Lisp_Symbol. */
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
194 Lisp_Symbol = 2,
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195
9435
3a157cdf395c (Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents: 9392
diff changeset
196 /* 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
197 whose first member indicates the subtype. */
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
198 Lisp_Misc = 3,
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200 /* 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
201 The length of the string, and its contents, are stored therein. */
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
202 Lisp_String = LISP_STRING_TAG,
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
203
10010
67375493afa2 (enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents: 10003
diff changeset
204 /* Vector of Lisp objects, or something resembling it.
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
205 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
206 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
207 information, if it's not a real vector object. */
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
208 Lisp_Vectorlike = 5,
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
210 /* Cons. XCONS (object) points to a struct Lisp_Cons. */
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
211 Lisp_Cons = 6,
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
212
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
213 Lisp_Float = 7,
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
214 };
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215
39579
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
216 /* This is the set of data types that share a common structure.
10396
47938020b39d Use large constants for Lisp_Misc_Type.
Karl Heuer <kwzh@gnu.org>
parents: 10387
diff changeset
217 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
218 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
219 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
220 mistakenly interpreted as a Lisp_Misc. */
9392
32186e807f02 (enum Lisp_Misc_Type): New type.
Karl Heuer <kwzh@gnu.org>
parents: 9370
diff changeset
221 enum Lisp_Misc_Type
32186e807f02 (enum Lisp_Misc_Type): New type.
Karl Heuer <kwzh@gnu.org>
parents: 9370
diff changeset
222 {
10396
47938020b39d Use large constants for Lisp_Misc_Type.
Karl Heuer <kwzh@gnu.org>
parents: 10387
diff changeset
223 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
224 Lisp_Misc_Marker,
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
225 Lisp_Misc_Overlay,
49056
88f14a14e005 New misc type Lisp_Save_Value.
Richard M. Stallman <rms@gnu.org>
parents: 48540
diff changeset
226 Lisp_Misc_Save_Value,
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
227 /* Currently floats are not a misc type,
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
228 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
229 Lisp_Misc_Float,
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
230 /* 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
231 Lisp_Misc_Limit
9392
32186e807f02 (enum Lisp_Misc_Type): New type.
Karl Heuer <kwzh@gnu.org>
parents: 9370
diff changeset
232 };
32186e807f02 (enum Lisp_Misc_Type): New type.
Karl Heuer <kwzh@gnu.org>
parents: 9370
diff changeset
233
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
234 /* These are the types of forwarding objects used in the value slot
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
235 of symbols for special built-in variables whose value is stored in
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
236 C variables. */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
237 enum Lisp_Fwd_Type
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
238 {
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
239 Lisp_Fwd_Int, /* Fwd to a C `int' variable. */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
240 Lisp_Fwd_Bool, /* Fwd to a C boolean var. */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
241 Lisp_Fwd_Obj, /* Fwd to a C Lisp_Object variable. */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
242 Lisp_Fwd_Buffer_Obj, /* Fwd to a Lisp_Object field of buffers. */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
243 Lisp_Fwd_Kboard_Obj, /* Fwd to a Lisp_Object field of kboards. */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
244 };
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
245
51858
bf6232373c39 (VALBITS): Define in terms of GCTYPEBITS.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51833
diff changeset
246 #ifndef GCTYPEBITS
bf6232373c39 (VALBITS): Define in terms of GCTYPEBITS.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51833
diff changeset
247 #define GCTYPEBITS 3
bf6232373c39 (VALBITS): Define in terms of GCTYPEBITS.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51833
diff changeset
248 #endif
bf6232373c39 (VALBITS): Define in terms of GCTYPEBITS.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51833
diff changeset
249
10321
c91b1f4295a1 (enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents: 10316
diff changeset
250 /* 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
251 #ifndef VALBITS
52476
1b64668b2442 (VALBITS): Don't remove 1 for the markbit.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
252 #define VALBITS (BITS_PER_EMACS_INT - GCTYPEBITS)
10321
c91b1f4295a1 (enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents: 10316
diff changeset
253 #endif
c91b1f4295a1 (enum Lisp_Type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents: 10316
diff changeset
254
97232
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
255 #ifdef USE_LISP_UNION_TYPE
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
256
109732
470bed744331 Use autoconf determined WORDS_BIGENDIAN instead of hardcoded definition.
Andreas Schwab <schwab@linux-m68k.org>
parents: 109673
diff changeset
257 #ifndef WORDS_BIGENDIAN
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
258
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
259 /* Definition of Lisp_Object for little-endian machines. */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
261 typedef
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
262 union Lisp_Object
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
263 {
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
264 /* Used for comparing two Lisp_Objects;
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
265 also, positive integers can be accessed fast this way. */
84979
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
266 EMACS_UINT i;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
267
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268 struct
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
269 {
111815
2278399d2eb9 Remove EXPLICIT_SIGN_EXTEND.
Andreas Schwab <schwab@linux-m68k.org>
parents: 111689
diff changeset
270 /* Use explict signed, the signedness of a bit-field of type
2278399d2eb9 Remove EXPLICIT_SIGN_EXTEND.
Andreas Schwab <schwab@linux-m68k.org>
parents: 111689
diff changeset
271 int is implementation defined. */
2278399d2eb9 Remove EXPLICIT_SIGN_EXTEND.
Andreas Schwab <schwab@linux-m68k.org>
parents: 111689
diff changeset
272 signed EMACS_INT val : VALBITS;
54083
16821fe4a0bf (union Lisp_Object): Give a more precise type for `type'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53884
diff changeset
273 enum Lisp_Type type : GCTYPEBITS;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
274 } s;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
275 struct
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
276 {
31901
4e2853ad5d2d (union Lisp_Object) [!NO_UNION_TYPE]: Use EMACS_INT and
Gerd Moellmann <gerd@gnu.org>
parents: 31833
diff changeset
277 EMACS_UINT val : VALBITS;
54083
16821fe4a0bf (union Lisp_Object): Give a more precise type for `type'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53884
diff changeset
278 enum Lisp_Type type : GCTYPEBITS;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
279 } u;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
280 }
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
281 Lisp_Object;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
282
109732
470bed744331 Use autoconf determined WORDS_BIGENDIAN instead of hardcoded definition.
Andreas Schwab <schwab@linux-m68k.org>
parents: 109673
diff changeset
283 #else /* If WORDS_BIGENDIAN */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
284
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
285 typedef
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
286 union Lisp_Object
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
287 {
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
288 /* Used for comparing two Lisp_Objects;
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
289 also, positive integers can be accessed fast this way. */
84979
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
290 EMACS_UINT i;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
291
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
292 struct
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
293 {
54083
16821fe4a0bf (union Lisp_Object): Give a more precise type for `type'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53884
diff changeset
294 enum Lisp_Type type : GCTYPEBITS;
111815
2278399d2eb9 Remove EXPLICIT_SIGN_EXTEND.
Andreas Schwab <schwab@linux-m68k.org>
parents: 111689
diff changeset
295 /* Use explict signed, the signedness of a bit-field of type
2278399d2eb9 Remove EXPLICIT_SIGN_EXTEND.
Andreas Schwab <schwab@linux-m68k.org>
parents: 111689
diff changeset
296 int is implementation defined. */
2278399d2eb9 Remove EXPLICIT_SIGN_EXTEND.
Andreas Schwab <schwab@linux-m68k.org>
parents: 111689
diff changeset
297 signed EMACS_INT val : VALBITS;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
298 } s;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
299 struct
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
300 {
54083
16821fe4a0bf (union Lisp_Object): Give a more precise type for `type'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53884
diff changeset
301 enum Lisp_Type type : GCTYPEBITS;
31901
4e2853ad5d2d (union Lisp_Object) [!NO_UNION_TYPE]: Use EMACS_INT and
Gerd Moellmann <gerd@gnu.org>
parents: 31833
diff changeset
302 EMACS_UINT val : VALBITS;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303 } u;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
304 }
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
305 Lisp_Object;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
306
109732
470bed744331 Use autoconf determined WORDS_BIGENDIAN instead of hardcoded definition.
Andreas Schwab <schwab@linux-m68k.org>
parents: 109673
diff changeset
307 #endif /* WORDS_BIGENDIAN */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
308
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
309 #ifdef __GNUC__
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
310 static __inline__ Lisp_Object
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
311 LISP_MAKE_RVALUE (Lisp_Object o)
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
312 {
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
313 return o;
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
314 }
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
315 #else
108604
3b0bab58a95f * lisp.h (XFLOAT_DATA): Use "0?x:x" to generate an rvalue. (bug#5916)
Ken Raeburn <raeburn@raeburn.org>
parents: 108375
diff changeset
316 /* This is more portable to pre-C99 non-GCC compilers, but for
3b0bab58a95f * lisp.h (XFLOAT_DATA): Use "0?x:x" to generate an rvalue. (bug#5916)
Ken Raeburn <raeburn@raeburn.org>
parents: 108375
diff changeset
317 backwards compatibility GCC still accepts an old GNU extension
3b0bab58a95f * lisp.h (XFLOAT_DATA): Use "0?x:x" to generate an rvalue. (bug#5916)
Ken Raeburn <raeburn@raeburn.org>
parents: 108375
diff changeset
318 which caused this to only generate a warning. */
3b0bab58a95f * lisp.h (XFLOAT_DATA): Use "0?x:x" to generate an rvalue. (bug#5916)
Ken Raeburn <raeburn@raeburn.org>
parents: 108375
diff changeset
319 #define LISP_MAKE_RVALUE(o) (0 ? (o) : (o))
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
320 #endif
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
321
97232
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
322 #else /* USE_LISP_UNION_TYPE */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323
18115
06ce39d8e93e (VALMASK, GCTYPEMASK, MARKBIT, ARRAY_MARK_FLAG)
Richard M. Stallman <rms@gnu.org>
parents: 18111
diff changeset
324 /* If union type is not wanted, define Lisp_Object as just a number. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
325
67029
911421314d0e Use typedef when Lisp_Object is EMACS_INT so that
Nick Roberts <nickrob@snap.net.nz>
parents: 66888
diff changeset
326 typedef EMACS_INT Lisp_Object;
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
327 #define LISP_MAKE_RVALUE(o) (0+(o))
97232
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
328 #endif /* USE_LISP_UNION_TYPE */
6216
9f7708f75f17 (ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents: 6131
diff changeset
329
51685
5c80476f5ff2 (MARKBIT): Update comment.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51666
diff changeset
330 /* In the size word of a vector, this bit means the vector has been marked. */
6216
9f7708f75f17 (ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents: 6131
diff changeset
331
85022
96eb42c9e0e3 * window.h (struct window):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85021
diff changeset
332 #define ARRAY_MARK_FLAG ((EMACS_UINT) 1 << (BITS_PER_EMACS_INT - 1))
6216
9f7708f75f17 (ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents: 6131
diff changeset
333
10010
67375493afa2 (enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents: 10003
diff changeset
334 /* 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
335 some other vector-like object. */
85022
96eb42c9e0e3 * window.h (struct window):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85021
diff changeset
336 #define PSEUDOVECTOR_FLAG ((ARRAY_MARK_FLAG >> 1))
10010
67375493afa2 (enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents: 10003
diff changeset
337
10322
c1c2ec3aeefa Use consistent spelling in comments.
Karl Heuer <kwzh@gnu.org>
parents: 10321
diff changeset
338 /* 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
339 PSEUDOVECTOR_FLAG bit set, and exactly one of the following bits to
84689
73c717fa7866 (enum pvec_type): New `terminal' pseudovector.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84434
diff changeset
340 indicate the actual type.
85012
3a31b2cfe77f (ARRAY_MARK_FLAG, PSEUDOVECTOR_FLAG): Don't allow definition in m/*.h files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85011
diff changeset
341 We use a bitset, even tho only one of the bits can be set at any
3a31b2cfe77f (ARRAY_MARK_FLAG, PSEUDOVECTOR_FLAG): Don't allow definition in m/*.h files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85011
diff changeset
342 particular time just so as to be able to use micro-optimizations such as
3a31b2cfe77f (ARRAY_MARK_FLAG, PSEUDOVECTOR_FLAG): Don't allow definition in m/*.h files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85011
diff changeset
343 testing membership of a particular subset of pseudovectors in Fequal.
3a31b2cfe77f (ARRAY_MARK_FLAG, PSEUDOVECTOR_FLAG): Don't allow definition in m/*.h files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85011
diff changeset
344 It is not crucial, but there are plenty of bits here, so why not do it? */
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
345 enum pvec_type
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
346 {
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
347 PVEC_NORMAL_VECTOR = 0,
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
348 PVEC_PROCESS = 0x200,
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
349 PVEC_FRAME = 0x400,
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
350 PVEC_COMPILED = 0x800,
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
351 PVEC_WINDOW = 0x1000,
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
352 PVEC_WINDOW_CONFIGURATION = 0x2000,
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
353 PVEC_SUBR = 0x4000,
13149
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
354 PVEC_CHAR_TABLE = 0x8000,
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
355 PVEC_BOOL_VECTOR = 0x10000,
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
356 PVEC_BUFFER = 0x20000,
25017
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
357 PVEC_HASH_TABLE = 0x40000,
84689
73c717fa7866 (enum pvec_type): New `terminal' pseudovector.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84434
diff changeset
358 PVEC_TERMINAL = 0x80000,
91041
bdb3fe0ba9fa Merge from emacs--devo--0
Miles Bader <miles@gnu.org>
parents: 91005 85105
diff changeset
359 PVEC_SUB_CHAR_TABLE = 0x100000,
94935
45602a11979b (enum pvec_type): New member PREV_FONT.
Kenichi Handa <handa@m17n.org>
parents: 94121
diff changeset
360 PVEC_FONT = 0x200000,
45602a11979b (enum pvec_type): New member PREV_FONT.
Kenichi Handa <handa@m17n.org>
parents: 94121
diff changeset
361 PVEC_OTHER = 0x400000,
45602a11979b (enum pvec_type): New member PREV_FONT.
Kenichi Handa <handa@m17n.org>
parents: 94121
diff changeset
362 PVEC_TYPE_MASK = 0x7ffe00
45623
0e92d219e195 (current_column): Now returns float.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45545
diff changeset
363
26569
d5f7eaff00db Fix typo in previous change.
Gerd Moellmann <gerd@gnu.org>
parents: 26566
diff changeset
364 #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
365 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
366 emacs.c. */
12246
4de2d34c04d3 (enum pvec_type): Don't use trailing comma.
Karl Heuer <kwzh@gnu.org>
parents: 12114
diff changeset
367 PVEC_FLAG = PSEUDOVECTOR_FLAG
26569
d5f7eaff00db Fix typo in previous change.
Gerd Moellmann <gerd@gnu.org>
parents: 26566
diff changeset
368 #endif
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
369 };
10010
67375493afa2 (enum Lisp_Misc_Type): Rename Lisp_Vector to Lisp_Vectorlike. Mark
Karl Heuer <kwzh@gnu.org>
parents: 10003
diff changeset
370
69871
8a7ecbca8672 (PSEUDOVECTOR_SIZE_MASK): Expand docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69869
diff changeset
371 /* For convenience, we also store the number of elements in these bits.
8a7ecbca8672 (PSEUDOVECTOR_SIZE_MASK): Expand docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69869
diff changeset
372 Note that this size is not necessarily the memory-footprint size, but
8a7ecbca8672 (PSEUDOVECTOR_SIZE_MASK): Expand docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69869
diff changeset
373 only the number of Lisp_Object fields (that need to be traced by the GC).
8a7ecbca8672 (PSEUDOVECTOR_SIZE_MASK): Expand docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69869
diff changeset
374 The distinction is used e.g. by Lisp_Process which places extra
8a7ecbca8672 (PSEUDOVECTOR_SIZE_MASK): Expand docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69869
diff changeset
375 non-Lisp_Object fields at the end of the structure. */
13149
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
376 #define PSEUDOVECTOR_SIZE_MASK 0x1ff
55157
2a1571603eac (BOOL_VECTOR_BITS_PER_CHAR): Define.
Andreas Schwab <schwab@suse.de>
parents: 55142
diff changeset
377
2a1571603eac (BOOL_VECTOR_BITS_PER_CHAR): Define.
Andreas Schwab <schwab@suse.de>
parents: 55142
diff changeset
378 /* Number of bits to put in each character in the internal representation
2a1571603eac (BOOL_VECTOR_BITS_PER_CHAR): Define.
Andreas Schwab <schwab@suse.de>
parents: 55142
diff changeset
379 of bool vectors. This should not vary across implementations. */
2a1571603eac (BOOL_VECTOR_BITS_PER_CHAR): Define.
Andreas Schwab <schwab@suse.de>
parents: 55142
diff changeset
380 #define BOOL_VECTOR_BITS_PER_CHAR 8
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
381
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
382 /* These macros extract various sorts of values from a Lisp_Object.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
383 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
384 XCONS (tem) is the struct Lisp_Cons * pointing to the memory for that cons. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
385
97232
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
386 #ifndef USE_LISP_UNION_TYPE
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
387
84979
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
388 /* Return a perfect hash of the Lisp_Object representation. */
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
389 #define XHASH(a) (a)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
390
53654
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
391 #ifdef USE_LSB_TAG
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
392
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
393 #define TYPEMASK ((((EMACS_INT) 1) << GCTYPEBITS) - 1)
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
394 #define XTYPE(a) ((enum Lisp_Type) (((EMACS_UINT) (a)) & TYPEMASK))
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
395 #ifdef USE_2_TAGS_FOR_INTS
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
396 # define XINT(a) (((EMACS_INT) (a)) >> (GCTYPEBITS - 1))
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
397 # define XUINT(a) (((EMACS_UINT) (a)) >> (GCTYPEBITS - 1))
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
398 # define make_number(N) (((EMACS_INT) (N)) << (GCTYPEBITS - 1))
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
399 #else
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
400 # define XINT(a) (((EMACS_INT) (a)) >> GCTYPEBITS)
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
401 # define XUINT(a) (((EMACS_UINT) (a)) >> GCTYPEBITS)
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
402 # define make_number(N) (((EMACS_INT) (N)) << GCTYPEBITS)
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
403 #endif
53654
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
404 #define XSET(var, type, ptr) \
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
405 (eassert (XTYPE (ptr) == 0), /* Check alignment. */ \
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
406 (var) = ((EMACS_INT) (type)) | ((EMACS_INT) (ptr)))
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
407
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
408 #define XPNTR(a) ((EMACS_INT) ((a) & ~TYPEMASK))
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
409
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
410 #else /* not USE_LSB_TAG */
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
411
53088
63a8b584e971 (VALMASK): Only define for non-union type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53001
diff changeset
412 #define VALMASK ((((EMACS_INT) 1) << VALBITS) - 1)
63a8b584e971 (VALMASK): Only define for non-union type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53001
diff changeset
413
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
414 /* One need to override this if there must be high bits set in data space
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
415 (doing the result of the below & ((1 << (GCTYPE + 1)) - 1) would work
39579
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
416 on all machines, but would penalize machines which don't need it)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
417 */
52476
1b64668b2442 (VALBITS): Don't remove 1 for the markbit.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52401
diff changeset
418 #define XTYPE(a) ((enum Lisp_Type) (((EMACS_UINT) (a)) >> VALBITS))
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
419
9292
ec707cca800a (XSETFASTINT): New macro.
Karl Heuer <kwzh@gnu.org>
parents: 9287
diff changeset
420 /* For integers known to be positive, XFASTINT provides fast retrieval
ec707cca800a (XSETFASTINT): New macro.
Karl Heuer <kwzh@gnu.org>
parents: 9287
diff changeset
421 and XSETFASTINT provides fast storage. This takes advantage of the
53088
63a8b584e971 (VALMASK): Only define for non-union type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53001
diff changeset
422 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
423 #define XFASTINT(a) ((a) + 0)
9292
ec707cca800a (XSETFASTINT): New macro.
Karl Heuer <kwzh@gnu.org>
parents: 9287
diff changeset
424 #define XSETFASTINT(a, b) ((a) = (b))
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
425
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
426 /* Extract the value of a Lisp_Object as a (un)signed integer. */
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
427
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
428 #ifdef USE_2_TAGS_FOR_INTS
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
429 # define XINT(a) ((((EMACS_INT) (a)) << (GCTYPEBITS - 1)) >> (GCTYPEBITS - 1))
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
430 # define XUINT(a) ((EMACS_UINT) ((a) & (1 + (VALMASK << 1))))
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
431 # define make_number(N) ((((EMACS_INT) (N)) & (1 + (VALMASK << 1))))
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
432 #else
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
433 # define XINT(a) ((((EMACS_INT) (a)) << (BITS_PER_EMACS_INT - VALBITS)) \
52998
3d26cfe32fa7 (XINT): Move the cast to clarify what is going on.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52476
diff changeset
434 >> (BITS_PER_EMACS_INT - VALBITS))
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
435 # define XUINT(a) ((EMACS_UINT) ((a) & VALMASK))
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
436 # define make_number(N) \
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
437 ((((EMACS_INT) (N)) & VALMASK) | ((EMACS_INT) Lisp_Int) << VALBITS)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
438 #endif
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
439
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
440 #define XSET(var, type, ptr) \
8827
97bf951c0b98 (Lisp_Object): Use EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents: 8631
diff changeset
441 ((var) = ((EMACS_INT)(type) << VALBITS) + ((EMACS_INT) (ptr) & VALMASK))
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
442
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
443 #define XPNTR(a) ((EMACS_UINT) ((a) & VALMASK))
14306
b30429f0b599 (XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
444
53654
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
445 #endif /* not USE_LSB_TAG */
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
446
97232
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
447 #else /* USE_LISP_UNION_TYPE */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
448
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
449 #ifdef USE_2_TAGS_FOR_INTS
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
450 # error "USE_2_TAGS_FOR_INTS is not supported with USE_LISP_UNION_TYPE"
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
451 #endif
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
452
84979
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
453 #define XHASH(a) ((a).i)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
454 #define XTYPE(a) ((enum Lisp_Type) (a).u.type)
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
455 #define XINT(a) ((a).s.val)
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
456 #define XUINT(a) ((a).u.val)
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
457
105839
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
458 #ifdef USE_LSB_TAG
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
459
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
460 # define XSET(var, vartype, ptr) \
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
461 (eassert ((((EMACS_UINT) (ptr)) & ((1 << GCTYPEBITS) - 1)) == 0), \
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
462 (var).u.val = ((EMACS_UINT) (ptr)) >> GCTYPEBITS, \
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
463 (var).u.type = ((char) (vartype)))
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
464
105840
0d3a156a5458 (XPNTR) [USE_LSB_TAG && USE_LISP_UNION_TYPE]: silence compiler.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105839
diff changeset
465 /* Some versions of gcc seem to consider the bitfield width when issuing
0d3a156a5458 (XPNTR) [USE_LSB_TAG && USE_LISP_UNION_TYPE]: silence compiler.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105839
diff changeset
466 the "cast to pointer from integer of different size" warning, so the
0d3a156a5458 (XPNTR) [USE_LSB_TAG && USE_LISP_UNION_TYPE]: silence compiler.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105839
diff changeset
467 cast is here to widen the value back to its natural size. */
0d3a156a5458 (XPNTR) [USE_LSB_TAG && USE_LISP_UNION_TYPE]: silence compiler.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105839
diff changeset
468 # define XPNTR(v) ((EMACS_INT)((v).s.val) << GCTYPEBITS)
105839
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
469
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
470 #else /* !USE_LSB_TAG */
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
471
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
472 /* For integers known to be positive, XFASTINT provides fast retrieval
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
473 and XSETFASTINT provides fast storage. This takes advantage of the
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
474 fact that Lisp_Int is 0. */
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
475 # define XFASTINT(a) ((a).i + 0)
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
476 # define XSETFASTINT(a, b) ((a).i = (b))
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
477
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
478 # define XSET(var, vartype, ptr) \
31901
4e2853ad5d2d (union Lisp_Object) [!NO_UNION_TYPE]: Use EMACS_INT and
Gerd Moellmann <gerd@gnu.org>
parents: 31833
diff changeset
479 (((var).s.val = ((EMACS_INT) (ptr))), ((var).s.type = ((char) (vartype))))
28508
a68042252425 * lisp.h (make_number) [!NO_UNION_TYPE && __GNUC__ >= 2 && __OPTIMIZE__]:
Ken Raeburn <raeburn@raeburn.org>
parents: 28480
diff changeset
480
105839
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
481 #endif /* !USE_LSB_TAG */
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
482
28508
a68042252425 * lisp.h (make_number) [!NO_UNION_TYPE && __GNUC__ >= 2 && __OPTIMIZE__]:
Ken Raeburn <raeburn@raeburn.org>
parents: 28480
diff changeset
483 #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
484 #define make_number(N) \
a68042252425 * lisp.h (make_number) [!NO_UNION_TYPE && __GNUC__ >= 2 && __OPTIMIZE__]:
Ken Raeburn <raeburn@raeburn.org>
parents: 28480
diff changeset
485 (__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
486 #else
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
487 extern Lisp_Object make_number (EMACS_INT);
28508
a68042252425 * lisp.h (make_number) [!NO_UNION_TYPE && __GNUC__ >= 2 && __OPTIMIZE__]:
Ken Raeburn <raeburn@raeburn.org>
parents: 28480
diff changeset
488 #endif
17404
73012b195cf3 (DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents: 17326
diff changeset
489
97232
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
490 #endif /* USE_LISP_UNION_TYPE */
53000
8e568e954adf (GCTYPEMASK): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 52998
diff changeset
491
105839
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
492 /* For integers known to be positive, XFASTINT sometimes provides
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
493 faster retrieval and XSETFASTINT provides faster storage.
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
494 If not, fallback on the non-accelerated path. */
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
495 #ifndef XFASTINT
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
496 # define XFASTINT(a) (XINT (a))
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
497 # define XSETFASTINT(a, b) (XSETINT (a, b))
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
498 #endif
e0a471c09d45 Make USE_LSB_TAG work with USE_LISP_UNION_TYPE.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105747
diff changeset
499
84979
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
500 #define EQ(x, y) (XHASH (x) == XHASH (y))
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
501
46650
445d27e93380 (XPNTR): Use NO_UNION_TYPE version for union as well,
Ken Raeburn <raeburn@raeburn.org>
parents: 46573
diff changeset
502 #ifndef XPNTR
445d27e93380 (XPNTR): Use NO_UNION_TYPE version for union as well,
Ken Raeburn <raeburn@raeburn.org>
parents: 46573
diff changeset
503 #ifdef DATA_SEG_BITS
445d27e93380 (XPNTR): Use NO_UNION_TYPE version for union as well,
Ken Raeburn <raeburn@raeburn.org>
parents: 46573
diff changeset
504 /* This case is used for the rt-pc.
445d27e93380 (XPNTR): Use NO_UNION_TYPE version for union as well,
Ken Raeburn <raeburn@raeburn.org>
parents: 46573
diff changeset
505 In the diffs I was given, it checked for ptr = 0
445d27e93380 (XPNTR): Use NO_UNION_TYPE version for union as well,
Ken Raeburn <raeburn@raeburn.org>
parents: 46573
diff changeset
506 and did not adjust it in that case.
445d27e93380 (XPNTR): Use NO_UNION_TYPE version for union as well,
Ken Raeburn <raeburn@raeburn.org>
parents: 46573
diff changeset
507 But I don't think that zero should ever be found
445d27e93380 (XPNTR): Use NO_UNION_TYPE version for union as well,
Ken Raeburn <raeburn@raeburn.org>
parents: 46573
diff changeset
508 in a Lisp object whose data type says it points to something. */
445d27e93380 (XPNTR): Use NO_UNION_TYPE version for union as well,
Ken Raeburn <raeburn@raeburn.org>
parents: 46573
diff changeset
509 #define XPNTR(a) (XUINT (a) | DATA_SEG_BITS)
445d27e93380 (XPNTR): Use NO_UNION_TYPE version for union as well,
Ken Raeburn <raeburn@raeburn.org>
parents: 46573
diff changeset
510 #else
68628
6c6e4e3cccc8 (XPNTR) [!NO_UNION_TYPE && !HAVE_SHM && !DATA_SEG_BITS]: Cast bitfield
Ken Raeburn <raeburn@raeburn.org>
parents: 67506
diff changeset
511 /* Some versions of gcc seem to consider the bitfield width when
6c6e4e3cccc8 (XPNTR) [!NO_UNION_TYPE && !HAVE_SHM && !DATA_SEG_BITS]: Cast bitfield
Ken Raeburn <raeburn@raeburn.org>
parents: 67506
diff changeset
512 issuing the "cast to pointer from integer of different size"
6c6e4e3cccc8 (XPNTR) [!NO_UNION_TYPE && !HAVE_SHM && !DATA_SEG_BITS]: Cast bitfield
Ken Raeburn <raeburn@raeburn.org>
parents: 67506
diff changeset
513 warning, so the cast is here to widen the value back to its natural
6c6e4e3cccc8 (XPNTR) [!NO_UNION_TYPE && !HAVE_SHM && !DATA_SEG_BITS]: Cast bitfield
Ken Raeburn <raeburn@raeburn.org>
parents: 67506
diff changeset
514 size. */
6c6e4e3cccc8 (XPNTR) [!NO_UNION_TYPE && !HAVE_SHM && !DATA_SEG_BITS]: Cast bitfield
Ken Raeburn <raeburn@raeburn.org>
parents: 67506
diff changeset
515 #define XPNTR(a) ((EMACS_INT) XUINT (a))
46650
445d27e93380 (XPNTR): Use NO_UNION_TYPE version for union as well,
Ken Raeburn <raeburn@raeburn.org>
parents: 46573
diff changeset
516 #endif
445d27e93380 (XPNTR): Use NO_UNION_TYPE version for union as well,
Ken Raeburn <raeburn@raeburn.org>
parents: 46573
diff changeset
517 #endif /* no XPNTR */
445d27e93380 (XPNTR): Use NO_UNION_TYPE version for union as well,
Ken Raeburn <raeburn@raeburn.org>
parents: 46573
diff changeset
518
39640
6f7166fc8eec Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39631
diff changeset
519 /* Largest and smallest representable fixnum values. These are the C
6f7166fc8eec Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39631
diff changeset
520 values. */
6f7166fc8eec Fix last change.
Gerd Moellmann <gerd@gnu.org>
parents: 39631
diff changeset
521
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
522 #ifdef USE_2_TAGS_FOR_INTS
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
523 # define MOST_NEGATIVE_FIXNUM - ((EMACS_INT) 1 << VALBITS)
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
524 # define MOST_POSITIVE_FIXNUM (((EMACS_INT) 1 << VALBITS) - 1)
53088
63a8b584e971 (VALMASK): Only define for non-union type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53001
diff changeset
525 /* Mask indicating the significant bits of a Lisp_Int.
63a8b584e971 (VALMASK): Only define for non-union type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53001
diff changeset
526 I.e. (x & INTMASK) == XUINT (make_number (x)). */
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
527 # define INTMASK ((((EMACS_INT) 1) << (VALBITS + 1)) - 1)
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
528 #else
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
529 # define MOST_NEGATIVE_FIXNUM - ((EMACS_INT) 1 << (VALBITS - 1))
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
530 # define MOST_POSITIVE_FIXNUM (((EMACS_INT) 1 << (VALBITS - 1)) - 1)
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
531 /* Mask indicating the significant bits of a Lisp_Int.
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
532 I.e. (x & INTMASK) == XUINT (make_number (x)). */
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
533 # define INTMASK ((((EMACS_INT) 1) << VALBITS) - 1)
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
534 #endif
39631
3d61dd23854a (MOST_NEGATIVE_FIXNUM, MOST_POSITIVE_FIXNUM)
Gerd Moellmann <gerd@gnu.org>
parents: 39579
diff changeset
535
105747
35e7b757c606 (FIXNUM_OVERFLOW_P): Fix last change to handle unsigned
Andreas Schwab <schwab@linux-m68k.org>
parents: 105732
diff changeset
536 /* Value is non-zero if I doesn't fit into a Lisp fixnum. It is
35e7b757c606 (FIXNUM_OVERFLOW_P): Fix last change to handle unsigned
Andreas Schwab <schwab@linux-m68k.org>
parents: 105732
diff changeset
537 written this way so that it also works if I is of unsigned
35e7b757c606 (FIXNUM_OVERFLOW_P): Fix last change to handle unsigned
Andreas Schwab <schwab@linux-m68k.org>
parents: 105732
diff changeset
538 type. */
39631
3d61dd23854a (MOST_NEGATIVE_FIXNUM, MOST_POSITIVE_FIXNUM)
Gerd Moellmann <gerd@gnu.org>
parents: 39579
diff changeset
539
3d61dd23854a (MOST_NEGATIVE_FIXNUM, MOST_POSITIVE_FIXNUM)
Gerd Moellmann <gerd@gnu.org>
parents: 39579
diff changeset
540 #define FIXNUM_OVERFLOW_P(i) \
105732
39a36d9d9d93 (FIXNUM_OVERFLOW_P): Remove cast to avoid overflow.
Andreas Schwab <schwab@linux-m68k.org>
parents: 105726
diff changeset
541 ((i) > MOST_POSITIVE_FIXNUM \
105747
35e7b757c606 (FIXNUM_OVERFLOW_P): Fix last change to handle unsigned
Andreas Schwab <schwab@linux-m68k.org>
parents: 105732
diff changeset
542 || ((i) < 0 && (i) < MOST_NEGATIVE_FIXNUM))
39631
3d61dd23854a (MOST_NEGATIVE_FIXNUM, MOST_POSITIVE_FIXNUM)
Gerd Moellmann <gerd@gnu.org>
parents: 39579
diff changeset
543
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
544 /* Extract a value or address from a Lisp_Object. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
545
90971
2acda4a4ac92 (XGCTYPE, GC_HASH_TABLE_P, GC_NILP, GC_NUMBERP, GC_NATNUMP)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90918
diff changeset
546 #define XCONS(a) (eassert (CONSP(a)),(struct Lisp_Cons *) XPNTR(a))
2acda4a4ac92 (XGCTYPE, GC_HASH_TABLE_P, GC_NILP, GC_NUMBERP, GC_NATNUMP)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90918
diff changeset
547 #define XVECTOR(a) (eassert (VECTORLIKEP(a)),(struct Lisp_Vector *) XPNTR(a))
2acda4a4ac92 (XGCTYPE, GC_HASH_TABLE_P, GC_NILP, GC_NUMBERP, GC_NATNUMP)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90918
diff changeset
548 #define XSTRING(a) (eassert (STRINGP(a)),(struct Lisp_String *) XPNTR(a))
2acda4a4ac92 (XGCTYPE, GC_HASH_TABLE_P, GC_NILP, GC_NUMBERP, GC_NATNUMP)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90918
diff changeset
549 #define XSYMBOL(a) (eassert (SYMBOLP(a)),(struct Lisp_Symbol *) XPNTR(a))
2acda4a4ac92 (XGCTYPE, GC_HASH_TABLE_P, GC_NILP, GC_NUMBERP, GC_NATNUMP)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90918
diff changeset
550 #define XFLOAT(a) (eassert (FLOATP(a)),(struct Lisp_Float *) XPNTR(a))
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
551
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
552 /* Misc types. */
30173
420acffb79c2 (AREF, ASET, ASIZE): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 30081
diff changeset
553
9435
3a157cdf395c (Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents: 9392
diff changeset
554 #define XMISC(a) ((union Lisp_Misc *) XPNTR(a))
85345
35d2f0abc597 (XMISCANY, XMARKER, XINTFWD, XBOOLFWD, XOBJFWD, XOVERLAY, XBUFFER_OBJFWD)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85328
diff changeset
555 #define XMISCANY(a) (eassert (MISCP (a)), &(XMISC(a)->u_any))
85328
d0d527210b0c * lisp.h (enum Lisp_Misc_Type): Del Lisp_Misc_Some_Buffer_Local_Value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85250
diff changeset
556 #define XMISCTYPE(a) (XMISCANY (a)->type)
85345
35d2f0abc597 (XMISCANY, XMARKER, XINTFWD, XBOOLFWD, XOBJFWD, XOVERLAY, XBUFFER_OBJFWD)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85328
diff changeset
557 #define XMARKER(a) (eassert (MARKERP (a)), &(XMISC(a)->u_marker))
35d2f0abc597 (XMISCANY, XMARKER, XINTFWD, XBOOLFWD, XOBJFWD, XOVERLAY, XBUFFER_OBJFWD)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85328
diff changeset
558 #define XOVERLAY(a) (eassert (OVERLAYP (a)), &(XMISC(a)->u_overlay))
35d2f0abc597 (XMISCANY, XMARKER, XINTFWD, XBOOLFWD, XOBJFWD, XOVERLAY, XBUFFER_OBJFWD)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85328
diff changeset
559 #define XSAVE_VALUE(a) (eassert (SAVE_VALUEP (a)), &(XMISC(a)->u_save_value))
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
560
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
561 /* Forwarding object types. */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
562
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
563 #define XFWDTYPE(a) (a->u_intfwd.type)
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
564 #define XINTFWD(a) (eassert (INTFWDP (a)), &((a)->u_intfwd))
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
565 #define XBOOLFWD(a) (eassert (BOOLFWDP (a)), &((a)->u_boolfwd))
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
566 #define XOBJFWD(a) (eassert (OBJFWDP (a)), &((a)->u_objfwd))
85345
35d2f0abc597 (XMISCANY, XMARKER, XINTFWD, XBOOLFWD, XOBJFWD, XOVERLAY, XBUFFER_OBJFWD)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85328
diff changeset
567 #define XBUFFER_OBJFWD(a) \
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
568 (eassert (BUFFER_OBJFWDP (a)), &((a)->u_buffer_objfwd))
85345
35d2f0abc597 (XMISCANY, XMARKER, XINTFWD, XBOOLFWD, XOBJFWD, XOVERLAY, XBUFFER_OBJFWD)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85328
diff changeset
569 #define XKBOARD_OBJFWD(a) \
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
570 (eassert (KBOARD_OBJFWDP (a)), &((a)->u_kboard_objfwd))
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
571
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
572 /* Pseudovector types. */
30173
420acffb79c2 (AREF, ASET, ASIZE): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 30081
diff changeset
573
90971
2acda4a4ac92 (XGCTYPE, GC_HASH_TABLE_P, GC_NILP, GC_NUMBERP, GC_NATNUMP)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90918
diff changeset
574 #define XPROCESS(a) (eassert (PROCESSP(a)),(struct Lisp_Process *) XPNTR(a))
2acda4a4ac92 (XGCTYPE, GC_HASH_TABLE_P, GC_NILP, GC_NUMBERP, GC_NATNUMP)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90918
diff changeset
575 #define XWINDOW(a) (eassert (WINDOWP(a)),(struct window *) XPNTR(a))
91041
bdb3fe0ba9fa Merge from emacs--devo--0
Miles Bader <miles@gnu.org>
parents: 91005 85105
diff changeset
576 #define XTERMINAL(a) (eassert (TERMINALP(a)),(struct terminal *) XPNTR(a))
90971
2acda4a4ac92 (XGCTYPE, GC_HASH_TABLE_P, GC_NILP, GC_NUMBERP, GC_NATNUMP)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90918
diff changeset
577 #define XSUBR(a) (eassert (SUBRP(a)),(struct Lisp_Subr *) XPNTR(a))
2acda4a4ac92 (XGCTYPE, GC_HASH_TABLE_P, GC_NILP, GC_NUMBERP, GC_NATNUMP)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90918
diff changeset
578 #define XBUFFER(a) (eassert (BUFFERP(a)),(struct buffer *) XPNTR(a))
91041
bdb3fe0ba9fa Merge from emacs--devo--0
Miles Bader <miles@gnu.org>
parents: 91005 85105
diff changeset
579 #define XCHAR_TABLE(a) (eassert (CHAR_TABLE_P (a)), (struct Lisp_Char_Table *) XPNTR(a))
bdb3fe0ba9fa Merge from emacs--devo--0
Miles Bader <miles@gnu.org>
parents: 91005 85105
diff changeset
580 #define XSUB_CHAR_TABLE(a) (eassert (SUB_CHAR_TABLE_P (a)), (struct Lisp_Sub_Char_Table *) XPNTR(a))
bdb3fe0ba9fa Merge from emacs--devo--0
Miles Bader <miles@gnu.org>
parents: 91005 85105
diff changeset
581 #define XBOOL_VECTOR(a) (eassert (BOOL_VECTOR_P (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
582
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
583 /* 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
584
51657
7fb427e8d984 (struct interval, struct Lisp_Symbol, struct Lisp_Free)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51167
diff changeset
585 #define XSETINT(a, b) (a) = make_number (b)
9287
781ada39b15c (XSETINT, XSETCONS, XSETBUFFER, XSETVECTOR, XSETSUBR, XSETSTRING, XSETSYMBOL,
Karl Heuer <kwzh@gnu.org>
parents: 9150
diff changeset
586 #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
587 #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
588 #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
589 #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
590 #define XSETFLOAT(a, b) XSET (a, Lisp_Float, b)
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
591
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
592 /* Misc types. */
30173
420acffb79c2 (AREF, ASET, ASIZE): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 30081
diff changeset
593
9435
3a157cdf395c (Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents: 9392
diff changeset
594 #define XSETMISC(a, b) XSET (a, Lisp_Misc, b)
11335
78eda0ee4cba (XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents: 11204
diff changeset
595 #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
596
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
597 /* Pseudovector types. */
30173
420acffb79c2 (AREF, ASET, ASIZE): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 30081
diff changeset
598
85012
3a31b2cfe77f (ARRAY_MARK_FLAG, PSEUDOVECTOR_FLAG): Don't allow definition in m/*.h files.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85011
diff changeset
599 #define XSETPVECTYPE(v,code) ((v)->size |= PSEUDOVECTOR_FLAG | (code))
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
600 #define XSETPSEUDOVECTOR(a, b, code) \
85105
ba4f1a829f83 (XSETPSEUDOVECTOR): Don't set the tag anymore.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85022
diff changeset
601 (XSETVECTOR (a, b), \
ba4f1a829f83 (XSETPSEUDOVECTOR): Don't set the tag anymore.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85022
diff changeset
602 eassert ((XVECTOR (a)->size & (PSEUDOVECTOR_FLAG | PVEC_TYPE_MASK)) \
ba4f1a829f83 (XSETPSEUDOVECTOR): Don't set the tag anymore.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85022
diff changeset
603 == (PSEUDOVECTOR_FLAG | (code))))
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
604 #define XSETWINDOW_CONFIGURATION(a, b) \
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
605 (XSETPSEUDOVECTOR (a, b, PVEC_WINDOW_CONFIGURATION))
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
606 #define XSETPROCESS(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_PROCESS))
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
607 #define XSETWINDOW(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_WINDOW))
84689
73c717fa7866 (enum pvec_type): New `terminal' pseudovector.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84434
diff changeset
608 #define XSETTERMINAL(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_TERMINAL))
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
609 #define XSETSUBR(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_SUBR))
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
610 #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
611 #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
612 #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
613 #define XSETBOOL_VECTOR(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_BOOL_VECTOR))
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
614 #define XSETSUB_CHAR_TABLE(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_SUB_CHAR_TABLE))
30173
420acffb79c2 (AREF, ASET, ASIZE): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 30081
diff changeset
615
420acffb79c2 (AREF, ASET, ASIZE): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 30081
diff changeset
616 /* Convenience macros for dealing with Lisp arrays. */
420acffb79c2 (AREF, ASET, ASIZE): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 30081
diff changeset
617
420acffb79c2 (AREF, ASET, ASIZE): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 30081
diff changeset
618 #define AREF(ARRAY, IDX) XVECTOR ((ARRAY))->contents[IDX]
420acffb79c2 (AREF, ASET, ASIZE): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 30081
diff changeset
619 #define ASIZE(ARRAY) XVECTOR ((ARRAY))->size
91822
311ffbbfa909 Undo last mistakenly commited change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91813
diff changeset
620 /* The IDX==IDX tries to detect when the macro argument is side-effecting. */
91717
23bd9edca21f (ASET): Check bounds.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91702
diff changeset
621 #define ASET(ARRAY, IDX, VAL) \
23bd9edca21f (ASET): Check bounds.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91702
diff changeset
622 (eassert ((IDX) == (IDX)), \
23bd9edca21f (ASET): Check bounds.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91702
diff changeset
623 eassert ((IDX) >= 0 && (IDX) < ASIZE (ARRAY)), \
91822
311ffbbfa909 Undo last mistakenly commited change.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91813
diff changeset
624 AREF ((ARRAY), (IDX)) = (VAL))
30173
420acffb79c2 (AREF, ASET, ASIZE): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 30081
diff changeset
625
43780
412b8fa3fd95 (SREF, SDATA, SCHARS, SBYTES, SMBP): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
626 /* Convenience macros for dealing with Lisp strings. */
412b8fa3fd95 (SREF, SDATA, SCHARS, SBYTES, SMBP): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
627
46416
de62156bec9a (SDATA): Produce rvalue.
Ken Raeburn <raeburn@raeburn.org>
parents: 46377
diff changeset
628 #define SDATA(string) (XSTRING (string)->data + 0)
84979
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
629 #define SREF(string, index) (SDATA (string)[index] + 0)
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
630 #define SSET(string, index, new) (SDATA (string)[index] = (new))
46372
e7289ef367d8 * lisp.h (STRING_SET_CHARS): New macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 46369
diff changeset
631 #define SCHARS(string) (XSTRING (string)->size + 0)
e7289ef367d8 * lisp.h (STRING_SET_CHARS): New macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 46369
diff changeset
632 #define SBYTES(string) (STRING_BYTES (XSTRING (string)) + 0)
e7289ef367d8 * lisp.h (STRING_SET_CHARS): New macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 46369
diff changeset
633
e7289ef367d8 * lisp.h (STRING_SET_CHARS): New macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 46369
diff changeset
634 #define STRING_SET_CHARS(string, newsize) \
e7289ef367d8 * lisp.h (STRING_SET_CHARS): New macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 46369
diff changeset
635 (XSTRING (string)->size = (newsize))
43780
412b8fa3fd95 (SREF, SDATA, SCHARS, SBYTES, SMBP): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 43713
diff changeset
636
46552
cb055b77d3c6 (STRING_COPYIN): New macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 46471
diff changeset
637 #define STRING_COPYIN(string, index, new, count) \
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109154
diff changeset
638 memcpy (SDATA (string) + index, new, count)
46552
cb055b77d3c6 (STRING_COPYIN): New macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 46471
diff changeset
639
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
640 /* Type checking. */
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
641
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
642 #define CHECK_TYPE(ok, Qxxxp, x) \
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
643 do { if (!(ok)) wrong_type_argument (Qxxxp, (x)); } while (0)
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
644
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
645
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
646
51858
bf6232373c39 (VALBITS): Define in terms of GCTYPEBITS.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51833
diff changeset
647 /* 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
648
9b0ddca4773b * lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents: 1277
diff changeset
649 typedef struct interval *INTERVAL;
9b0ddca4773b * lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents: 1277
diff changeset
650
9b0ddca4773b * lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents: 1277
diff changeset
651 /* Complain if object is not string or buffer type */
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
652 #define CHECK_STRING_OR_BUFFER(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
653 CHECK_TYPE (STRINGP (x) || BUFFERP (x), Qbuffer_or_string_p, x)
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
654
1290
9b0ddca4773b * lisp.h: Conditionally define interval structure and macros.
Joseph Arceneaux <jla@gnu.org>
parents: 1277
diff changeset
655
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
656 /* In a cons, the markbit of the car is the gc mark bit */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
657
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
658 struct Lisp_Cons
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
659 {
25421
65a7e9c02d4f (struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents: 25392
diff changeset
660 /* 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
661 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
662 #ifdef HIDE_LISP_IMPLEMENTATION
66888
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
663 Lisp_Object car_;
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
664 union
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
665 {
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
666 Lisp_Object cdr_;
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
667 struct Lisp_Cons *chain;
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
668 } u;
25421
65a7e9c02d4f (struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents: 25392
diff changeset
669 #else
66888
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
670 Lisp_Object car;
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
671 union
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
672 {
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
673 Lisp_Object cdr;
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
674 struct Lisp_Cons *chain;
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
675 } u;
25421
65a7e9c02d4f (struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents: 25392
diff changeset
676 #endif
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
677 };
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
678
14306
b30429f0b599 (XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
679 /* Take the car or cdr of something known to be a cons cell. */
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
680 /* The _AS_LVALUE macros shouldn't be used outside of the minimal set
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
681 of code that has to know what a cons cell looks like. Other code not
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
682 part of the basic lisp implementation should assume that the car and cdr
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
683 fields are not accessible as lvalues. (What if we want to switch to
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
684 a copying collector someday? Cached cons cell field addresses may be
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
685 invalidated at arbitrary points.) */
25421
65a7e9c02d4f (struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents: 25392
diff changeset
686 #ifdef HIDE_LISP_IMPLEMENTATION
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
687 #define XCAR_AS_LVALUE(c) (XCONS ((c))->car_)
66888
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
688 #define XCDR_AS_LVALUE(c) (XCONS ((c))->u.cdr_)
25421
65a7e9c02d4f (struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents: 25392
diff changeset
689 #else
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
690 #define XCAR_AS_LVALUE(c) (XCONS ((c))->car)
66888
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
691 #define XCDR_AS_LVALUE(c) (XCONS ((c))->u.cdr)
25421
65a7e9c02d4f (struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents: 25392
diff changeset
692 #endif
14306
b30429f0b599 (XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
693
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
694 /* Use these from normal code. */
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
695 #define XCAR(c) LISP_MAKE_RVALUE(XCAR_AS_LVALUE(c))
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
696 #define XCDR(c) LISP_MAKE_RVALUE(XCDR_AS_LVALUE(c))
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
697
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
698 /* Use these to set the fields of a cons cell.
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
699
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
700 Note that both arguments may refer to the same object, so 'n'
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
701 should not be read after 'c' is first modified. Also, neither
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
702 argument should be evaluated more than once; side effects are
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
703 especially common in the second argument. */
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
704 #define XSETCAR(c,n) (XCAR_AS_LVALUE(c) = (n))
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
705 #define XSETCDR(c,n) (XCDR_AS_LVALUE(c) = (n))
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
706
14306
b30429f0b599 (XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
707 /* 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
708 #define CAR(c) \
b30429f0b599 (XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
709 (CONSP ((c)) ? XCAR ((c)) \
b30429f0b599 (XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
710 : NILP ((c)) ? Qnil \
b30429f0b599 (XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
711 : wrong_type_argument (Qlistp, (c)))
b30429f0b599 (XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
712
b30429f0b599 (XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
713 #define CDR(c) \
b30429f0b599 (XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
714 (CONSP ((c)) ? XCDR ((c)) \
b30429f0b599 (XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
715 : NILP ((c)) ? Qnil \
b30429f0b599 (XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
716 : wrong_type_argument (Qlistp, (c)))
b30429f0b599 (XCAR, XCDR, CAR, CDR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
717
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
718 /* Take the car or cdr of something whose type is not known. */
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
719 #define CAR_SAFE(c) \
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
720 (CONSP ((c)) ? XCAR ((c)) : Qnil)
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
721
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
722 #define CDR_SAFE(c) \
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
723 (CONSP ((c)) ? XCDR ((c)) : Qnil)
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
724
21276
e0c0f8846fb0 Declarations changed.
Kenichi Handa <handa@m17n.org>
parents: 21199
diff changeset
725 /* Nonzero if STR is a multibyte string. */
e0c0f8846fb0 Declarations changed.
Kenichi Handa <handa@m17n.org>
parents: 21199
diff changeset
726 #define STRING_MULTIBYTE(STR) \
e0c0f8846fb0 Declarations changed.
Kenichi Handa <handa@m17n.org>
parents: 21199
diff changeset
727 (XSTRING (STR)->size_byte >= 0)
e0c0f8846fb0 Declarations changed.
Kenichi Handa <handa@m17n.org>
parents: 21199
diff changeset
728
e0c0f8846fb0 Declarations changed.
Kenichi Handa <handa@m17n.org>
parents: 21199
diff changeset
729 /* Return the length in bytes of STR. */
35184
07ec5658a7a5 (STRING_BYTES) [GC_CHECK_STRING_BYTES]: Call
Gerd Moellmann <gerd@gnu.org>
parents: 35173
diff changeset
730
07ec5658a7a5 (STRING_BYTES) [GC_CHECK_STRING_BYTES]: Call
Gerd Moellmann <gerd@gnu.org>
parents: 35173
diff changeset
731 #ifdef GC_CHECK_STRING_BYTES
07ec5658a7a5 (STRING_BYTES) [GC_CHECK_STRING_BYTES]: Call
Gerd Moellmann <gerd@gnu.org>
parents: 35173
diff changeset
732
07ec5658a7a5 (STRING_BYTES) [GC_CHECK_STRING_BYTES]: Call
Gerd Moellmann <gerd@gnu.org>
parents: 35173
diff changeset
733 struct Lisp_String;
110503
fda36a325177 Fix some more uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110484
diff changeset
734 extern EMACS_INT string_bytes (struct Lisp_String *);
35184
07ec5658a7a5 (STRING_BYTES) [GC_CHECK_STRING_BYTES]: Call
Gerd Moellmann <gerd@gnu.org>
parents: 35173
diff changeset
735 #define STRING_BYTES(S) string_bytes ((S))
07ec5658a7a5 (STRING_BYTES) [GC_CHECK_STRING_BYTES]: Call
Gerd Moellmann <gerd@gnu.org>
parents: 35173
diff changeset
736
07ec5658a7a5 (STRING_BYTES) [GC_CHECK_STRING_BYTES]: Call
Gerd Moellmann <gerd@gnu.org>
parents: 35173
diff changeset
737 #else /* not GC_CHECK_STRING_BYTES */
07ec5658a7a5 (STRING_BYTES) [GC_CHECK_STRING_BYTES]: Call
Gerd Moellmann <gerd@gnu.org>
parents: 35173
diff changeset
738
21276
e0c0f8846fb0 Declarations changed.
Kenichi Handa <handa@m17n.org>
parents: 21199
diff changeset
739 #define STRING_BYTES(STR) \
e0c0f8846fb0 Declarations changed.
Kenichi Handa <handa@m17n.org>
parents: 21199
diff changeset
740 ((STR)->size_byte < 0 ? (STR)->size : (STR)->size_byte)
e0c0f8846fb0 Declarations changed.
Kenichi Handa <handa@m17n.org>
parents: 21199
diff changeset
741
35184
07ec5658a7a5 (STRING_BYTES) [GC_CHECK_STRING_BYTES]: Call
Gerd Moellmann <gerd@gnu.org>
parents: 35173
diff changeset
742 #endif /* not GC_CHECK_STRING_BYTES */
07ec5658a7a5 (STRING_BYTES) [GC_CHECK_STRING_BYTES]: Call
Gerd Moellmann <gerd@gnu.org>
parents: 35173
diff changeset
743
46369
dd1d3b1d0053 (SMBP): Deleted. All uses changed to STRING_MULTIBYTE.
Ken Raeburn <raeburn@raeburn.org>
parents: 46304
diff changeset
744 /* Mark STR as a unibyte string. */
81269
5e310b8be81d (STRING_SET_UNIBYTE): Return the canonical empty unibyte string, if appropriate.
Juanma Barranquero <lekktu@gmail.com>
parents: 80985
diff changeset
745 #define STRING_SET_UNIBYTE(STR) \
5e310b8be81d (STRING_SET_UNIBYTE): Return the canonical empty unibyte string, if appropriate.
Juanma Barranquero <lekktu@gmail.com>
parents: 80985
diff changeset
746 do { if (EQ (STR, empty_multibyte_string)) \
5e310b8be81d (STRING_SET_UNIBYTE): Return the canonical empty unibyte string, if appropriate.
Juanma Barranquero <lekktu@gmail.com>
parents: 80985
diff changeset
747 (STR) = empty_unibyte_string; \
5e310b8be81d (STRING_SET_UNIBYTE): Return the canonical empty unibyte string, if appropriate.
Juanma Barranquero <lekktu@gmail.com>
parents: 80985
diff changeset
748 else XSTRING (STR)->size_byte = -1; } while (0)
46369
dd1d3b1d0053 (SMBP): Deleted. All uses changed to STRING_MULTIBYTE.
Ken Raeburn <raeburn@raeburn.org>
parents: 46304
diff changeset
749
94121
21ceec8c4a93 (STRING_SET_MULTIBYTE): New macro.
Kenichi Handa <handa@m17n.org>
parents: 93369
diff changeset
750 /* Mark STR as a multibyte string. Assure that STR contains only
21ceec8c4a93 (STRING_SET_MULTIBYTE): New macro.
Kenichi Handa <handa@m17n.org>
parents: 93369
diff changeset
751 ASCII characters in advance. */
21ceec8c4a93 (STRING_SET_MULTIBYTE): New macro.
Kenichi Handa <handa@m17n.org>
parents: 93369
diff changeset
752 #define STRING_SET_MULTIBYTE(STR) \
21ceec8c4a93 (STRING_SET_MULTIBYTE): New macro.
Kenichi Handa <handa@m17n.org>
parents: 93369
diff changeset
753 do { if (EQ (STR, empty_unibyte_string)) \
21ceec8c4a93 (STRING_SET_MULTIBYTE): New macro.
Kenichi Handa <handa@m17n.org>
parents: 93369
diff changeset
754 (STR) = empty_multibyte_string; \
21ceec8c4a93 (STRING_SET_MULTIBYTE): New macro.
Kenichi Handa <handa@m17n.org>
parents: 93369
diff changeset
755 else XSTRING (STR)->size_byte = XSTRING (STR)->size; } while (0)
46369
dd1d3b1d0053 (SMBP): Deleted. All uses changed to STRING_MULTIBYTE.
Ken Raeburn <raeburn@raeburn.org>
parents: 46304
diff changeset
756
dd1d3b1d0053 (SMBP): Deleted. All uses changed to STRING_MULTIBYTE.
Ken Raeburn <raeburn@raeburn.org>
parents: 46304
diff changeset
757 /* Get text properties. */
46377
d50779ef2a76 * lisp.h (STRING_INTERVALS): Produce rvalue.
Ken Raeburn <raeburn@raeburn.org>
parents: 46372
diff changeset
758 #define STRING_INTERVALS(STR) (XSTRING (STR)->intervals + 0)
d50779ef2a76 * lisp.h (STRING_INTERVALS): Produce rvalue.
Ken Raeburn <raeburn@raeburn.org>
parents: 46372
diff changeset
759
d50779ef2a76 * lisp.h (STRING_INTERVALS): Produce rvalue.
Ken Raeburn <raeburn@raeburn.org>
parents: 46372
diff changeset
760 /* Set text properties. */
d50779ef2a76 * lisp.h (STRING_INTERVALS): Produce rvalue.
Ken Raeburn <raeburn@raeburn.org>
parents: 46372
diff changeset
761 #define STRING_SET_INTERVALS(STR, INT) (XSTRING (STR)->intervals = (INT))
21276
e0c0f8846fb0 Declarations changed.
Kenichi Handa <handa@m17n.org>
parents: 21199
diff changeset
762
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
763 /* In a string or vector, the sign bit of the `size' is the gc mark bit */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
764
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
765 struct Lisp_String
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
766 {
8827
97bf951c0b98 (Lisp_Object): Use EMACS_INT.
Richard M. Stallman <rms@gnu.org>
parents: 8631
diff changeset
767 EMACS_INT size;
20625
a9c4bf3f4e46 (STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents: 20569
diff changeset
768 EMACS_INT size_byte;
30934
ce33e6835a31 (Lisp_String): Replace DECLARE_INTERVALS with real decl.
Miles Bader <miles@gnu.org>
parents: 30918
diff changeset
769 INTERVAL intervals; /* text properties in this string */
27141
d7b1de135a40 Add prototype for allocate_string_data.
Gerd Moellmann <gerd@gnu.org>
parents: 27078
diff changeset
770 unsigned char *data;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
771 };
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
772
69874
e9739d967d09 (PSEUDOVECSIZE): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 69871
diff changeset
773 struct Lisp_Vector
e9739d967d09 (PSEUDOVECSIZE): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 69871
diff changeset
774 {
85022
96eb42c9e0e3 * window.h (struct window):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85021
diff changeset
775 EMACS_UINT size;
69874
e9739d967d09 (PSEUDOVECSIZE): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 69871
diff changeset
776 struct Lisp_Vector *next;
e9739d967d09 (PSEUDOVECSIZE): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 69871
diff changeset
777 Lisp_Object contents[1];
e9739d967d09 (PSEUDOVECSIZE): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 69871
diff changeset
778 };
e9739d967d09 (PSEUDOVECSIZE): Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 69871
diff changeset
779
9971
214a00665c2b Declare allocate_vectorlike.
Karl Heuer <kwzh@gnu.org>
parents: 9967
diff changeset
780 /* 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
781 of the shortest vector that would hold that struct. */
80829
6601f854ccc9 (VECSIZE): Use OFFSETOF.
Andreas Schwab <schwab@suse.de>
parents: 76496
diff changeset
782 #define VECSIZE(type) ((sizeof (type) \
109320
a0d2db31314d Use offsetof instead of own definition
Andreas Schwab <schwab@linux-m68k.org>
parents: 109313
diff changeset
783 - offsetof (struct Lisp_Vector, contents[0]) \
80829
6601f854ccc9 (VECSIZE): Use OFFSETOF.
Andreas Schwab <schwab@suse.de>
parents: 76496
diff changeset
784 + sizeof(Lisp_Object) - 1) /* round up */ \
9971
214a00665c2b Declare allocate_vectorlike.
Karl Heuer <kwzh@gnu.org>
parents: 9967
diff changeset
785 / sizeof (Lisp_Object))
214a00665c2b Declare allocate_vectorlike.
Karl Heuer <kwzh@gnu.org>
parents: 9967
diff changeset
786
69869
89bc86c44d7c (OFFSETOF, PSEUDOVECSIZE): New macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69374
diff changeset
787 /* Like VECSIZE, but used when the pseudo-vector has non-Lisp_Object fields
89bc86c44d7c (OFFSETOF, PSEUDOVECSIZE): New macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69374
diff changeset
788 at the end and we need to compute the number of Lisp_Object fields (the
89bc86c44d7c (OFFSETOF, PSEUDOVECSIZE): New macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69374
diff changeset
789 ones that the GC needs to trace). */
89bc86c44d7c (OFFSETOF, PSEUDOVECSIZE): New macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69374
diff changeset
790 #define PSEUDOVECSIZE(type, nonlispfield) \
109320
a0d2db31314d Use offsetof instead of own definition
Andreas Schwab <schwab@linux-m68k.org>
parents: 109313
diff changeset
791 ((offsetof(type, nonlispfield) - offsetof(struct Lisp_Vector, contents[0])) \
69869
89bc86c44d7c (OFFSETOF, PSEUDOVECSIZE): New macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69374
diff changeset
792 / sizeof (Lisp_Object))
89bc86c44d7c (OFFSETOF, PSEUDOVECSIZE): New macros.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69374
diff changeset
793
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
794 /* A char-table is a kind of vectorlike, with contents are like a
17326
bd34aa57f3f5 (CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents: 17289
diff changeset
795 vector but with a few other slots. For some purposes, it makes
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
796 sense to handle a char-table with type struct Lisp_Vector. An
17326
bd34aa57f3f5 (CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents: 17289
diff changeset
797 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
798 char-table, we treat it a table that contains information of a
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
799 specific range of characters. A sub char-table has the same
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
800 structure as a vector. A sub char table appears only in an element
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
801 of a char-table, and there's no way to access it directly from
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
802 Emacs Lisp program. */
13149
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
803
17326
bd34aa57f3f5 (CHAR_TABLE_STANDARD_SLOTS): Now 4 more slots than
Kenichi Handa <handa@m17n.org>
parents: 17289
diff changeset
804 /* 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
805 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
806 slots. */
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
807 #define CHAR_TABLE_STANDARD_SLOTS (VECSIZE (struct Lisp_Char_Table) - 1)
13149
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
808
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
809 /* 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
810
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
811 #define CHAR_TABLE_EXTRA_SLOTS(CT) \
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
812 (((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
813
104568
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
814 #ifdef __GNUC__
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
815
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
816 #define CHAR_TABLE_REF_ASCII(CT, IDX) \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
817 ({struct Lisp_Char_Table *_tbl = NULL; \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
818 Lisp_Object _val; \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
819 do { \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
820 _tbl = _tbl ? XCHAR_TABLE (_tbl->parent) : XCHAR_TABLE (CT); \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
821 _val = (! SUB_CHAR_TABLE_P (_tbl->ascii) ? _tbl->ascii \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
822 : XSUB_CHAR_TABLE (_tbl->ascii)->contents[IDX]); \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
823 if (NILP (_val)) \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
824 _val = _tbl->defalt; \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
825 } while (NILP (_val) && ! NILP (_tbl->parent)); \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
826 _val; })
105373
7a4bd0ca624b * lisp.h (Qdelete_directory_internal): Remove, because it is not
Michael Albinus <michael.albinus@gmx.de>
parents: 105367
diff changeset
827
104568
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
828 #else /* not __GNUC__ */
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
829
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
830 #define CHAR_TABLE_REF_ASCII(CT, IDX) \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
831 (! NILP (XCHAR_TABLE (CT)->ascii) \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
832 ? (! SUB_CHAR_TABLE_P (XCHAR_TABLE (CT)->ascii) \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
833 ? XCHAR_TABLE (CT)->ascii \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
834 : ! NILP (XSUB_CHAR_TABLE (XCHAR_TABLE (CT)->ascii)->contents[IDX]) \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
835 ? XSUB_CHAR_TABLE (XCHAR_TABLE (CT)->ascii)->contents[IDX] \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
836 : char_table_ref ((CT), (IDX))) \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
837 : char_table_ref ((CT), (IDX)))
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
838
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
839 #endif /* not __GNUC__ */
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
840
17188
e38cc84db8ab (CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents: 17141
diff changeset
841 /* Almost equivalent to Faref (CT, IDX) with optimization for ASCII
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
842 characters. Do not check validity of CT. */
104568
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
843 #define CHAR_TABLE_REF(CT, IDX) \
e6841301fe4d (CHAR_TABLE_REF_ASCII): New macor.
Kenichi Handa <handa@m17n.org>
parents: 104313
diff changeset
844 (ASCII_CHAR_P (IDX) ? CHAR_TABLE_REF_ASCII ((CT), (IDX)) \
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
845 : char_table_ref ((CT), (IDX)))
17188
e38cc84db8ab (CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents: 17141
diff changeset
846
89574
3c4fef237ab7 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 89520
diff changeset
847 /* Almost equivalent to Faref (CT, IDX). However, if the result is
3c4fef237ab7 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 89520
diff changeset
848 not a character, return IDX.
22239
0a666cecb85d (CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents: 22190
diff changeset
849
0a666cecb85d (CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents: 22190
diff changeset
850 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
851 and do not follow parent. */
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
852 #define CHAR_TABLE_TRANSLATE(CT, IDX) \
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
853 char_table_translate (CT, IDX)
22239
0a666cecb85d (CHAR_TABLE_TRANSLATE): New macro.
Richard M. Stallman <rms@gnu.org>
parents: 22190
diff changeset
854
17188
e38cc84db8ab (CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents: 17141
diff changeset
855 /* Equivalent to Faset (CT, IDX, VAL) with optimization for ASCII and
88933
b47c197101cf (Fnew_fontset): Declare.
Dave Love <fx@gnu.org>
parents: 88904
diff changeset
856 8-bit European characters. Do not check validity of CT. */
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
857 #define CHAR_TABLE_SET(CT, IDX, VAL) \
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
858 (((IDX) >= 0 && ASCII_CHAR_P (IDX) \
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
859 && SUB_CHAR_TABLE_P (XCHAR_TABLE (CT)->ascii)) \
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
860 ? XSUB_CHAR_TABLE (XCHAR_TABLE (CT)->ascii)->contents[IDX] = VAL \
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
861 : char_table_set (CT, IDX, VAL))
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
862
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
863 #define CHARTAB_SIZE_BITS_0 6
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
864 #define CHARTAB_SIZE_BITS_1 4
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
865 #define CHARTAB_SIZE_BITS_2 5
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
866 #define CHARTAB_SIZE_BITS_3 7
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
867
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
868 extern const int chartab_size[4];
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
869
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
870 struct Lisp_Sub_Char_Table;
17188
e38cc84db8ab (CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents: 17141
diff changeset
871
13149
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
872 struct Lisp_Char_Table
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
873 {
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
874 /* 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
875 pseudovector type information. It holds the size, too.
91041
bdb3fe0ba9fa Merge from emacs--devo--0
Miles Bader <miles@gnu.org>
parents: 91005 85105
diff changeset
876 The size counts the defalt, parent, purpose, ascii,
bdb3fe0ba9fa Merge from emacs--devo--0
Miles Bader <miles@gnu.org>
parents: 91005 85105
diff changeset
877 contents, and extras slots. */
85022
96eb42c9e0e3 * window.h (struct window):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85021
diff changeset
878 EMACS_UINT size;
13149
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
879 struct Lisp_Vector *next;
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
880
13149
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
881 /* This holds a default value,
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
882 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
883 Lisp_Object defalt;
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
884
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
885 /* This points to another char table, which we inherit from when the
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
886 value for a specific character is nil. The `defalt' slot takes
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
887 precedence over this. */
13149
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
888 Lisp_Object parent;
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
889
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
890 /* This is a symbol which says what kind of use this char-table is
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
891 meant for. */
13202
b307cd5c259f (struct Lisp_Char_Table): New slot `purpose'.
Richard M. Stallman <rms@gnu.org>
parents: 13149
diff changeset
892 Lisp_Object purpose;
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
893
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
894 /* The bottom sub char-table for characters of the range 0..127. It
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
895 is nil if none of ASCII character has a specific value. */
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
896 Lisp_Object ascii;
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
897
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
898 Lisp_Object contents[(1 << CHARTAB_SIZE_BITS_0)];
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
899
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
900 /* These hold additional data. It is a vector. */
13149
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
901 Lisp_Object extras[1];
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
902 };
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
903
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
904 struct Lisp_Sub_Char_Table
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
905 {
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
906 /* This is the vector's size field, which also holds the
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
907 pseudovector type information. It holds the size, too. */
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
908 EMACS_INT size;
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
909 struct Lisp_Vector *next;
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
910
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
911 /* Depth of this sub char-table. It should be 1, 2, or 3. A sub
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
912 char-table of depth 1 contains 16 elements, and each element
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
913 covers 4096 (128*32) characters. A sub char-table of depth 2
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
914 contains 32 elements, and each element covers 128 characters. A
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
915 sub char-table of depth 3 contains 128 elements, and each element
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
916 is for one character. */
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
917 Lisp_Object depth;
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
918
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
919 /* Minimum character covered by the sub char-table. */
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
920 Lisp_Object min_char;
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
921
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
922 Lisp_Object contents[1];
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
923 };
13149
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
924
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
925 /* 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
926 struct Lisp_Bool_Vector
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
927 {
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
928 /* 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
929 just the subtype information. */
85022
96eb42c9e0e3 * window.h (struct window):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85021
diff changeset
930 EMACS_UINT vector_size;
13149
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
931 struct Lisp_Vector *next;
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
932 /* This is the size in bits. */
85022
96eb42c9e0e3 * window.h (struct window):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85021
diff changeset
933 EMACS_UINT size;
13149
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
934 /* 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
935 unsigned char data[1];
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
936 };
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
937
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
938 /* This structure describes a built-in function.
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
939 It is generated by the DEFUN macro only.
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
940 defsubr makes it into a Lisp object.
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
941
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
942 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
943 but since we never dynamically allocate or free them,
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
944 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
945
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
946 struct Lisp_Subr
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
947 {
85022
96eb42c9e0e3 * window.h (struct window):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85021
diff changeset
948 EMACS_UINT size;
109154
6f7fb6d5f0f9 Make the function member of Lisp_Subr use standard C prototypes.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109151
diff changeset
949 union {
6f7fb6d5f0f9 Make the function member of Lisp_Subr use standard C prototypes.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109151
diff changeset
950 Lisp_Object (*a0) (void);
6f7fb6d5f0f9 Make the function member of Lisp_Subr use standard C prototypes.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109151
diff changeset
951 Lisp_Object (*a1) (Lisp_Object);
6f7fb6d5f0f9 Make the function member of Lisp_Subr use standard C prototypes.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109151
diff changeset
952 Lisp_Object (*a2) (Lisp_Object, Lisp_Object);
6f7fb6d5f0f9 Make the function member of Lisp_Subr use standard C prototypes.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109151
diff changeset
953 Lisp_Object (*a3) (Lisp_Object, Lisp_Object, Lisp_Object);
6f7fb6d5f0f9 Make the function member of Lisp_Subr use standard C prototypes.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109151
diff changeset
954 Lisp_Object (*a4) (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object);
6f7fb6d5f0f9 Make the function member of Lisp_Subr use standard C prototypes.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109151
diff changeset
955 Lisp_Object (*a5) (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object);
6f7fb6d5f0f9 Make the function member of Lisp_Subr use standard C prototypes.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109151
diff changeset
956 Lisp_Object (*a6) (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object);
6f7fb6d5f0f9 Make the function member of Lisp_Subr use standard C prototypes.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109151
diff changeset
957 Lisp_Object (*a7) (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object);
6f7fb6d5f0f9 Make the function member of Lisp_Subr use standard C prototypes.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109151
diff changeset
958 Lisp_Object (*a8) (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object);
109476
94ad8639f676 Fix up "missing braces" warning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109375
diff changeset
959 Lisp_Object (*aUNEVALLED) (Lisp_Object args);
94ad8639f676 Fix up "missing braces" warning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109375
diff changeset
960 Lisp_Object (*aMANY) (int, Lisp_Object *);
109154
6f7fb6d5f0f9 Make the function member of Lisp_Subr use standard C prototypes.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109151
diff changeset
961 } function;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
962 short min_args, max_args;
105872
89183b6f6e9d * process.c (socket_options): Make it const.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105840
diff changeset
963 const char *symbol_name;
109554
b22b609d1fa7 * src/lisp.h (Fkill_emacs): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109548
diff changeset
964 const char *intspec;
b22b609d1fa7 * src/lisp.h (Fkill_emacs): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109548
diff changeset
965 const char *doc;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
966 };
25017
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
967
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
968
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
969 /***********************************************************************
39579
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
970 Symbols
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
971 ***********************************************************************/
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
972
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
973 /* Interned state of a symbol. */
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
974
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
975 enum symbol_interned
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
976 {
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
977 SYMBOL_UNINTERNED = 0,
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
978 SYMBOL_INTERNED = 1,
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
979 SYMBOL_INTERNED_IN_INITIAL_OBARRAY = 2
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
980 };
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
981
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
982 enum symbol_redirect
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
983 {
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
984 SYMBOL_PLAINVAL = 4,
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
985 SYMBOL_VARALIAS = 1,
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
986 SYMBOL_LOCALIZED = 2,
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
987 SYMBOL_FORWARDED = 3
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
988 };
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
989
39579
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
990 /* In a symbol, the markbit of the plist is used as the gc mark bit */
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
991
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
992 struct Lisp_Symbol
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
993 {
51657
7fb427e8d984 (struct interval, struct Lisp_Symbol, struct Lisp_Free)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51167
diff changeset
994 unsigned gcmarkbit : 1;
7fb427e8d984 (struct interval, struct Lisp_Symbol, struct Lisp_Free)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51167
diff changeset
995
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
996 /* Indicates where the value can be found:
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
997 0 : it's a plain var, the value is in the `value' field.
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
998 1 : it's a varalias, the value is really in the `alias' symbol.
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
999 2 : it's a localized var, the value is in the `blv' object.
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1000 3 : it's a forwarding variable, the value is in `forward'.
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1001 */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1002 enum symbol_redirect redirect : 3;
39579
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1003
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1004 /* Non-zero means symbol is constant, i.e. changing its value
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1005 should signal an error. If the value is 3, then the var
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1006 can be changed, but only by `defconst'. */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1007 unsigned constant : 2;
39579
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1008
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1009 /* Interned state of the symbol. This is an enumerator from
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1010 enum symbol_interned. */
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1011 unsigned interned : 2;
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1012
45405
13e858104d3b * lisp.h (struct Lisp_Symbol): Replace field "name" with a lisp
Ken Raeburn <raeburn@raeburn.org>
parents: 45375
diff changeset
1013 /* The symbol's name, as a Lisp string.
13e858104d3b * lisp.h (struct Lisp_Symbol): Replace field "name" with a lisp
Ken Raeburn <raeburn@raeburn.org>
parents: 45375
diff changeset
1014
13e858104d3b * lisp.h (struct Lisp_Symbol): Replace field "name" with a lisp
Ken Raeburn <raeburn@raeburn.org>
parents: 45375
diff changeset
1015 The name "xname" is used to intentionally break code referring to
13e858104d3b * lisp.h (struct Lisp_Symbol): Replace field "name" with a lisp
Ken Raeburn <raeburn@raeburn.org>
parents: 45375
diff changeset
1016 the old field "name" of type pointer to struct Lisp_String. */
13e858104d3b * lisp.h (struct Lisp_Symbol): Replace field "name" with a lisp
Ken Raeburn <raeburn@raeburn.org>
parents: 45375
diff changeset
1017 Lisp_Object xname;
39579
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1018
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1019 /* Value of the symbol or Qunbound if unbound. If this symbol is a
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1020 defvaralias, `alias' contains the symbol for which it is an
39579
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1021 alias. Use the SYMBOL_VALUE and SET_SYMBOL_VALUE macros to get
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1022 and set a symbol's value, to take defvaralias into account. */
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1023 union {
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1024 Lisp_Object value;
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1025 struct Lisp_Symbol *alias;
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1026 struct Lisp_Buffer_Local_Value *blv;
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1027 union Lisp_Fwd *fwd;
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1028 } val;
39579
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1029
41615
6486180ed9ef (run_hook_list_with_args): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41262
diff changeset
1030 /* Function value of the symbol or Qunbound if not fboundp. */
39579
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1031 Lisp_Object function;
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1032
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1033 /* The symbol's property list. */
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1034 Lisp_Object plist;
45623
0e92d219e195 (current_column): Now returns float.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45545
diff changeset
1035
39579
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1036 /* Next symbol in obarray bucket, if the symbol is interned. */
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1037 struct Lisp_Symbol *next;
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1038 };
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1039
45405
13e858104d3b * lisp.h (struct Lisp_Symbol): Replace field "name" with a lisp
Ken Raeburn <raeburn@raeburn.org>
parents: 45375
diff changeset
1040 /* Value is name of symbol. */
13e858104d3b * lisp.h (struct Lisp_Symbol): Replace field "name" with a lisp
Ken Raeburn <raeburn@raeburn.org>
parents: 45375
diff changeset
1041
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1042 #define SYMBOL_VAL(sym) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1043 (eassert ((sym)->redirect == SYMBOL_PLAINVAL), (sym)->val.value)
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1044 #define SYMBOL_ALIAS(sym) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1045 (eassert ((sym)->redirect == SYMBOL_VARALIAS), (sym)->val.alias)
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1046 #define SYMBOL_BLV(sym) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1047 (eassert ((sym)->redirect == SYMBOL_LOCALIZED), (sym)->val.blv)
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1048 #define SYMBOL_FWD(sym) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1049 (eassert ((sym)->redirect == SYMBOL_FORWARDED), (sym)->val.fwd)
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1050 #define SET_SYMBOL_VAL(sym, v) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1051 (eassert ((sym)->redirect == SYMBOL_PLAINVAL), (sym)->val.value = (v))
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1052 #define SET_SYMBOL_ALIAS(sym, v) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1053 (eassert ((sym)->redirect == SYMBOL_VARALIAS), (sym)->val.alias = (v))
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1054 #define SET_SYMBOL_BLV(sym, v) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1055 (eassert ((sym)->redirect == SYMBOL_LOCALIZED), (sym)->val.blv = (v))
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1056 #define SET_SYMBOL_FWD(sym, v) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1057 (eassert ((sym)->redirect == SYMBOL_FORWARDED), (sym)->val.fwd = (v))
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1058
45405
13e858104d3b * lisp.h (struct Lisp_Symbol): Replace field "name" with a lisp
Ken Raeburn <raeburn@raeburn.org>
parents: 45375
diff changeset
1059 #define SYMBOL_NAME(sym) \
13e858104d3b * lisp.h (struct Lisp_Symbol): Replace field "name" with a lisp
Ken Raeburn <raeburn@raeburn.org>
parents: 45375
diff changeset
1060 LISP_MAKE_RVALUE (XSYMBOL (sym)->xname)
13e858104d3b * lisp.h (struct Lisp_Symbol): Replace field "name" with a lisp
Ken Raeburn <raeburn@raeburn.org>
parents: 45375
diff changeset
1061
39579
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1062 /* Value is non-zero if SYM is an interned symbol. */
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1063
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1064 #define SYMBOL_INTERNED_P(sym) \
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1065 (XSYMBOL (sym)->interned != SYMBOL_UNINTERNED)
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1066
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1067 /* Value is non-zero if SYM is interned in initial_obarray. */
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1068
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1069 #define SYMBOL_INTERNED_IN_INITIAL_OBARRAY_P(sym) \
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1070 (XSYMBOL (sym)->interned == SYMBOL_INTERNED_IN_INITIAL_OBARRAY)
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1071
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1072 /* Value is non-zero if symbol is considered a constant, i.e. its
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1073 value cannot be changed (there is an exception for keyword symbols,
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1074 whose value can be set to the keyword symbol itself). */
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1075
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1076 #define SYMBOL_CONSTANT_P(sym) XSYMBOL (sym)->constant
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1077
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1078
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
1079 /***********************************************************************
25017
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1080 Hash Tables
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1081 ***********************************************************************/
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1082
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1083 /* The structure of a Lisp hash table. */
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1084
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1085 struct Lisp_Hash_Table
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1086 {
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1087 /* Vector fields. The hash table code doesn't refer to these. */
85022
96eb42c9e0e3 * window.h (struct window):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85021
diff changeset
1088 EMACS_UINT size;
25017
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1089 struct Lisp_Vector *vec_next;
45623
0e92d219e195 (current_column): Now returns float.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45545
diff changeset
1090
25017
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1091 /* Function used to compare keys. */
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1092 Lisp_Object test;
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1093
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1094 /* 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
1095 weakness of the table. */
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1096 Lisp_Object weak;
45623
0e92d219e195 (current_column): Now returns float.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45545
diff changeset
1097
25017
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1098 /* 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
1099 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
1100 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
1101 Lisp_Object rehash_size;
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1102
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1103 /* 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
1104 ratio, a float. */
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1105 Lisp_Object rehash_threshold;
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1106
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1107 /* 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
1108 entry I is unused. */
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1109 Lisp_Object hash;
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1110
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1111 /* 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
1112 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
1113 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
1114 Lisp_Object next;
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1115
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1116 /* Index of first free entry in free list. */
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1117 Lisp_Object next_free;
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1118
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1119 /* 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
1120 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
1121 hash table size to reduce collisions. */
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1122 Lisp_Object index;
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1123
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1124 /* User-supplied hash function, or nil. */
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1125 Lisp_Object user_hash_function;
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1126
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1127 /* User-supplied key comparison function, or nil. */
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1128 Lisp_Object user_cmp_function;
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1129
85021
a0c901e4e649 * lisp.h (struct Lisp_Hash_Table): Move non-traced elements at the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85012
diff changeset
1130 /* Only the fields above are traced normally by the GC. The ones below
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
1131 `count' are special and are either ignored by the GC or traced in
85021
a0c901e4e649 * lisp.h (struct Lisp_Hash_Table): Move non-traced elements at the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85012
diff changeset
1132 a special way (e.g. because of weakness). */
a0c901e4e649 * lisp.h (struct Lisp_Hash_Table): Move non-traced elements at the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85012
diff changeset
1133
a0c901e4e649 * lisp.h (struct Lisp_Hash_Table): Move non-traced elements at the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85012
diff changeset
1134 /* Number of key/value entries in the table. */
a0c901e4e649 * lisp.h (struct Lisp_Hash_Table): Move non-traced elements at the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85012
diff changeset
1135 unsigned int count;
a0c901e4e649 * lisp.h (struct Lisp_Hash_Table): Move non-traced elements at the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85012
diff changeset
1136
a0c901e4e649 * lisp.h (struct Lisp_Hash_Table): Move non-traced elements at the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85012
diff changeset
1137 /* Vector of keys and values. The key of item I is found at index
a0c901e4e649 * lisp.h (struct Lisp_Hash_Table): Move non-traced elements at the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85012
diff changeset
1138 2 * I, the value is found at index 2 * I + 1.
a0c901e4e649 * lisp.h (struct Lisp_Hash_Table): Move non-traced elements at the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85012
diff changeset
1139 This is gc_marked specially if the table is weak. */
a0c901e4e649 * lisp.h (struct Lisp_Hash_Table): Move non-traced elements at the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85012
diff changeset
1140 Lisp_Object key_and_value;
a0c901e4e649 * lisp.h (struct Lisp_Hash_Table): Move non-traced elements at the end.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85012
diff changeset
1141
81813
32d8fd242bb2 * lisp.h (struct Lisp_Hash_Table): Turn next_weak into a bare pointer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81794
diff changeset
1142 /* Next weak hash table if this is a weak hash table. The head
32d8fd242bb2 * lisp.h (struct Lisp_Hash_Table): Turn next_weak into a bare pointer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81794
diff changeset
1143 of the list is in weak_hash_tables. */
32d8fd242bb2 * lisp.h (struct Lisp_Hash_Table): Turn next_weak into a bare pointer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81794
diff changeset
1144 struct Lisp_Hash_Table *next_weak;
32d8fd242bb2 * lisp.h (struct Lisp_Hash_Table): Turn next_weak into a bare pointer.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81794
diff changeset
1145
25017
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1146 /* C function to compare two keys. */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
1147 int (* cmpfn) (struct Lisp_Hash_Table *, Lisp_Object,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
1148 unsigned, Lisp_Object, unsigned);
25017
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1149
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1150 /* C function to compute hash code. */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
1151 unsigned (* hashfn) (struct Lisp_Hash_Table *, Lisp_Object);
25017
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1152 };
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1153
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1154
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1155 #define XHASH_TABLE(OBJ) \
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1156 ((struct Lisp_Hash_Table *) XPNTR (OBJ))
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1157
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1158 #define XSET_HASH_TABLE(VAR, PTR) \
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1159 (XSETPSEUDOVECTOR (VAR, PTR, PVEC_HASH_TABLE))
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1160
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1161 #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
1162
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1163 #define CHECK_HASH_TABLE(x) \
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1164 CHECK_TYPE (HASH_TABLE_P (x), Qhash_table_p, x)
25017
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1165
46220
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1166 /* Value is the key part of entry IDX in hash table H. */
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1167
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1168 #define HASH_KEY(H, IDX) AREF ((H)->key_and_value, 2 * (IDX))
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1169
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1170 /* Value is the value part of entry IDX in hash table H. */
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1171
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1172 #define HASH_VALUE(H, IDX) AREF ((H)->key_and_value, 2 * (IDX) + 1)
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1173
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1174 /* Value is the index of the next entry following the one at IDX
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1175 in hash table H. */
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1176
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1177 #define HASH_NEXT(H, IDX) AREF ((H)->next, (IDX))
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1178
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1179 /* Value is the hash code computed for entry IDX in hash table H. */
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1180
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1181 #define HASH_HASH(H, IDX) AREF ((H)->hash, (IDX))
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1182
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1183 /* Value is the index of the element in hash table H that is the
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1184 start of the collision list at index IDX in the index vector of H. */
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1185
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1186 #define HASH_INDEX(H, IDX) AREF ((H)->index, (IDX))
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1187
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1188 /* Value is the size of hash table H. */
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1189
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1190 #define HASH_TABLE_SIZE(H) XVECTOR ((H)->next)->size
5abad41fb43b (HASH_KEY, HASH_VALUE, HASH_NEXT, HASH_HASH, HASH_INDEX)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46070
diff changeset
1191
25017
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1192 /* Default size for hash tables if not specified. */
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1193
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1194 #define DEFAULT_HASH_SIZE 65
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1195
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1196 /* 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
1197 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
1198 size of the hash table. */
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1199
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1200 #define DEFAULT_REHASH_THRESHOLD 0.8
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1201
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1202 /* 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
1203
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1204 #define DEFAULT_REHASH_SIZE 1.5
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
1205
9462
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1206
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1207 /* These structures are used for various misc types. */
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1208
85328
d0d527210b0c * lisp.h (enum Lisp_Misc_Type): Del Lisp_Misc_Some_Buffer_Local_Value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85250
diff changeset
1209 struct Lisp_Misc_Any /* Supertype of all Misc types. */
d0d527210b0c * lisp.h (enum Lisp_Misc_Type): Del Lisp_Misc_Some_Buffer_Local_Value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85250
diff changeset
1210 {
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1211 enum Lisp_Misc_Type type : 16; /* = Lisp_Misc_??? */
85328
d0d527210b0c * lisp.h (enum Lisp_Misc_Type): Del Lisp_Misc_Some_Buffer_Local_Value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85250
diff changeset
1212 unsigned gcmarkbit : 1;
d0d527210b0c * lisp.h (enum Lisp_Misc_Type): Del Lisp_Misc_Some_Buffer_Local_Value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85250
diff changeset
1213 int spacer : 15;
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1214 /* Make it as long as "Lisp_Free without padding". */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1215 void *fill;
85328
d0d527210b0c * lisp.h (enum Lisp_Misc_Type): Del Lisp_Misc_Some_Buffer_Local_Value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85250
diff changeset
1216 };
d0d527210b0c * lisp.h (enum Lisp_Misc_Type): Del Lisp_Misc_Some_Buffer_Local_Value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85250
diff changeset
1217
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1218 struct Lisp_Marker
12890
2a1edeeb13fb (struct Lisp_Marker): Make insertion_type an unsigned int.
Richard M. Stallman <rms@gnu.org>
parents: 12731
diff changeset
1219 {
91727
b2df1fe6ce6d (struct Lisp_Misc_Any, struct Lisp_Marker)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91720
diff changeset
1220 enum Lisp_Misc_Type type : 16; /* = Lisp_Misc_Marker */
51657
7fb427e8d984 (struct interval, struct Lisp_Symbol, struct Lisp_Free)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51167
diff changeset
1221 unsigned gcmarkbit : 1;
91343
347746964570 (struct Lisp_Marker): New member need_adjustment.
Kenichi Handa <handa@m17n.org>
parents: 91327
diff changeset
1222 int spacer : 13;
347746964570 (struct Lisp_Marker): New member need_adjustment.
Kenichi Handa <handa@m17n.org>
parents: 91327
diff changeset
1223 /* This flag is temporarily used in the functions
347746964570 (struct Lisp_Marker): New member need_adjustment.
Kenichi Handa <handa@m17n.org>
parents: 91327
diff changeset
1224 decode/encode_coding_object to record that the marker position
347746964570 (struct Lisp_Marker): New member need_adjustment.
Kenichi Handa <handa@m17n.org>
parents: 91327
diff changeset
1225 must be adjusted after the conversion. */
347746964570 (struct Lisp_Marker): New member need_adjustment.
Kenichi Handa <handa@m17n.org>
parents: 91327
diff changeset
1226 unsigned int need_adjustment : 1;
12890
2a1edeeb13fb (struct Lisp_Marker): Make insertion_type an unsigned int.
Richard M. Stallman <rms@gnu.org>
parents: 12731
diff changeset
1227 /* 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
1228 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
1229 unsigned int insertion_type : 1;
84979
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
1230 /* This is the buffer that the marker points into, or 0 if it points nowhere.
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
1231 Note: a chain of markers can contain markers pointing into different
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
1232 buffers (the chain is per buffer_text rather than per buffer, so it's
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
1233 shared between indirect buffers). */
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
1234 /* This is used for (other than NULL-checking):
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
1235 - Fmarker_buffer
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
1236 - Fset_marker: check eq(oldbuf, newbuf) to avoid unchain+rechain.
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
1237 - unchain_marker: to find the list from which to unchain.
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1238 - Fkill_buffer: to only unchain the markers of current indirect buffer.
84979
79d85dce25a5 (DECL_ALIGN, USE_LSB_TAG): Move logic to before definition of
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84804
diff changeset
1239 */
12890
2a1edeeb13fb (struct Lisp_Marker): Make insertion_type an unsigned int.
Richard M. Stallman <rms@gnu.org>
parents: 12731
diff changeset
1240 struct buffer *buffer;
20559
38941faa1564 (struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents: 20499
diff changeset
1241
38941faa1564 (struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents: 20499
diff changeset
1242 /* 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
1243 does not point anywhere. */
38941faa1564 (struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents: 20499
diff changeset
1244
38941faa1564 (struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents: 20499
diff changeset
1245 /* For markers that point somewhere,
38941faa1564 (struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents: 20499
diff changeset
1246 this is used to chain of all the markers in a given buffer. */
85011
1d35aa875508 * buffer.c (syms_of_buffer) <local-abbrev-table>: Move from abbrev.c.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84979
diff changeset
1247 /* We could remove it and use an array in buffer_text instead.
1d35aa875508 * buffer.c (syms_of_buffer) <local-abbrev-table>: Move from abbrev.c.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84979
diff changeset
1248 That would also allow to preserve it ordered. */
51666
7181f5ced81c (unchain_marker): Lisp_Object arg => Lisp_Marker.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51657
diff changeset
1249 struct Lisp_Marker *next;
20559
38941faa1564 (struct Lisp_Marker): New field `charpos'.
Richard M. Stallman <rms@gnu.org>
parents: 20499
diff changeset
1250 /* This is the char position where the marker points. */
51858
bf6232373c39 (VALBITS): Define in terms of GCTYPEBITS.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51833
diff changeset
1251 EMACS_INT charpos;
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1252 /* This is the byte position.
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1253 It's mostly used as a charpos<->bytepos cache (i.e. it's not directly
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1254 used to implement the functionality of markers, but rather to (ab)use
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1255 markers as a cache for char<->byte mappings). */
51858
bf6232373c39 (VALBITS): Define in terms of GCTYPEBITS.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51833
diff changeset
1256 EMACS_INT bytepos;
12890
2a1edeeb13fb (struct Lisp_Marker): Make insertion_type an unsigned int.
Richard M. Stallman <rms@gnu.org>
parents: 12731
diff changeset
1257 };
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1258
9462
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1259 /* 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
1260 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
1261 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
1262 specified int variable. */
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1263 struct Lisp_Intfwd
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1264 {
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1265 enum Lisp_Fwd_Type type; /* = Lisp_Fwd_Int */
43713
f92c4d87863a Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43699
diff changeset
1266 EMACS_INT *intvar;
9462
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1267 };
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1268
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1269 /* 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
1270 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
1271 "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
1272 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
1273 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
1274 {
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1275 enum Lisp_Fwd_Type type; /* = Lisp_Fwd_Bool */
9462
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1276 int *boolvar;
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1277 };
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1278
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1279 /* 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
1280 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
1281 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
1282 specified variable. */
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1283 struct Lisp_Objfwd
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1284 {
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1285 enum Lisp_Fwd_Type type; /* = Lisp_Fwd_Obj */
9462
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1286 Lisp_Object *objvar;
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1287 };
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1288
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1289 /* 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
1290 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
1291 struct Lisp_Buffer_Objfwd
3601bf7327b2 (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Intfwd,
Karl Heuer <kwzh@gnu.org>
parents: 9435
diff changeset
1292 {
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1293 enum Lisp_Fwd_Type type; /* = Lisp_Fwd_Buffer_Obj */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1294 int offset;
86285
59344cb482f3 * lisp.h (struct Lisp_Buffer_Objfwd): Add a `slottype' field.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 86163
diff changeset
1295 Lisp_Object slottype; /* Qnil, Lisp_Int, Lisp_Symbol, or Lisp_String. */
9435
3a157cdf395c (Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents: 9392
diff changeset
1296 };
3a157cdf395c (Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents: 9392
diff changeset
1297
27779
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1298 /* struct Lisp_Buffer_Local_Value is used in a symbol value cell when
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1299 the symbol has buffer-local or frame-local bindings. (Exception:
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1300 some buffer-local variables are built-in, with their values stored
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1301 in the buffer structure itself. They are handled differently,
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1302 using struct Lisp_Buffer_Objfwd.)
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1303
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1304 The `realvalue' slot holds the variable's current value, or a
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1305 forwarding pointer to where that value is kept. This value is the
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1306 one that corresponds to the loaded binding. To read or set the
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1307 variable, you must first make sure the right binding is loaded;
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1308 then you can access the value in (or through) `realvalue'.
45623
0e92d219e195 (current_column): Now returns float.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45545
diff changeset
1309
27779
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1310 `buffer' and `frame' are the buffer and frame for which the loaded
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1311 binding was found. If those have changed, to make sure the right
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1312 binding is loaded it is necessary to find which binding goes with
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1313 the current buffer and selected frame, then load it. To load it,
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1314 first unload the previous binding, then copy the value of the new
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1315 binding into `realvalue' (or through it). Also update
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1316 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
1317
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
1318 `local_if_set' indicates that merely setting the variable creates a
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
1319 local binding for the current buffer. Otherwise the latter, setting
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
1320 the variable does not do that; only make-local-variable does that. */
27779
ed42dbf64a61 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 27741
diff changeset
1321
9891
f4a53f86853d (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Buffer_Local_Value and
Karl Heuer <kwzh@gnu.org>
parents: 9885
diff changeset
1322 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
1323 {
85328
d0d527210b0c * lisp.h (enum Lisp_Misc_Type): Del Lisp_Misc_Some_Buffer_Local_Value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85250
diff changeset
1324 /* 1 means that merely setting the variable creates a local
d0d527210b0c * lisp.h (enum Lisp_Misc_Type): Del Lisp_Misc_Some_Buffer_Local_Value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85250
diff changeset
1325 binding for the current buffer */
d0d527210b0c * lisp.h (enum Lisp_Misc_Type): Del Lisp_Misc_Some_Buffer_Local_Value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85250
diff changeset
1326 unsigned int local_if_set : 1;
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1327 /* 1 means this variable can have frame-local bindings, otherwise, it is
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1328 can have buffer-local bindings. The two cannot be combined. */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1329 unsigned int frame_local : 1;
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1330 /* 1 means that the binding now loaded was found.
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1331 Presumably equivalent to (defcell!=valcell) */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1332 unsigned int found : 1;
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1333 /* If non-NULL, a forwarding to the C var where it should also be set. */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1334 union Lisp_Fwd *fwd; /* Should never be (Buffer|Kboard)_Objfwd. */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1335 /* The buffer or frame for which the loaded binding was found. */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1336 Lisp_Object where;
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1337 /* A cons cell that holds the default value. It has the form
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1338 (SYMBOL . DEFAULT-VALUE). */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1339 Lisp_Object defcell;
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1340 /* The cons cell from `where's parameter alist.
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1341 It always has the form (SYMBOL . VALUE)
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1342 Note that if `forward' is non-nil, VALUE may be out of date.
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1343 Also if the currently loaded binding is the default binding, then
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1344 this is `eq'ual to defcell. */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1345 Lisp_Object valcell;
9891
f4a53f86853d (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Buffer_Local_Value and
Karl Heuer <kwzh@gnu.org>
parents: 9885
diff changeset
1346 };
f4a53f86853d (enum Lisp_Misc_Type): Add new enumerations Lisp_Misc_Buffer_Local_Value and
Karl Heuer <kwzh@gnu.org>
parents: 9885
diff changeset
1347
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1348 #define BLV_FOUND(blv) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1349 (eassert ((blv)->found == !EQ ((blv)->defcell, (blv)->valcell)), (blv)->found)
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1350 #define SET_BLV_FOUND(blv, v) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1351 (eassert ((v) == !EQ ((blv)->defcell, (blv)->valcell)), (blv)->found = (v))
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1352
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1353 #define BLV_VALUE(blv) (XCDR ((blv)->valcell))
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1354 #define SET_BLV_VALUE(blv, v) (XSETCDR ((blv)->valcell, v))
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1355
51858
bf6232373c39 (VALBITS): Define in terms of GCTYPEBITS.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51833
diff changeset
1356 /* START and END are markers in the overlay's buffer, and
9924
594e838f4567 (enum Lisp_Misc_Type): Add new enumeration Lisp_Misc_Overlay.
Karl Heuer <kwzh@gnu.org>
parents: 9904
diff changeset
1357 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
1358 struct Lisp_Overlay
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1359 /* An overlay's real data content is:
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1360 - plist
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1361 - buffer
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1362 - insertion type of both ends
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1363 - start & start_byte
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1364 - end & end_byte
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1365 - next (singly linked list of overlays).
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1366 - start_next and end_next (singly linked list of markers).
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1367 I.e. 9words plus 2 bits, 3words of which are for external linked lists.
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1368 */
9924
594e838f4567 (enum Lisp_Misc_Type): Add new enumeration Lisp_Misc_Overlay.
Karl Heuer <kwzh@gnu.org>
parents: 9904
diff changeset
1369 {
91727
b2df1fe6ce6d (struct Lisp_Misc_Any, struct Lisp_Marker)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91720
diff changeset
1370 enum Lisp_Misc_Type type : 16; /* = Lisp_Misc_Overlay */
51657
7fb427e8d984 (struct interval, struct Lisp_Symbol, struct Lisp_Free)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51167
diff changeset
1371 unsigned gcmarkbit : 1;
7fb427e8d984 (struct interval, struct Lisp_Symbol, struct Lisp_Free)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51167
diff changeset
1372 int spacer : 15;
51833
a52679a2aae5 (struct Lisp_Overlay): New field `next'.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51772
diff changeset
1373 struct Lisp_Overlay *next;
9924
594e838f4567 (enum Lisp_Misc_Type): Add new enumeration Lisp_Misc_Overlay.
Karl Heuer <kwzh@gnu.org>
parents: 9904
diff changeset
1374 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
1375 };
10387
40988c371fca (struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents: 10339
diff changeset
1376
10580
09fcb080e537 (enum Lisp_Misc_Type): New enumeration Lisp_Misc_Display_Local.
Karl Heuer <kwzh@gnu.org>
parents: 10578
diff changeset
1377 /* 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
1378 current kboard. */
31d88266ed12 (struct KBOARD, MULTI_KBOARD, current_kboard, all_kboards,
Karl Heuer <kwzh@gnu.org>
parents: 10944
diff changeset
1379 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
1380 {
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1381 enum Lisp_Fwd_Type type; /* = Lisp_Fwd_Kboard_Obj */
10580
09fcb080e537 (enum Lisp_Misc_Type): New enumeration Lisp_Misc_Display_Local.
Karl Heuer <kwzh@gnu.org>
parents: 10578
diff changeset
1382 int offset;
09fcb080e537 (enum Lisp_Misc_Type): New enumeration Lisp_Misc_Display_Local.
Karl Heuer <kwzh@gnu.org>
parents: 10578
diff changeset
1383 };
09fcb080e537 (enum Lisp_Misc_Type): New enumeration Lisp_Misc_Display_Local.
Karl Heuer <kwzh@gnu.org>
parents: 10578
diff changeset
1384
49056
88f14a14e005 New misc type Lisp_Save_Value.
Richard M. Stallman <rms@gnu.org>
parents: 48540
diff changeset
1385 /* Hold a C pointer for later use.
88f14a14e005 New misc type Lisp_Save_Value.
Richard M. Stallman <rms@gnu.org>
parents: 48540
diff changeset
1386 This type of object is used in the arg to record_unwind_protect. */
88f14a14e005 New misc type Lisp_Save_Value.
Richard M. Stallman <rms@gnu.org>
parents: 48540
diff changeset
1387 struct Lisp_Save_Value
88f14a14e005 New misc type Lisp_Save_Value.
Richard M. Stallman <rms@gnu.org>
parents: 48540
diff changeset
1388 {
91727
b2df1fe6ce6d (struct Lisp_Misc_Any, struct Lisp_Marker)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91720
diff changeset
1389 enum Lisp_Misc_Type type : 16; /* = Lisp_Misc_Save_Value */
51657
7fb427e8d984 (struct interval, struct Lisp_Symbol, struct Lisp_Free)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51167
diff changeset
1390 unsigned gcmarkbit : 1;
56204
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
1391 int spacer : 14;
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
1392 /* If DOGC is set, POINTER is the address of a memory
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
1393 area containing INTEGER potential Lisp_Objects. */
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
1394 unsigned int dogc : 1;
49056
88f14a14e005 New misc type Lisp_Save_Value.
Richard M. Stallman <rms@gnu.org>
parents: 48540
diff changeset
1395 void *pointer;
88f14a14e005 New misc type Lisp_Save_Value.
Richard M. Stallman <rms@gnu.org>
parents: 48540
diff changeset
1396 int integer;
88f14a14e005 New misc type Lisp_Save_Value.
Richard M. Stallman <rms@gnu.org>
parents: 48540
diff changeset
1397 };
88f14a14e005 New misc type Lisp_Save_Value.
Richard M. Stallman <rms@gnu.org>
parents: 48540
diff changeset
1398
10387
40988c371fca (struct Lisp_Free, struct Lisp_Marker, etc.):
Richard M. Stallman <rms@gnu.org>
parents: 10339
diff changeset
1399
53088
63a8b584e971 (VALMASK): Only define for non-union type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53001
diff changeset
1400 /* A miscellaneous object, when it's on the free list. */
63a8b584e971 (VALMASK): Only define for non-union type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53001
diff changeset
1401 struct Lisp_Free
63a8b584e971 (VALMASK): Only define for non-union type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53001
diff changeset
1402 {
91727
b2df1fe6ce6d (struct Lisp_Misc_Any, struct Lisp_Marker)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91720
diff changeset
1403 enum Lisp_Misc_Type type : 16; /* = Lisp_Misc_Free */
53088
63a8b584e971 (VALMASK): Only define for non-union type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53001
diff changeset
1404 unsigned gcmarkbit : 1;
63a8b584e971 (VALMASK): Only define for non-union type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53001
diff changeset
1405 int spacer : 15;
63a8b584e971 (VALMASK): Only define for non-union type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53001
diff changeset
1406 union Lisp_Misc *chain;
53654
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
1407 #ifdef USE_LSB_TAG
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
1408 /* Try to make sure that sizeof(Lisp_Misc) preserves TYPEBITS-alignment.
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
1409 This assumes that Lisp_Marker is the largest of the alternatives and
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1410 that Lisp_Misc_Any has the same size as "Lisp_Free w/o padding". */
53654
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
1411 char padding[((((sizeof (struct Lisp_Marker) - 1) >> GCTYPEBITS) + 1)
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1412 << GCTYPEBITS) - sizeof (struct Lisp_Misc_Any)];
53654
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
1413 #endif
53088
63a8b584e971 (VALMASK): Only define for non-union type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53001
diff changeset
1414 };
63a8b584e971 (VALMASK): Only define for non-union type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53001
diff changeset
1415
11335
78eda0ee4cba (XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents: 11204
diff changeset
1416 /* 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
1417 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
1418
9435
3a157cdf395c (Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents: 9392
diff changeset
1419 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
1420 {
85328
d0d527210b0c * lisp.h (enum Lisp_Misc_Type): Del Lisp_Misc_Some_Buffer_Local_Value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85250
diff changeset
1421 struct Lisp_Misc_Any u_any; /* Supertype of all Misc types. */
d0d527210b0c * lisp.h (enum Lisp_Misc_Type): Del Lisp_Misc_Some_Buffer_Local_Value.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85250
diff changeset
1422 struct Lisp_Free u_free; /* Includes padding to force alignment. */
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1423 struct Lisp_Marker u_marker; /* 5 */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1424 struct Lisp_Overlay u_overlay; /* 5 */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1425 struct Lisp_Save_Value u_save_value; /* 3 */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1426 };
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1427
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1428 union Lisp_Fwd
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1429 {
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1430 struct Lisp_Intfwd u_intfwd; /* 2 */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1431 struct Lisp_Boolfwd u_boolfwd; /* 2 */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1432 struct Lisp_Objfwd u_objfwd; /* 2 */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1433 struct Lisp_Buffer_Objfwd u_buffer_objfwd; /* 2 */
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1434 struct Lisp_Kboard_Objfwd u_kboard_objfwd; /* 2 */
9435
3a157cdf395c (Lisp_Misc): new type code, replacing Lisp_Marker (and soon to replace other
Karl Heuer <kwzh@gnu.org>
parents: 9392
diff changeset
1435 };
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1436
27727
9400865ec7cf Remove `LISP_FLOAT_TYPE' and `standalone'.
Gerd Moellmann <gerd@gnu.org>
parents: 27427
diff changeset
1437 /* Lisp floating point type */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1438 struct Lisp_Float
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1439 {
66888
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
1440 union
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
1441 {
25421
65a7e9c02d4f (struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents: 25392
diff changeset
1442 #ifdef HIDE_LISP_IMPLEMENTATION
66888
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
1443 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
1444 #else
66888
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
1445 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
1446 #endif
66888
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
1447 struct Lisp_Float *chain;
b991cdef1a8d (struct Lisp_Cons): Make cdr a union.
Andreas Schwab <schwab@suse.de>
parents: 66778
diff changeset
1448 } u;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1449 };
25421
65a7e9c02d4f (struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents: 25392
diff changeset
1450
65a7e9c02d4f (struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents: 25392
diff changeset
1451 #ifdef HIDE_LISP_IMPLEMENTATION
108604
3b0bab58a95f * lisp.h (XFLOAT_DATA): Use "0?x:x" to generate an rvalue. (bug#5916)
Ken Raeburn <raeburn@raeburn.org>
parents: 108375
diff changeset
1452 #define XFLOAT_DATA(f) (0 ? XFLOAT (f)->u.data_ : XFLOAT (f)->u.data_)
25421
65a7e9c02d4f (struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents: 25392
diff changeset
1453 #else
108604
3b0bab58a95f * lisp.h (XFLOAT_DATA): Use "0?x:x" to generate an rvalue. (bug#5916)
Ken Raeburn <raeburn@raeburn.org>
parents: 108375
diff changeset
1454 #define XFLOAT_DATA(f) (0 ? XFLOAT (f)->u.data : XFLOAT (f)->u.data)
104313
73f76307d49b * lisp.h (XFLOAT_DATA): Produce an rvalue by adding 0 to the value.
Ken Raeburn <raeburn@raeburn.org>
parents: 104284
diff changeset
1455 /* This should be used only in alloc.c, which always disables
73f76307d49b * lisp.h (XFLOAT_DATA): Produce an rvalue by adding 0 to the value.
Ken Raeburn <raeburn@raeburn.org>
parents: 104284
diff changeset
1456 HIDE_LISP_IMPLEMENTATION. */
73f76307d49b * lisp.h (XFLOAT_DATA): Produce an rvalue by adding 0 to the value.
Ken Raeburn <raeburn@raeburn.org>
parents: 104284
diff changeset
1457 #define XFLOAT_INIT(f,n) (XFLOAT (f)->u.data = (n))
25421
65a7e9c02d4f (struct Lisp_Cons, XCAR, XCDR, struct Lisp_Float): Change names of structure
Ken Raeburn <raeburn@raeburn.org>
parents: 25392
diff changeset
1458 #endif
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1459
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1460 /* 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
1461 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
1462 #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
1463 #define _UCHAR_T
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1464 typedef unsigned char UCHAR;
3324
b0e1cf2177fc (UCHAR): Don't define if _UCHAR_T.
Richard M. Stallman <rms@gnu.org>
parents: 2979
diff changeset
1465 #endif
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1466
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1467 /* Meanings of slots in a Lisp_Compiled: */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1468
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1469 #define COMPILED_ARGLIST 0
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1470 #define COMPILED_BYTECODE 1
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1471 #define COMPILED_CONSTANTS 2
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1472 #define COMPILED_STACK_DEPTH 3
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1473 #define COMPILED_DOC_STRING 4
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1474 #define COMPILED_INTERACTIVE 5
2014
637d9ebe3f50 (CHAR_META, CHAR_SHIFT, CHAR_CTL): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 1990
diff changeset
1475
2662
5b92bdfb7fbb * lisp.h (CHAR_ALT, CHAR_SUPER, CHAR_HYPER, CHAR_SHIFT, CHAR_CTL,
Jim Blandy <jimb@redhat.com>
parents: 2653
diff changeset
1476 /* 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
1477 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
1478 (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
1479 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
1480 #define CHAR_ALT (0x0400000)
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1481 #define CHAR_SUPER (0x0800000)
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1482 #define CHAR_HYPER (0x1000000)
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1483 #define CHAR_SHIFT (0x2000000)
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1484 #define CHAR_CTL (0x4000000)
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1485 #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
1486
25252
fc1b2b29e66d (CHAR_MODIFIER_MASK): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25017
diff changeset
1487 #define CHAR_MODIFIER_MASK \
fc1b2b29e66d (CHAR_MODIFIER_MASK): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25017
diff changeset
1488 (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
1489
fc1b2b29e66d (CHAR_MODIFIER_MASK): New macro.
Kenichi Handa <handa@m17n.org>
parents: 25017
diff changeset
1490
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
1491 /* Actually, the current Emacs uses 22 bits for the character value
17037
af637c0168ad (CHARACTERBITS, GLYPH_MASK_REV_DIR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 16913
diff changeset
1492 itself. */
89688
0d74a1b6efa9 (CHARACTERBITS): Define as 22.
Kenichi Handa <handa@m17n.org>
parents: 89668
diff changeset
1493 #define CHARACTERBITS 22
17037
af637c0168ad (CHARACTERBITS, GLYPH_MASK_REV_DIR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 16913
diff changeset
1494
26479
cf75e5b634ec (KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents: 26404
diff changeset
1495 /* The maximum byte size consumed by push_key_description.
cf75e5b634ec (KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents: 26404
diff changeset
1496 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
1497 allocated at the place pointed by the second argument.
cf75e5b634ec (KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents: 26404
diff changeset
1498
87741
36b8a740ef66 Fix typo in src/lisp.h
Michael Olson <mwolson@gnu.org>
parents: 87649
diff changeset
1499 There are 6 modifiers, each consumes 2 chars.
26479
cf75e5b634ec (KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents: 26404
diff changeset
1500 The octal form of a character code consumes
cf75e5b634ec (KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents: 26404
diff changeset
1501 (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
1502 We need one more byte for string terminator `\0'. */
cf75e5b634ec (KEY_DESCRIPTION_SIZE): New macro.
Kenichi Handa <handa@m17n.org>
parents: 26404
diff changeset
1503 #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
1504
2728
93c9529b2b69 * config.h.in: Remove mention of GLYPH datatype; that shouldn't be
Jim Blandy <jimb@redhat.com>
parents: 2662
diff changeset
1505
92279
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1506 /* The glyph datatype, used to represent characters on the display.
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1507 It consists of a char code and a face id. */
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1508
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1509 typedef struct {
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1510 int ch;
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1511 int face_id;
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1512 } GLYPH;
2728
93c9529b2b69 * config.h.in: Remove mention of GLYPH datatype; that shouldn't be
Jim Blandy <jimb@redhat.com>
parents: 2662
diff changeset
1513
93c9529b2b69 * config.h.in: Remove mention of GLYPH datatype; that shouldn't be
Jim Blandy <jimb@redhat.com>
parents: 2662
diff changeset
1514 /* Return a glyph's character code. */
92279
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1515 #define GLYPH_CHAR(glyph) ((glyph).ch)
2728
93c9529b2b69 * config.h.in: Remove mention of GLYPH datatype; that shouldn't be
Jim Blandy <jimb@redhat.com>
parents: 2662
diff changeset
1516
93c9529b2b69 * config.h.in: Remove mention of GLYPH datatype; that shouldn't be
Jim Blandy <jimb@redhat.com>
parents: 2662
diff changeset
1517 /* Return a glyph's face ID. */
92279
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1518 #define GLYPH_FACE(glyph) ((glyph).face_id)
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1519
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1520 #define SET_GLYPH_CHAR(glyph, char) ((glyph).ch = (char))
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1521 #define SET_GLYPH_FACE(glyph, face) ((glyph).face_id = (face))
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1522 #define SET_GLYPH(glyph, char, face) ((glyph).ch = (char), (glyph).face_id = (face))
2728
93c9529b2b69 * config.h.in: Remove mention of GLYPH datatype; that shouldn't be
Jim Blandy <jimb@redhat.com>
parents: 2662
diff changeset
1523
78501
1677cf1c2509 Replace `iff' in comments.
Glenn Morris <rgm@gnu.org>
parents: 78260
diff changeset
1524 /* Return 1 if GLYPH contains valid character code. */
92279
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1525 #define GLYPH_CHAR_VALID_P(glyph) CHAR_VALID_P (GLYPH_CHAR (glyph), 1)
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1526
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1527
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1528 /* Glyph Code from a display vector may either be an integer which
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1529 encodes a char code in the lower CHARACTERBITS bits and a (very small)
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1530 face-id in the upper bits, or it may be a cons (CHAR . FACE-ID). */
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1531
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1532 #define GLYPH_CODE_CHAR(gc) \
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1533 (CONSP (gc) ? XINT (XCAR (gc)) : INTEGERP (gc) ? (XINT (gc) & ((1 << CHARACTERBITS)-1)) : 0)
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1534
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1535 #define GLYPH_CODE_FACE(gc) \
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1536 (CONSP (gc) ? XINT (XCDR (gc)) : INTEGERP (gc) ? (XINT (gc) >> CHARACTERBITS) : DEFAULT_FACE_ID)
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1537
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1538 /* Return 1 if glyph code from display vector contains valid character code. */
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1539 #define GLYPH_CODE_CHAR_VALID_P(gc) CHAR_VALID_P (GLYPH_CODE_CHAR (gc), 1)
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1540
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1541 #define GLYPH_CODE_P(gc) ((CONSP (gc) && INTEGERP (XCAR (gc)) && INTEGERP (XCDR (gc))) || INTEGERP (gc))
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1542
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1543 /* Only called when GLYPH_CODE_P (gc) is true. */
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1544 #define SET_GLYPH_FROM_GLYPH_CODE(glyph, gc) \
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1545 do \
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1546 { \
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1547 if (CONSP (gc)) \
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1548 SET_GLYPH (glyph, XINT (XCAR (gc)), XINT (XCDR (gc))); \
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1549 else \
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1550 SET_GLYPH (glyph, (XINT (gc) & ((1 << CHARACTERBITS)-1)), \
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1551 (XINT (gc) >> CHARACTERBITS)); \
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1552 } \
14182a83bd23 (GLYPH): Change type from int to struct with separate char
Kim F. Storm <storm@cua.dk>
parents: 92108
diff changeset
1553 while (0)
17188
e38cc84db8ab (CHAR_TABLE_ORDINARY_SLOTS): Change to 384 (== 256 + 128).
Kenichi Handa <handa@m17n.org>
parents: 17141
diff changeset
1554
6277
444351051761 (GLYPH_MODE_LINE_FACE): New macro.
Richard M. Stallman <rms@gnu.org>
parents: 6243
diff changeset
1555 /* 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
1556 #define GLYPH_MODE_LINE_FACE 1
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1557
111340
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1558 /* Structure to hold mouse highlight data. This is here because other
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1559 header files need it for defining struct x_output etc. */
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1560 typedef struct {
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1561 /* These variables describe the range of text currently shown in its
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1562 mouse-face, together with the window they apply to. As long as
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1563 the mouse stays within this range, we need not redraw anything on
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1564 its account. Rows and columns are glyph matrix positions in
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1565 MOUSE_FACE_WINDOW. */
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1566 int mouse_face_beg_row, mouse_face_beg_col;
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1567 int mouse_face_beg_x, mouse_face_beg_y;
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1568 int mouse_face_end_row, mouse_face_end_col;
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1569 int mouse_face_end_x, mouse_face_end_y;
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1570 int mouse_face_past_end;
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1571 Lisp_Object mouse_face_window;
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1572 int mouse_face_face_id;
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1573 Lisp_Object mouse_face_overlay;
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1574
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1575 /* 1 if a mouse motion event came and we didn't handle it right away because
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1576 gc was in progress. */
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1577 int mouse_face_deferred_gc;
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1578
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1579 /* FRAME and X, Y position of mouse when last checked for
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1580 highlighting. X and Y can be negative or out of range for the frame. */
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1581 struct frame *mouse_face_mouse_frame;
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1582 int mouse_face_mouse_x, mouse_face_mouse_y;
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1583
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1584 /* Nonzero means defer mouse-motion highlighting. */
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1585 int mouse_face_defer;
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1586
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1587 /* Nonzero means that the mouse highlight should not be shown. */
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1588 int mouse_face_hidden;
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1589
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1590 int mouse_face_image_state;
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1591 } Mouse_HLInfo;
2186ab0af4a5 Start redesigning portable mouse highlight. Not compiled.
Eli Zaretskii <eliz@gnu.org>
parents: 110967
diff changeset
1592
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1593 /* Data type checking */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1594
58264
e8156cc4a58f (NILP): Use EQ rather than XFASTINT.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 58238
diff changeset
1595 #define NILP(x) EQ (x, Qnil)
621
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 516
diff changeset
1596
9150
642bbaf7c3fc (BOOLFWDP, INTERNALP, INTFWDP, OBJFWDP, INTERNAL_STREAMP, BUFFER_LOCAL_VALUEP,
Karl Heuer <kwzh@gnu.org>
parents: 9099
diff changeset
1597 #define NUMBERP(x) (INTEGERP (x) || FLOATP (x))
9943
4e6e0478baef (NATNUMP): New macro.
Karl Heuer <kwzh@gnu.org>
parents: 9924
diff changeset
1598 #define NATNUMP(x) (INTEGERP (x) && XINT (x) >= 0)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1599
105885
8103235103a7 Let integers use up 2 tags to give them one extra bit and double their range.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 105872
diff changeset
1600 #define INTEGERP(x) (LISP_INT_TAG_P (XTYPE ((x))))
2187
12b50e8d3b1c (INTEGERP, SYMBOLP, MARKERP, STRINGP, VECTORP): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 2155
diff changeset
1601 #define SYMBOLP(x) (XTYPE ((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
1602 #define MISCP(x) (XTYPE ((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
1603 #define VECTORLIKEP(x) (XTYPE ((x)) == Lisp_Vectorlike)
2187
12b50e8d3b1c (INTEGERP, SYMBOLP, MARKERP, STRINGP, VECTORP): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 2155
diff changeset
1604 #define STRINGP(x) (XTYPE ((x)) == Lisp_String)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1605 #define CONSP(x) (XTYPE ((x)) == Lisp_Cons)
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1606
2187
12b50e8d3b1c (INTEGERP, SYMBOLP, MARKERP, STRINGP, VECTORP): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 2155
diff changeset
1607 #define FLOATP(x) (XTYPE ((x)) == Lisp_Float)
90971
2acda4a4ac92 (XGCTYPE, GC_HASH_TABLE_P, GC_NILP, GC_NUMBERP, GC_NATNUMP)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 90918
diff changeset
1608 #define VECTORP(x) (VECTORLIKEP (x) && !(XVECTOR (x)->size & PSEUDOVECTOR_FLAG))
11335
78eda0ee4cba (XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents: 11204
diff changeset
1609 #define OVERLAYP(x) (MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Overlay)
78eda0ee4cba (XMISCTYPE): New macro.
Richard M. Stallman <rms@gnu.org>
parents: 11204
diff changeset
1610 #define MARKERP(x) (MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Marker)
85345
35d2f0abc597 (XMISCANY, XMARKER, XINTFWD, XBOOLFWD, XOBJFWD, XOVERLAY, XBUFFER_OBJFWD)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85328
diff changeset
1611 #define SAVE_VALUEP(x) (MISCP (x) && XMISCTYPE (x) == Lisp_Misc_Save_Value)
2187
12b50e8d3b1c (INTEGERP, SYMBOLP, MARKERP, STRINGP, VECTORP): New macros.
Richard M. Stallman <rms@gnu.org>
parents: 2155
diff changeset
1612
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1613 #define INTFWDP(x) (XFWDTYPE (x) == Lisp_Fwd_Int)
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1614 #define BOOLFWDP(x) (XFWDTYPE (x) == Lisp_Fwd_Bool)
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1615 #define OBJFWDP(x) (XFWDTYPE (x) == Lisp_Fwd_Obj)
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1616 #define BUFFER_OBJFWDP(x) (XFWDTYPE (x) == Lisp_Fwd_Buffer_Obj)
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1617 #define KBOARD_OBJFWDP(x) (XFWDTYPE (x) == Lisp_Fwd_Kboard_Obj)
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1618
10322
c1c2ec3aeefa Use consistent spelling in comments.
Karl Heuer <kwzh@gnu.org>
parents: 10321
diff changeset
1619 /* 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
1620 #define PSEUDOVECTORP(x, code) \
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1621 (VECTORLIKEP (x) \
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1622 && (((XVECTOR (x)->size & (PSEUDOVECTOR_FLAG | (code)))) \
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1623 == (PSEUDOVECTOR_FLAG | (code))))
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1624
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1625 /* Test for specific pseudovector types. */
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1626 #define WINDOW_CONFIGURATIONP(x) PSEUDOVECTORP (x, PVEC_WINDOW_CONFIGURATION)
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1627 #define PROCESSP(x) PSEUDOVECTORP (x, PVEC_PROCESS)
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1628 #define WINDOWP(x) PSEUDOVECTORP (x, PVEC_WINDOW)
84689
73c717fa7866 (enum pvec_type): New `terminal' pseudovector.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 84434
diff changeset
1629 #define TERMINALP(x) PSEUDOVECTORP (x, PVEC_TERMINAL)
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1630 #define SUBRP(x) PSEUDOVECTORP (x, PVEC_SUBR)
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1631 #define COMPILEDP(x) PSEUDOVECTORP (x, PVEC_COMPILED)
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
1632 #define BUFFERP(x) PSEUDOVECTORP (x, PVEC_BUFFER)
13149
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
1633 #define CHAR_TABLE_P(x) PSEUDOVECTORP (x, PVEC_CHAR_TABLE)
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
1634 #define SUB_CHAR_TABLE_P(x) PSEUDOVECTORP (x, PVEC_SUB_CHAR_TABLE)
13149
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
1635 #define BOOL_VECTOR_P(x) PSEUDOVECTORP (x, PVEC_BOOL_VECTOR)
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1636 #define FRAMEP(x) PSEUDOVECTORP (x, PVEC_FRAME)
53331
db670c1b5944 (IMAGEP): New macro to test for image object type.
Kim F. Storm <storm@cua.dk>
parents: 53111
diff changeset
1637
db670c1b5944 (IMAGEP): New macro to test for image object type.
Kim F. Storm <storm@cua.dk>
parents: 53111
diff changeset
1638 /* Test for image (image . spec) */
db670c1b5944 (IMAGEP): New macro to test for image object type.
Kim F. Storm <storm@cua.dk>
parents: 53111
diff changeset
1639 #define IMAGEP(x) (CONSP (x) && EQ (XCAR (x), Qimage))
db670c1b5944 (IMAGEP): New macro to test for image object type.
Kim F. Storm <storm@cua.dk>
parents: 53111
diff changeset
1640
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1641 /* Array types. */
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1642
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1643 #define ARRAYP(x) \
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1644 (VECTORP (x) || STRINGP (x) || CHAR_TABLE_P (x) || BOOL_VECTOR_P (x))
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1645
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1646 #define CHECK_LIST(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1647 CHECK_TYPE (CONSP (x) || NILP (x), Qlistp, x)
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1648
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1649 #define CHECK_LIST_CONS(x, y) \
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1650 CHECK_TYPE (CONSP (x), Qlistp, y)
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1651
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1652 #define CHECK_LIST_END(x, y) \
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1653 CHECK_TYPE (NILP (x), Qlistp, y)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1654
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1655 #define CHECK_STRING(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1656 CHECK_TYPE (STRINGP (x), Qstringp, x)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1657
40689
1e79b0de40a1 (CHECK_STRING_CAR): New macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 40653
diff changeset
1658 #define CHECK_STRING_CAR(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1659 CHECK_TYPE (STRINGP (XCAR (x)), Qstringp, XCAR (x))
40689
1e79b0de40a1 (CHECK_STRING_CAR): New macro.
Ken Raeburn <raeburn@raeburn.org>
parents: 40653
diff changeset
1660
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1661 #define CHECK_CONS(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1662 CHECK_TYPE (CONSP (x), Qconsp, x)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1663
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1664 #define CHECK_SYMBOL(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1665 CHECK_TYPE (SYMBOLP (x), Qsymbolp, x)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1666
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1667 #define CHECK_CHAR_TABLE(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1668 CHECK_TYPE (CHAR_TABLE_P (x), Qchar_table_p, x)
13149
b1dcc3e87ffb (struct Lisp_Boolvector): New data type.
Richard M. Stallman <rms@gnu.org>
parents: 12890
diff changeset
1669
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1670 #define CHECK_VECTOR(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1671 CHECK_TYPE (VECTORP (x), Qvectorp, x)
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1672
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1673 #define CHECK_VECTOR_OR_STRING(x) \
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1674 CHECK_TYPE (VECTORP (x) || STRINGP (x), Qarrayp, x)
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1675
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
1676 #define CHECK_ARRAY(x, Qxxxp) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1677 CHECK_TYPE (ARRAYP (x), Qxxxp, x)
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1678
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1679 #define CHECK_VECTOR_OR_CHAR_TABLE(x) \
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1680 CHECK_TYPE (VECTORP (x) || CHAR_TABLE_P (x), Qvector_or_char_table_p, x)
13202
b307cd5c259f (struct Lisp_Char_Table): New slot `purpose'.
Richard M. Stallman <rms@gnu.org>
parents: 13149
diff changeset
1681
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1682 #define CHECK_BUFFER(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1683 CHECK_TYPE (BUFFERP (x), Qbufferp, x)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1684
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1685 #define CHECK_WINDOW(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1686 CHECK_TYPE (WINDOWP (x), Qwindowp, x)
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1687
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1688 #define CHECK_WINDOW_CONFIGURATION(x) \
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1689 CHECK_TYPE (WINDOW_CONFIGURATIONP (x), Qwindow_configuration_p, x)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1690
1442
89ac471c745c * lisp.h (CHECK_LIVE_WINDOW): New predicate.
Jim Blandy <jimb@redhat.com>
parents: 1306
diff changeset
1691 /* 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
1692 "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
1693 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
1694
78501
1677cf1c2509 Replace `iff' in comments.
Glenn Morris <rgm@gnu.org>
parents: 78260
diff changeset
1695 A window of any sort, leaf or interior, is dead if the buffer,
1442
89ac471c745c * lisp.h (CHECK_LIVE_WINDOW): New predicate.
Jim Blandy <jimb@redhat.com>
parents: 1306
diff changeset
1696 vchild, and hchild members are all nil. */
89ac471c745c * lisp.h (CHECK_LIVE_WINDOW): New predicate.
Jim Blandy <jimb@redhat.com>
parents: 1306
diff changeset
1697
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1698 #define CHECK_LIVE_WINDOW(x) \
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1699 CHECK_TYPE (WINDOWP (x) && !NILP (XWINDOW (x)->buffer), Qwindow_live_p, x)
1442
89ac471c745c * lisp.h (CHECK_LIVE_WINDOW): New predicate.
Jim Blandy <jimb@redhat.com>
parents: 1306
diff changeset
1700
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1701 #define CHECK_PROCESS(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1702 CHECK_TYPE (PROCESSP (x), Qprocessp, x)
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1703
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1704 #define CHECK_SUBR(x) \
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1705 CHECK_TYPE (SUBRP (x), Qsubrp, x)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1706
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1707 #define CHECK_NUMBER(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1708 CHECK_TYPE (INTEGERP (x), Qintegerp, x)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1709
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1710 #define CHECK_NATNUM(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1711 CHECK_TYPE (NATNUMP (x), Qwholenump, x)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1712
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1713 #define CHECK_MARKER(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1714 CHECK_TYPE (MARKERP (x), Qmarkerp, x)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1715
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1716 #define CHECK_NUMBER_COERCE_MARKER(x) \
9292
ec707cca800a (XSETFASTINT): New macro.
Karl Heuer <kwzh@gnu.org>
parents: 9287
diff changeset
1717 do { if (MARKERP ((x))) XSETFASTINT (x, marker_position (x)); \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1718 else CHECK_TYPE (INTEGERP (x), Qinteger_or_marker_p, x); } while (0)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1719
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1720 #define XFLOATINT(n) extract_float((n))
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1721
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
1722 #define CHECK_FLOAT(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1723 CHECK_TYPE (FLOATP (x), Qfloatp, x)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1724
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
1725 #define CHECK_NUMBER_OR_FLOAT(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1726 CHECK_TYPE (FLOATP (x) || INTEGERP (x), Qnumberp, x)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1727
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1728 #define CHECK_NUMBER_OR_FLOAT_COERCE_MARKER(x) \
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
1729 do { if (MARKERP (x)) XSETFASTINT (x, marker_position (x)); \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1730 else CHECK_TYPE (INTEGERP (x) || FLOATP (x), Qnumber_or_marker_p, x); } while (0)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1731
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1732 #define CHECK_OVERLAY(x) \
71822
7b7a32c8c767 (CHECK_TYPE): New macro for generic type checking.
Kim F. Storm <storm@cua.dk>
parents: 71796
diff changeset
1733 CHECK_TYPE (OVERLAYP (x), Qoverlayp, x)
2780
cfe7659bbc05 * lisp.h (Lisp_Overlay): New tag.
Jim Blandy <jimb@redhat.com>
parents: 2728
diff changeset
1734
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
1735 /* Since we can't assign directly to the CAR or CDR fields of a cons
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
1736 cell, use these when checking that those fields contain numbers. */
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1737 #define CHECK_NUMBER_CAR(x) \
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
1738 do { \
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
1739 Lisp_Object tmp = XCAR (x); \
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1740 CHECK_NUMBER (tmp); \
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
1741 XSETCAR ((x), tmp); \
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
1742 } while (0)
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
1743
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1744 #define CHECK_NUMBER_CDR(x) \
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
1745 do { \
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
1746 Lisp_Object tmp = XCDR (x); \
40653
6c48a4da1da5 (CHECK_STRING_OR_BUFFER, CHECK_HASH_TABLE, CHECK_LIST, CHECK_STRING,
Pavel Janík <Pavel@Janik.cz>
parents: 40536
diff changeset
1747 CHECK_NUMBER (tmp); \
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
1748 XSETCDR ((x), tmp); \
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
1749 } while (0)
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39924
diff changeset
1750
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
1751 #define CHECK_NATNUM_CAR(x) \
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
1752 do { \
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
1753 Lisp_Object tmp = XCAR (x); \
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
1754 CHECK_NATNUM (tmp); \
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
1755 XSETCAR ((x), tmp); \
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
1756 } while (0)
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
1757
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
1758 #define CHECK_NATNUM_CDR(x) \
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
1759 do { \
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
1760 Lisp_Object tmp = XCDR (x); \
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
1761 CHECK_NATNUM (tmp); \
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
1762 XSETCDR ((x), tmp); \
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
1763 } while (0)
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
1764
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1765 /* Cast pointers to this type to compare them. Some machines want int. */
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25818
diff changeset
1766 #define PNTR_COMPARISON_TYPE EMACS_UINT
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1767
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1768 /* Define a built-in function for calling from Lisp.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1769 `lname' should be the name to give the function in Lisp,
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1770 as a null-terminated C string.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1771 `fnname' should be the name of the function in C.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1772 By convention, it starts with F.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1773 `sname' should be the name for the C constant structure
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1774 that records information on this function for internal use.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1775 By convention, it should be the same as `fnname' but with S instead of F.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1776 It's too bad that C macros can't compute this from `fnname'.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1777 `minargs' should be a number, the minimum number of arguments allowed.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1778 `maxargs' should be a number, the maximum number of arguments allowed,
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1779 or else MANY or UNEVALLED.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1780 MANY means pass a vector of evaluated arguments,
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1781 in the form of an integer number-of-arguments
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1782 followed by the address of a vector of Lisp_Objects
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1783 which contains the argument values.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1784 UNEVALLED means pass the list of unevaluated arguments
84434
83ebc6baeac5 (struct Lisp_Subr): Rename `prompt' field to `intspec'.
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents: 83766
diff changeset
1785 `intspec' says how interactive arguments are to be fetched.
83ebc6baeac5 (struct Lisp_Subr): Rename `prompt' field to `intspec'.
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents: 83766
diff changeset
1786 If the string starts with a `(', `intspec' is evaluated and the resulting
83ebc6baeac5 (struct Lisp_Subr): Rename `prompt' field to `intspec'.
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents: 83766
diff changeset
1787 list is the list of arguments.
83ebc6baeac5 (struct Lisp_Subr): Rename `prompt' field to `intspec'.
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents: 83766
diff changeset
1788 If it's a string that doesn't start with `(', the value should follow
83ebc6baeac5 (struct Lisp_Subr): Rename `prompt' field to `intspec'.
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents: 83766
diff changeset
1789 the one of the doc string for `interactive'.
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1790 A null string means call interactively with no arguments.
9904
031eb10a9346 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 9891
diff changeset
1791 `doc' is documentation for the user. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1792
5241
1536c6b80ff6 Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents: 5128
diff changeset
1793 /* 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
1794 arguments, so we can catch errors with maxargs at compile-time. */
84434
83ebc6baeac5 (struct Lisp_Subr): Rename `prompt' field to `intspec'.
Michaël Cadilhac <michael.cadilhac@lrde.org>
parents: 83766
diff changeset
1795 #define DEFUN(lname, fnname, sname, minargs, maxargs, intspec, doc) \
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1796 Lisp_Object fnname DEFUN_ARGS_ ## maxargs ; \
53654
8dc805af6250 [USE_LSB_TAG]: Add definitions for Lisp_Object value
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53653
diff changeset
1797 DECL_ALIGN (struct Lisp_Subr, sname) = \
10292
c467ec24a6bd (VALBITS): Default now 28.
Richard M. Stallman <rms@gnu.org>
parents: 10247
diff changeset
1798 { PVEC_SUBR | (sizeof (struct Lisp_Subr) / sizeof (EMACS_INT)), \
109476
94ad8639f676 Fix up "missing braces" warning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109375
diff changeset
1799 { .a ## maxargs = fnname }, \
94ad8639f676 Fix up "missing braces" warning.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 109375
diff changeset
1800 minargs, maxargs, lname, intspec, 0}; \
5241
1536c6b80ff6 Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents: 5128
diff changeset
1801 Lisp_Object fnname
1536c6b80ff6 Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents: 5128
diff changeset
1802
1536c6b80ff6 Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents: 5128
diff changeset
1803 /* 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
1804 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
1805 #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
1806 #define DEFUN_ARGS_UNEVALLED (Lisp_Object)
1536c6b80ff6 Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents: 5128
diff changeset
1807 #define DEFUN_ARGS_0 (void)
1536c6b80ff6 Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents: 5128
diff changeset
1808 #define DEFUN_ARGS_1 (Lisp_Object)
1536c6b80ff6 Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents: 5128
diff changeset
1809 #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
1810 #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
1811 #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
1812 #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
1813 Lisp_Object)
1536c6b80ff6 Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents: 5128
diff changeset
1814 #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
1815 Lisp_Object, Lisp_Object)
1536c6b80ff6 Use WORDS_BIG_ENDIAN, not BIG_ENDIAN.
Richard M. Stallman <rms@gnu.org>
parents: 5128
diff changeset
1816 #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
1817 Lisp_Object, Lisp_Object, Lisp_Object)
19547
70d930b49bb4 (DEFUN_ARGS_8): New macro.
Kenichi Handa <handa@m17n.org>
parents: 19224
diff changeset
1818 #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
1819 Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object)
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
1820
30218
70f3583c5da1 (FUNCTIONP): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 30201
diff changeset
1821 /* Non-zero if OBJ is a Lisp function. */
70f3583c5da1 (FUNCTIONP): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 30201
diff changeset
1822 #define FUNCTIONP(OBJ) \
70f3583c5da1 (FUNCTIONP): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 30201
diff changeset
1823 ((CONSP (OBJ) && EQ (XCAR (OBJ), Qlambda)) \
70f3583c5da1 (FUNCTIONP): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 30201
diff changeset
1824 || (SYMBOLP (OBJ) && !NILP (Ffboundp (OBJ))) \
70f3583c5da1 (FUNCTIONP): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 30201
diff changeset
1825 || COMPILEDP (OBJ) \
70f3583c5da1 (FUNCTIONP): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 30201
diff changeset
1826 || SUBRP (OBJ))
45623
0e92d219e195 (current_column): Now returns float.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45545
diff changeset
1827
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1828 /* defsubr (Sname);
41080
bbe0b9b4164b Comment fix.
Pavel Janík <Pavel@Janik.cz>
parents: 41067
diff changeset
1829 is how we define the symbol for function `name' at start-up time. */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
1830 extern void defsubr (struct Lisp_Subr *);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1831
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1832 #define MANY -2
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1833 #define UNEVALLED -1
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1834
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1835 extern void defvar_lisp (struct Lisp_Objfwd *, const char *, Lisp_Object *);
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1836 extern void defvar_lisp_nopro (struct Lisp_Objfwd *, const char *, Lisp_Object *);
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1837 extern void defvar_bool (struct Lisp_Boolfwd *, const char *, int *);
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1838 extern void defvar_int (struct Lisp_Intfwd *, const char *, EMACS_INT *);
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1839 extern void defvar_kboard (struct Lisp_Kboard_Objfwd *, const char *, int);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1840
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1841 /* Macros we use to define forwarded Lisp variables.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1842 These are used in the syms_of_FILENAME functions. */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1843
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1844 #define DEFVAR_LISP(lname, vname, doc) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1845 do { \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1846 static struct Lisp_Objfwd o_fwd; \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1847 defvar_lisp (&o_fwd, lname, vname); \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1848 } while (0)
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1849 #define DEFVAR_LISP_NOPRO(lname, vname, doc) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1850 do { \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1851 static struct Lisp_Objfwd o_fwd; \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1852 defvar_lisp_nopro (&o_fwd, lname, vname); \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1853 } while (0)
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1854 #define DEFVAR_BOOL(lname, vname, doc) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1855 do { \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1856 static struct Lisp_Boolfwd b_fwd; \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1857 defvar_bool (&b_fwd, lname, vname); \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1858 } while (0)
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1859 #define DEFVAR_INT(lname, vname, doc) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1860 do { \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1861 static struct Lisp_Intfwd i_fwd; \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1862 defvar_int (&i_fwd, lname, vname); \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1863 } while (0)
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1864
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1865 #define DEFVAR_KBOARD(lname, vname, doc) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1866 do { \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1867 static struct Lisp_Kboard_Objfwd ko_fwd; \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1868 defvar_kboard (&ko_fwd, \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1869 lname, \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1870 (int)((char *)(&current_kboard->vname) \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1871 - (char *)current_kboard)); \
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
1872 } while (0)
39898
bc20a5e30bfd (DEFUN, DEFVAR_LISP, ...) [DOC_STRINGS_IN_COMMENTS]:
Gerd Moellmann <gerd@gnu.org>
parents: 39861
diff changeset
1873
bc20a5e30bfd (DEFUN, DEFVAR_LISP, ...) [DOC_STRINGS_IN_COMMENTS]:
Gerd Moellmann <gerd@gnu.org>
parents: 39861
diff changeset
1874
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1875
1197
4eee4dc734bb * lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents: 1184
diff changeset
1876 /* 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
1877
4eee4dc734bb * lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents: 1184
diff changeset
1878 /* 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
1879 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
1880 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
1881 functions to be called for record_unwind_protect.
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1882
1197
4eee4dc734bb * lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents: 1184
diff changeset
1883 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
1884 This implements record_unwind_protect.
27292
d0aba668c5af (set_internal): Enter the new arg.
Richard M. Stallman <rms@gnu.org>
parents: 27141
diff changeset
1885
d0aba668c5af (set_internal): Enter the new arg.
Richard M. Stallman <rms@gnu.org>
parents: 27141
diff changeset
1886 Otherwise, the element is a variable binding.
45623
0e92d219e195 (current_column): Now returns float.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45545
diff changeset
1887
27292
d0aba668c5af (set_internal): Enter the new arg.
Richard M. Stallman <rms@gnu.org>
parents: 27141
diff changeset
1888 If the symbol field is a symbol, it is an ordinary variable binding.
45623
0e92d219e195 (current_column): Now returns float.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45545
diff changeset
1889
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
1890 Otherwise, it should be a structure (SYMBOL WHERE . CURRENT-BUFFER),
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
1891 which means having bound a local value while CURRENT-BUFFER was active.
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
1892 If WHERE is nil this means we saw the default value when binding SYMBOL.
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
1893 WHERE being a buffer or frame means we saw a buffer-local or frame-local
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
1894 value. Other values of WHERE mean an internal error. */
27292
d0aba668c5af (set_internal): Enter the new arg.
Richard M. Stallman <rms@gnu.org>
parents: 27141
diff changeset
1895
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
1896 typedef Lisp_Object (*specbinding_func) (Lisp_Object);
51035
b17fe74b2af3 (specbinding_func): New typedef.
Richard M. Stallman <rms@gnu.org>
parents: 50996
diff changeset
1897
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1898 struct specbinding
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1899 {
69157
76d55cdb7481 (struct specbinding, specpdl_ptr): Remove the volatile qualifier which was
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68758
diff changeset
1900 Lisp_Object symbol, old_value;
76d55cdb7481 (struct specbinding, specpdl_ptr): Remove the volatile qualifier which was
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68758
diff changeset
1901 specbinding_func func;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1902 Lisp_Object unused; /* Dividing by 16 is faster than by 12 */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1903 };
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1904
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1905 extern struct specbinding *specpdl;
69157
76d55cdb7481 (struct specbinding, specpdl_ptr): Remove the volatile qualifier which was
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68758
diff changeset
1906 extern struct specbinding *specpdl_ptr;
110554
e49fcbdc458f Fix int/EMACS_INT in eval.c and indent.c, correct previous changes.
Eli Zaretskii <eliz@gnu.org>
parents: 110548
diff changeset
1907 extern EMACS_INT specpdl_size;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1908
43713
f92c4d87863a Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43699
diff changeset
1909 extern EMACS_INT max_specpdl_size;
42415
cdbdb10cfbe6 (max_specpdl_size): Add declaration.
Richard M. Stallman <rms@gnu.org>
parents: 42278
diff changeset
1910
110515
6248bcadfd21 Cast SPECPDL_INDEX to int, and do further EMACS_INT/int cleanups.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 110514
diff changeset
1911 #define SPECPDL_INDEX() ((int) (specpdl_ptr - specpdl))
33508
027d4bc2e846 (BINDING_STACK_SIZE): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 33461
diff changeset
1912
1197
4eee4dc734bb * lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents: 1184
diff changeset
1913 /* Everything needed to describe an active condition case. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1914 struct handler
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1915 {
1197
4eee4dc734bb * lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents: 1184
diff changeset
1916 /* The handler clauses and variable from the condition-case form. */
46866
34ee31960675 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 46650
diff changeset
1917 /* For a handler set up in Lisp code, this is always a list.
34ee31960675 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 46650
diff changeset
1918 For an internal handler set up by internal_condition_case*,
34ee31960675 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 46650
diff changeset
1919 this can instead be the symbol t or `error'.
34ee31960675 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 46650
diff changeset
1920 t: handle all conditions.
34ee31960675 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 46650
diff changeset
1921 error: handle all conditions, and errors can run the debugger
34ee31960675 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 46650
diff changeset
1922 or display a backtrace. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1923 Lisp_Object handler;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1924 Lisp_Object var;
6131
854e14ecfa93 (struct handler): New field chosen_clause.
Richard M. Stallman <rms@gnu.org>
parents: 6094
diff changeset
1925 /* 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
1926 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
1927 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
1928
4eee4dc734bb * lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents: 1184
diff changeset
1929 /* Used to effect the longjump out to the handler. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1930 struct catchtag *tag;
1197
4eee4dc734bb * lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents: 1184
diff changeset
1931
4eee4dc734bb * lisp.h (struct handler): Remove the poll_suppress_count member
Jim Blandy <jimb@redhat.com>
parents: 1184
diff changeset
1932 /* The next enclosing handler. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1933 struct handler *next;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1934 };
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1935
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1936 extern struct handler *handlerlist;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1937
105669
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1938 /* This structure helps implement the `catch' and `throw' control
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1939 structure. A struct catchtag contains all the information needed
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1940 to restore the state of the interpreter after a non-local jump.
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1941
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1942 Handlers for error conditions (represented by `struct handler'
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1943 structures) just point to a catch tag to do the cleanup required
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1944 for their jumps.
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1945
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1946 catchtag structures are chained together in the C calling stack;
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1947 the `next' member points to the next outer catchtag.
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1948
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1949 A call like (throw TAG VAL) searches for a catchtag whose `tag'
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1950 member is TAG, and then unbinds to it. The `val' member is used to
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1951 hold VAL while the stack is unwound; `val' is returned as the value
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1952 of the catch form.
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1953
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1954 All the other members are concerned with restoring the interpreter
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1955 state. */
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1956
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1957 struct catchtag
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1958 {
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1959 Lisp_Object tag;
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1960 Lisp_Object val;
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1961 struct catchtag *next;
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1962 struct gcpro *gcpro;
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1963 jmp_buf jmp;
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1964 struct backtrace *backlist;
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1965 struct handler *handlerlist;
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1966 int lisp_eval_depth;
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1967 int pdlcount;
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1968 int poll_suppress_count;
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1969 int interrupt_input_blocked;
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1970 struct byte_stack *byte_stack;
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1971 };
68dd71358159 * alloc.c: Do not define struct catchtag.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105373
diff changeset
1972
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1973 extern struct catchtag *catchlist;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1974 extern struct backtrace *backtrace_list;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1975
6131
854e14ecfa93 (struct handler): New field chosen_clause.
Richard M. Stallman <rms@gnu.org>
parents: 6094
diff changeset
1976 extern Lisp_Object memory_signal_data;
854e14ecfa93 (struct handler): New field chosen_clause.
Richard M. Stallman <rms@gnu.org>
parents: 6094
diff changeset
1977
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1978 /* An address near the bottom of the stack.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1979 Tells GC how to save a copy of the stack. */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1980 extern char *stack_bottom;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1981
26296
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
1982 /* 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
1983 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
1984 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
1985 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
1986 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
1987 Unless that is impossible, of course.
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
1988 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
1989
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
1990 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
1991 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
1992 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
1993 and (in particular) cannot call arbitrary Lisp code. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1994
53658
c6460069583e (QUIT) [SYNC_INPUT]: Check interrupt_input_pending as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53654
diff changeset
1995 #ifdef SYNC_INPUT
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
1996 extern void process_pending_signals (void);
101653
f2bc801a3377 (QUIT): Check pending_signals instead of interrupt_input_pending. Use
Chong Yidong <cyd@stupidchicken.com>
parents: 100951
diff changeset
1997 extern int pending_signals;
107338
feb1bc86a749 Make it possible to C-g in a tight bytecode loop again (bug#5680).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106950
diff changeset
1998 #define ELSE_PENDING_SIGNALS \
feb1bc86a749 Make it possible to C-g in a tight bytecode loop again (bug#5680).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106950
diff changeset
1999 else if (pending_signals) \
feb1bc86a749 Make it possible to C-g in a tight bytecode loop again (bug#5680).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106950
diff changeset
2000 process_pending_signals ();
feb1bc86a749 Make it possible to C-g in a tight bytecode loop again (bug#5680).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106950
diff changeset
2001 #else /* not SYNC_INPUT */
feb1bc86a749 Make it possible to C-g in a tight bytecode loop again (bug#5680).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106950
diff changeset
2002 #define ELSE_PENDING_SIGNALS
feb1bc86a749 Make it possible to C-g in a tight bytecode loop again (bug#5680).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106950
diff changeset
2003 #endif /* not SYNC_INPUT */
58932
ce2e33a2adae (QUIT): Check for Vthrow_on_input.
Richard M. Stallman <rms@gnu.org>
parents: 58818
diff changeset
2004
53658
c6460069583e (QUIT) [SYNC_INPUT]: Check interrupt_input_pending as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53654
diff changeset
2005 #define QUIT \
c6460069583e (QUIT) [SYNC_INPUT]: Check interrupt_input_pending as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53654
diff changeset
2006 do { \
c6460069583e (QUIT) [SYNC_INPUT]: Check interrupt_input_pending as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53654
diff changeset
2007 if (!NILP (Vquit_flag) && NILP (Vinhibit_quit)) \
c6460069583e (QUIT) [SYNC_INPUT]: Check interrupt_input_pending as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53654
diff changeset
2008 { \
58932
ce2e33a2adae (QUIT): Check for Vthrow_on_input.
Richard M. Stallman <rms@gnu.org>
parents: 58818
diff changeset
2009 Lisp_Object flag = Vquit_flag; \
53658
c6460069583e (QUIT) [SYNC_INPUT]: Check interrupt_input_pending as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53654
diff changeset
2010 Vquit_flag = Qnil; \
58932
ce2e33a2adae (QUIT): Check for Vthrow_on_input.
Richard M. Stallman <rms@gnu.org>
parents: 58818
diff changeset
2011 if (EQ (Vthrow_on_input, flag)) \
64847
ac757cf8a328 (QUIT): Throw t to Vthrow_on_input.
Richard M. Stallman <rms@gnu.org>
parents: 64770
diff changeset
2012 Fthrow (Vthrow_on_input, Qt); \
53658
c6460069583e (QUIT) [SYNC_INPUT]: Check interrupt_input_pending as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53654
diff changeset
2013 Fsignal (Qquit, Qnil); \
c6460069583e (QUIT) [SYNC_INPUT]: Check interrupt_input_pending as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53654
diff changeset
2014 } \
107338
feb1bc86a749 Make it possible to C-g in a tight bytecode loop again (bug#5680).
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 106950
diff changeset
2015 ELSE_PENDING_SIGNALS \
53658
c6460069583e (QUIT) [SYNC_INPUT]: Check interrupt_input_pending as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53654
diff changeset
2016 } while (0)
c6460069583e (QUIT) [SYNC_INPUT]: Check interrupt_input_pending as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53654
diff changeset
2017
c6460069583e (QUIT) [SYNC_INPUT]: Check interrupt_input_pending as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53654
diff changeset
2018
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2019 /* Nonzero if ought to quit now. */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2020
493
8b101799ff37 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 439
diff changeset
2021 #define QUITP (!NILP (Vquit_flag) && NILP (Vinhibit_quit))
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2022
18006
d29a9b467ac9 (CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents: 17871
diff changeset
2023 /* 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
2024 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
2025 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
2026
17404
73012b195cf3 (DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents: 17326
diff changeset
2027 /* 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
2028
18006
d29a9b467ac9 (CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents: 17871
diff changeset
2029 #define DOWNCASE_TABLE current_buffer->downcase_table
17404
73012b195cf3 (DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents: 17326
diff changeset
2030
73012b195cf3 (DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents: 17326
diff changeset
2031 /* 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
2032
18006
d29a9b467ac9 (CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents: 17871
diff changeset
2033 #define UPCASE_TABLE current_buffer->upcase_table
17404
73012b195cf3 (DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents: 17326
diff changeset
2034
73012b195cf3 (DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents: 17326
diff changeset
2035 /* 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
2036
18006
d29a9b467ac9 (CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents: 17871
diff changeset
2037 #define DOWNCASE(CH) \
d29a9b467ac9 (CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents: 17871
diff changeset
2038 ((case_temp1 = (CH), \
d29a9b467ac9 (CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents: 17871
diff changeset
2039 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
2040 NATNUMP (case_temp2)) \
d29a9b467ac9 (CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents: 17871
diff changeset
2041 ? XFASTINT (case_temp2) : case_temp1)
17404
73012b195cf3 (DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents: 17326
diff changeset
2042
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2043 /* 1 if CH is upper case. */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2044
18111
4bd5e5e3db42 (concat3, get_truename_buffer): Declare them.
Richard M. Stallman <rms@gnu.org>
parents: 18006
diff changeset
2045 #define UPPERCASEP(CH) (DOWNCASE (CH) != (CH))
17404
73012b195cf3 (DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents: 17326
diff changeset
2046
73012b195cf3 (DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents: 17326
diff changeset
2047 /* 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
2048
18006
d29a9b467ac9 (CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents: 17871
diff changeset
2049 #define NOCASEP(CH) (UPCASE1 (CH) == (CH))
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2050
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2051 /* 1 if CH is lower case. */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2052
17289
83cc6a193391 (CHAR_TABLE_REF): Fix syntax error.
Karl Heuer <kwzh@gnu.org>
parents: 17188
diff changeset
2053 #define LOWERCASEP(CH) (!UPPERCASEP (CH) && !NOCASEP(CH))
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2054
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2055 /* Upcase a character, or make no change if that cannot be done. */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2056
17289
83cc6a193391 (CHAR_TABLE_REF): Fix syntax error.
Karl Heuer <kwzh@gnu.org>
parents: 17188
diff changeset
2057 #define UPCASE(CH) (!UPPERCASEP (CH) ? UPCASE1 (CH) : (CH))
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2058
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2059 /* Upcase a character known to be not upper case. */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2060
18006
d29a9b467ac9 (CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents: 17871
diff changeset
2061 #define UPCASE1(CH) \
d29a9b467ac9 (CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents: 17871
diff changeset
2062 ((case_temp1 = (CH), \
d29a9b467ac9 (CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents: 17871
diff changeset
2063 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
2064 NATNUMP (case_temp2)) \
d29a9b467ac9 (CHAR_TABLE_REF): Do not check validity of CT.
Kenichi Handa <handa@m17n.org>
parents: 17871
diff changeset
2065 ? XFASTINT (case_temp2) : case_temp1)
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2066
61187
4d082fa849ea (Vascii_upcase_table, Vascii_canon_table,
Kenichi Handa <handa@m17n.org>
parents: 60897
diff changeset
2067 extern Lisp_Object Vascii_downcase_table, Vascii_upcase_table;
4d082fa849ea (Vascii_upcase_table, Vascii_canon_table,
Kenichi Handa <handa@m17n.org>
parents: 60897
diff changeset
2068 extern Lisp_Object Vascii_canon_table, Vascii_eqv_table;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2069
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
2070 /* Number of bytes of structure consed since last GC. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2071
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2072 extern int consing_since_gc;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2073
64612
6926a2764ae6 (gc_cons_threshold, gc_relative_threshold): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 64272
diff changeset
2074 /* Thresholds for doing another gc. */
6926a2764ae6 (gc_cons_threshold, gc_relative_threshold): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 64272
diff changeset
2075
6926a2764ae6 (gc_cons_threshold, gc_relative_threshold): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 64272
diff changeset
2076 extern EMACS_INT gc_cons_threshold;
6926a2764ae6 (gc_cons_threshold, gc_relative_threshold): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 64272
diff changeset
2077
6926a2764ae6 (gc_cons_threshold, gc_relative_threshold): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 64272
diff changeset
2078 extern EMACS_INT gc_relative_threshold;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2079
66531
8d5d518bafa5 (memory_full_cons_threshold): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 65795
diff changeset
2080 extern EMACS_INT memory_full_cons_threshold;
8d5d518bafa5 (memory_full_cons_threshold): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 65795
diff changeset
2081
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
2082 /* Structure for recording stack slots that need marking. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2083
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
2084 /* This is a chain of structures, each of which points at a Lisp_Object
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
2085 variable whose value should be marked in garbage collection.
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
2086 Normally every link of the chain is an automatic variable of a function,
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
2087 and its `val' points to some argument or local variable of the function.
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
2088 On exit to the function, the chain is set back to the value it had on entry.
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
2089 This way, no link remains in the chain when the stack frame containing the
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
2090 link disappears.
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
2091
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
2092 Every function that can call Feval must protect in this fashion all
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
2093 Lisp_Object variables whose contents will be used again. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2094
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2095 extern struct gcpro *gcprolist;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2096
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2097 struct gcpro
32065
4f8ce7eb45a5 (wrong_type_argument): Remove NO_RETURN, the function can
Gerd Moellmann <gerd@gnu.org>
parents: 31991
diff changeset
2098 {
4f8ce7eb45a5 (wrong_type_argument): Remove NO_RETURN, the function can
Gerd Moellmann <gerd@gnu.org>
parents: 31991
diff changeset
2099 struct gcpro *next;
45623
0e92d219e195 (current_column): Now returns float.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45545
diff changeset
2100
32065
4f8ce7eb45a5 (wrong_type_argument): Remove NO_RETURN, the function can
Gerd Moellmann <gerd@gnu.org>
parents: 31991
diff changeset
2101 /* Address of first protected variable. */
4f8ce7eb45a5 (wrong_type_argument): Remove NO_RETURN, the function can
Gerd Moellmann <gerd@gnu.org>
parents: 31991
diff changeset
2102 volatile Lisp_Object *var;
45623
0e92d219e195 (current_column): Now returns float.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45545
diff changeset
2103
32065
4f8ce7eb45a5 (wrong_type_argument): Remove NO_RETURN, the function can
Gerd Moellmann <gerd@gnu.org>
parents: 31991
diff changeset
2104 /* Number of consecutive protected variables. */
4f8ce7eb45a5 (wrong_type_argument): Remove NO_RETURN, the function can
Gerd Moellmann <gerd@gnu.org>
parents: 31991
diff changeset
2105 int nvars;
45623
0e92d219e195 (current_column): Now returns float.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45545
diff changeset
2106
26296
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2107 #ifdef DEBUG_GCPRO
32065
4f8ce7eb45a5 (wrong_type_argument): Remove NO_RETURN, the function can
Gerd Moellmann <gerd@gnu.org>
parents: 31991
diff changeset
2108 int level;
26296
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2109 #endif
32065
4f8ce7eb45a5 (wrong_type_argument): Remove NO_RETURN, the function can
Gerd Moellmann <gerd@gnu.org>
parents: 31991
diff changeset
2110 };
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2111
27741
ef732a190ead (GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents: 27727
diff changeset
2112 /* 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
2113
ef732a190ead (GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents: 27727
diff changeset
2114 0 Use GCPRO as before
ef732a190ead (GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents: 27727
diff changeset
2115 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
2116 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
2117 marked.
ef732a190ead (GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents: 27727
diff changeset
2118 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
2119 dead objects are kept alive. */
ef732a190ead (GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents: 27727
diff changeset
2120
ef732a190ead (GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents: 27727
diff changeset
2121
ef732a190ead (GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents: 27727
diff changeset
2122 #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
2123 #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
2124 #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
2125 #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
2126
ef732a190ead (GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents: 27727
diff changeset
2127 #ifndef GC_MARK_STACK
ef732a190ead (GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents: 27727
diff changeset
2128 #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
2129 #endif
ef732a190ead (GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents: 27727
diff changeset
2130
ef732a190ead (GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents: 27727
diff changeset
2131 #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
2132
41659
e37febff5532 (GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41615
diff changeset
2133 /* Do something silly with gcproN vars just so gcc shuts up. */
48540
283a6d8bdf2b Comment.
Dave Love <fx@gnu.org>
parents: 48322
diff changeset
2134 /* You get warnings from MIPSPro... */
41659
e37febff5532 (GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41615
diff changeset
2135
e37febff5532 (GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41615
diff changeset
2136 #define GCPRO1(varname) ((void) gcpro1)
45623
0e92d219e195 (current_column): Now returns float.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45545
diff changeset
2137 #define GCPRO2(varname1, varname2)(((void) gcpro2, (void) gcpro1))
41659
e37febff5532 (GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41615
diff changeset
2138 #define GCPRO3(varname1, varname2, varname3) \
e37febff5532 (GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41615
diff changeset
2139 (((void) gcpro3, (void) gcpro2, (void) gcpro1))
e37febff5532 (GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41615
diff changeset
2140 #define GCPRO4(varname1, varname2, varname3, varname4) \
e37febff5532 (GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41615
diff changeset
2141 (((void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1))
e37febff5532 (GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41615
diff changeset
2142 #define GCPRO5(varname1, varname2, varname3, varname4, varname5) \
e37febff5532 (GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41615
diff changeset
2143 (((void) gcpro5, (void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1))
43616
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2144 #define GCPRO6(varname1, varname2, varname3, varname4, varname5, varname6) \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2145 (((void) gcpro6, (void) gcpro5, (void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1))
27741
ef732a190ead (GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents: 27727
diff changeset
2146 #define UNGCPRO ((void) 0)
ef732a190ead (GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents: 27727
diff changeset
2147
ef732a190ead (GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents: 27727
diff changeset
2148 #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
2149
26296
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2150 #ifndef DEBUG_GCPRO
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2151
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2152 #define GCPRO1(varname) \
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2153 {gcpro1.next = gcprolist; gcpro1.var = &varname; gcpro1.nvars = 1; \
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2154 gcprolist = &gcpro1; }
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2155
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2156 #define GCPRO2(varname1, varname2) \
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2157 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2158 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2159 gcprolist = &gcpro2; }
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2160
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2161 #define GCPRO3(varname1, varname2, varname3) \
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2162 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2163 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2164 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2165 gcprolist = &gcpro3; }
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2166
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2167 #define GCPRO4(varname1, varname2, varname3, varname4) \
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2168 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2169 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2170 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2171 gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2172 gcprolist = &gcpro4; }
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2173
8009
abbe65c17b55 (RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 7906
diff changeset
2174 #define GCPRO5(varname1, varname2, varname3, varname4, varname5) \
abbe65c17b55 (RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 7906
diff changeset
2175 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
abbe65c17b55 (RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 7906
diff changeset
2176 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
abbe65c17b55 (RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 7906
diff changeset
2177 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
abbe65c17b55 (RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 7906
diff changeset
2178 gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \
abbe65c17b55 (RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 7906
diff changeset
2179 gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \
abbe65c17b55 (RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 7906
diff changeset
2180 gcprolist = &gcpro5; }
abbe65c17b55 (RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 7906
diff changeset
2181
43616
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2182 #define GCPRO6(varname1, varname2, varname3, varname4, varname5, varname6) \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2183 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2184 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2185 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2186 gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2187 gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2188 gcpro6.next = &gcpro5; gcpro6.var = &varname6; gcpro6.nvars = 1; \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2189 gcprolist = &gcpro6; }
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2190
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2191 #define UNGCPRO (gcprolist = gcpro1.next)
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2192
26296
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2193 #else
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2194
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2195 extern int gcpro_level;
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2196
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2197 #define GCPRO1(varname) \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2198 {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
2199 gcpro1.level = gcpro_level++; \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2200 gcprolist = &gcpro1; }
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2201
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2202 #define GCPRO2(varname1, varname2) \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2203 {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
2204 gcpro1.level = gcpro_level; \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2205 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
2206 gcpro2.level = gcpro_level++; \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2207 gcprolist = &gcpro2; }
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2208
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2209 #define GCPRO3(varname1, varname2, varname3) \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2210 {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
2211 gcpro1.level = gcpro_level; \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2212 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
2213 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
2214 gcpro3.level = gcpro_level++; \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2215 gcprolist = &gcpro3; }
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2216
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2217 #define GCPRO4(varname1, varname2, varname3, varname4) \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2218 {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
2219 gcpro1.level = gcpro_level; \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2220 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
2221 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
2222 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
2223 gcpro4.level = gcpro_level++; \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2224 gcprolist = &gcpro4; }
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2225
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2226 #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
2227 {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
2228 gcpro1.level = gcpro_level; \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2229 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
2230 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
2231 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
2232 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
2233 gcpro5.level = gcpro_level++; \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2234 gcprolist = &gcpro5; }
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2235
43616
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2236 #define GCPRO6(varname1, varname2, varname3, varname4, varname5, varname6) \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2237 {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2238 gcpro1.level = gcpro_level; \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2239 gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2240 gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2241 gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2242 gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2243 gcpro6.next = &gcpro5; gcpro6.var = &varname6; gcpro6.nvars = 1; \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2244 gcpro6.level = gcpro_level++; \
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2245 gcprolist = &gcpro6; }
8da8a9d6b0ac (GCPRO6): New macro.
Kim F. Storm <storm@cua.dk>
parents: 43176
diff changeset
2246
26296
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2247 #define UNGCPRO \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2248 ((--gcpro_level != gcpro1.level) \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2249 ? (abort (), 0) \
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2250 : ((gcprolist = gcpro1.next), 0))
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2251
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2252 #endif /* DEBUG_GCPRO */
27741
ef732a190ead (GC_USE_GCPROS_AS_BEFORE, GC_MAKE_GCPROS_NOOPS)
Gerd Moellmann <gerd@gnu.org>
parents: 27727
diff changeset
2253 #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
2254
26296
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2255
8560
42b300c5ac5d Comment fix.
Richard M. Stallman <rms@gnu.org>
parents: 8009
diff changeset
2256 /* 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
2257 #define RETURN_UNGCPRO(expr) \
25769
4399d55899d3 (RETURN_UNGCPRO): Use do-while (0) idiom.
Gerd Moellmann <gerd@gnu.org>
parents: 25765
diff changeset
2258 do \
8009
abbe65c17b55 (RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 7906
diff changeset
2259 { \
abbe65c17b55 (RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 7906
diff changeset
2260 Lisp_Object ret_ungc_val; \
abbe65c17b55 (RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 7906
diff changeset
2261 ret_ungc_val = (expr); \
abbe65c17b55 (RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 7906
diff changeset
2262 UNGCPRO; \
abbe65c17b55 (RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 7906
diff changeset
2263 return ret_ungc_val; \
abbe65c17b55 (RETURN_UNGCPRO): Swallow semicolon.
Richard M. Stallman <rms@gnu.org>
parents: 7906
diff changeset
2264 } \
25769
4399d55899d3 (RETURN_UNGCPRO): Use do-while (0) idiom.
Gerd Moellmann <gerd@gnu.org>
parents: 25765
diff changeset
2265 while (0)
26296
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2266
e5c745f5a9fc (struct gcpro) [DEBUG_GCPRO]: New field `level'.
Richard M. Stallman <rms@gnu.org>
parents: 26275
diff changeset
2267 /* 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
2268
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2269 void staticpro (Lisp_Object *);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2270
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2271 /* 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
2272 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
2273 /* 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
2274 appropriate prototype. */
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2275 #define EXFUN(fnname, maxargs) \
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2276 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
2277
20297
bf0a54297d95 Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents: 20123
diff changeset
2278 /* Forward declarations for prototypes. */
bf0a54297d95 Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents: 20123
diff changeset
2279 struct window;
bf0a54297d95 Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents: 20123
diff changeset
2280 struct frame;
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2281
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2282 /* Defined in data.c */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2283 extern Lisp_Object Qnil, Qt, Qquote, Qlambda, Qsubr, Qunbound;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2284 extern Lisp_Object Qerror_conditions, Qerror_message, Qtop_level;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2285 extern Lisp_Object Qerror, Qquit, Qwrong_type_argument, Qargs_out_of_range;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2286 extern Lisp_Object Qvoid_variable, Qvoid_function;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2287 extern Lisp_Object Qsetting_constant, Qinvalid_read_syntax;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2288 extern Lisp_Object Qinvalid_function, Qwrong_number_of_arguments, Qno_catch;
53111
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2289 extern Lisp_Object Qend_of_file, Qarith_error, Qmark_inactive;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2290 extern Lisp_Object Qbeginning_of_buffer, Qend_of_buffer, Qbuffer_read_only;
53111
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2291 extern Lisp_Object Qtext_read_only;
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2292 extern Lisp_Object Qinteractive_form;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2293 extern Lisp_Object Qcircular_list;
53111
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2294 extern Lisp_Object Qintegerp, Qnatnump, Qwholenump, Qsymbolp, Qlistp, Qconsp;
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2295 extern Lisp_Object Qstringp, Qarrayp, Qsequencep, Qbufferp;
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2296 extern Lisp_Object Qchar_or_string_p, Qmarkerp, Qinteger_or_marker_p, Qvectorp;
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2297 extern Lisp_Object Qbuffer_or_string_p;
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2298 extern Lisp_Object Qboundp, Qfboundp;
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2299 extern Lisp_Object Qchar_table_p, Qvector_or_char_table_p;
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2300
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2301 extern Lisp_Object Qcdr;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2302
2653
d547e1a7eb9b * lisp.h (CHAR_ALT, CHAR_SUPER, CHAR_HYPER): New constants, in
Jim Blandy <jimb@redhat.com>
parents: 2605
diff changeset
2303 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
2304 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
2305
53111
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2306 extern Lisp_Object Qfloatp;
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2307 extern Lisp_Object Qnumberp, Qnumber_or_marker_p;
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2308
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2309 extern Lisp_Object Qinteger;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2310
102160
c2cff0e96ec7 Define Qfont_spec, Qfont_entity, Qfont_object extern.
Chong Yidong <cyd@stupidchicken.com>
parents: 101965
diff changeset
2311 extern Lisp_Object Qfont_spec, Qfont_entity, Qfont_object;
c2cff0e96ec7 Define Qfont_spec, Qfont_entity, Qfont_object extern.
Chong Yidong <cyd@stupidchicken.com>
parents: 101965
diff changeset
2312
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2313 extern void circular_list_error (Lisp_Object) NO_RETURN;
54628
d0210728ec3f (Finteractive_form): Declare.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 54555
diff changeset
2314 EXFUN (Finteractive_form, 1);
106095
32eb9a991725 (Fbyteorder, init_font, Ffont_get_system_font): Declare.
Andreas Schwab <schwab@linux-m68k.org>
parents: 106085
diff changeset
2315 EXFUN (Fbyteorder, 0);
39766
2a0aa5b942d7 (circular_list_error): Add prototype.
Gerd Moellmann <gerd@gnu.org>
parents: 39710
diff changeset
2316
53111
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2317 /* Defined in frame.c */
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2318 extern Lisp_Object Qframep;
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
2319
112023
ac49e05bfcf2 Remove unused declarations
Andreas Schwab <schwab@linux-m68k.org>
parents: 111815
diff changeset
2320 /* Defined in data.c */
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2321 EXFUN (Fcar, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2322 EXFUN (Fcar_safe, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2323 EXFUN (Fcdr, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2324 EXFUN (Fcdr_safe, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2325 EXFUN (Fsetcar, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2326 EXFUN (Fsetcdr, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2327 EXFUN (Fboundp, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2328 EXFUN (Ffboundp, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2329 EXFUN (Fsymbol_function, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2330 EXFUN (Fsymbol_name, 1);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2331 extern Lisp_Object indirect_function (Lisp_Object);
68758
13c1b7c5f555 * data.c (Findirect_function): Add NOERROR arg. All callers changed
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
2332 EXFUN (Findirect_function, 2);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2333 EXFUN (Ffset, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2334 EXFUN (Fsymbol_value, 1);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2335 extern Lisp_Object find_symbol_value (Lisp_Object);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2336 EXFUN (Fset, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2337 EXFUN (Fdefault_value, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2338 EXFUN (Fset_default, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2339 EXFUN (Fdefault_boundp, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2340 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
2341 EXFUN (Flocal_variable_p, 2);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2342
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2343 EXFUN (Faref, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2344 EXFUN (Faset, 3);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2345
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2346 EXFUN (Fstring_to_number, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2347 EXFUN (Fnumber_to_string, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2348 EXFUN (Fgtr, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2349 EXFUN (Flss, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2350 EXFUN (Fgeq, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2351 EXFUN (Fleq, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2352 EXFUN (Fzerop, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2353 EXFUN (Fplus, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2354 EXFUN (Fminus, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2355 EXFUN (Ftimes, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2356 EXFUN (Fquo, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2357 EXFUN (Frem, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2358 EXFUN (Fmax, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2359 EXFUN (Fmin, MANY);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2360
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2361 EXFUN (Fadd1, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2362 EXFUN (Fsub1, 1);
34154
88440ae23652 (Fmake_variable_buffer_local, Fbuffer_file_name): Declare.
Ken Raeburn <raeburn@raeburn.org>
parents: 33508
diff changeset
2363 EXFUN (Fmake_variable_buffer_local, 1);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2364
95112
0835cb21d60e * lisp.h (indirect_variable):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 94994
diff changeset
2365 extern struct Lisp_Symbol *indirect_variable (struct Lisp_Symbol *);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2366 extern Lisp_Object long_to_cons (unsigned long);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2367 extern unsigned long cons_to_long (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2368 extern void args_out_of_range (Lisp_Object, Lisp_Object) NO_RETURN;
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2369 extern void args_out_of_range_3 (Lisp_Object, Lisp_Object,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2370 Lisp_Object) NO_RETURN;
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2371 extern Lisp_Object wrong_type_argument (Lisp_Object, Lisp_Object) NO_RETURN;
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
2372 extern Lisp_Object do_symval_forwarding (union Lisp_Fwd *);
108308
ee0a08d8887e Try and fix unbind_to when localness of binding has changed
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108223
diff changeset
2373 extern void set_internal (Lisp_Object, Lisp_Object, Lisp_Object, int);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2374 extern void syms_of_data (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2375 extern void init_data (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2376 extern void swap_in_global_binding (struct Lisp_Symbol *);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2377
11934
4b82fb5bde27 (Foverlay_start, Foverlay_end): Declare these functions.
Karl Heuer <kwzh@gnu.org>
parents: 11913
diff changeset
2378 /* Defined in cmds.c */
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2379 EXFUN (Fend_of_line, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2380 EXFUN (Fforward_char, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2381 EXFUN (Fforward_line, 1);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2382 extern void syms_of_cmds (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2383 extern void keys_of_cmds (void);
11934
4b82fb5bde27 (Foverlay_start, Foverlay_end): Declare these functions.
Karl Heuer <kwzh@gnu.org>
parents: 11913
diff changeset
2384
17037
af637c0168ad (CHARACTERBITS, GLYPH_MASK_REV_DIR): New macros.
Karl Heuer <kwzh@gnu.org>
parents: 16913
diff changeset
2385 /* Defined in coding.c */
112023
ac49e05bfcf2 Remove unused declarations
Andreas Schwab <schwab@linux-m68k.org>
parents: 111815
diff changeset
2386 extern Lisp_Object Qcharset;
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2387 EXFUN (Fcoding_system_p, 1);
90156
26485da86a22 (Fcoding_system_base, Fcoding_system_eol_type)
Kenichi Handa <handa@m17n.org>
parents: 90147
diff changeset
2388 EXFUN (Fcoding_system_base, 1);
26485da86a22 (Fcoding_system_base, Fcoding_system_eol_type)
Kenichi Handa <handa@m17n.org>
parents: 90147
diff changeset
2389 EXFUN (Fcoding_system_eol_type, 1);
26485da86a22 (Fcoding_system_base, Fcoding_system_eol_type)
Kenichi Handa <handa@m17n.org>
parents: 90147
diff changeset
2390 EXFUN (Fcheck_coding_system, 1);
19757
328233592e3b (Fread_coding_system): Update decl.
Richard M. Stallman <rms@gnu.org>
parents: 19698
diff changeset
2391 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
2392 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
2393 EXFUN (Ffind_operation_coding_system, MANY);
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
2394 EXFUN (Fdecode_coding_string, 4);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2395 extern Lisp_Object detect_coding_system (const unsigned char *, EMACS_INT,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2396 EMACS_INT, int, int, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2397 extern void init_coding (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2398 extern void init_coding_once (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2399 extern void syms_of_coding (void);
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
2400
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
2401 /* Defined in character.c */
89520
2c1ad8f1fe6f Add Funibyte_char_to_multibyte.
Dave Love <fx@gnu.org>
parents: 89483
diff changeset
2402 EXFUN (Funibyte_char_to_multibyte, 1);
21515
fb4c986db0e2 Add more prototypes.
Andreas Schwab <schwab@suse.de>
parents: 21322
diff changeset
2403 EXFUN (Fchar_width, 1);
27885
07a468af713c Add a bunch of prototypes.
Dave Love <fx@gnu.org>
parents: 27858
diff changeset
2404 EXFUN (Fstring, MANY);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2405 extern EMACS_INT chars_in_text (const unsigned char *, EMACS_INT);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2406 extern EMACS_INT multibyte_chars_in_text (const unsigned char *, EMACS_INT);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2407 extern int multibyte_char_to_unibyte (int, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2408 extern int multibyte_char_to_unibyte_safe (int);
112023
ac49e05bfcf2 Remove unused declarations
Andreas Schwab <schwab@linux-m68k.org>
parents: 111815
diff changeset
2409 extern void init_character_once (void);
ac49e05bfcf2 Remove unused declarations
Andreas Schwab <schwab@linux-m68k.org>
parents: 111815
diff changeset
2410 extern void syms_of_character (void);
ac49e05bfcf2 Remove unused declarations
Andreas Schwab <schwab@linux-m68k.org>
parents: 111815
diff changeset
2411
ac49e05bfcf2 Remove unused declarations
Andreas Schwab <schwab@linux-m68k.org>
parents: 111815
diff changeset
2412 /* Defined in charset.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2413 extern void init_charset (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2414 extern void init_charset_once (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2415 extern void syms_of_charset (void);
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
2416 /* Structure forward declarations. */
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89439
diff changeset
2417 struct charset;
19574
b4533deef3b8 Declare Fchar_bytes.
Richard M. Stallman <rms@gnu.org>
parents: 19547
diff changeset
2418
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
2419 /* Defined in composite.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2420 extern void syms_of_composite (void);
19574
b4533deef3b8 Declare Fchar_bytes.
Richard M. Stallman <rms@gnu.org>
parents: 19547
diff changeset
2421
11934
4b82fb5bde27 (Foverlay_start, Foverlay_end): Declare these functions.
Karl Heuer <kwzh@gnu.org>
parents: 11913
diff changeset
2422 /* Defined in syntax.c */
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2423 EXFUN (Fforward_word, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2424 EXFUN (Fskip_chars_forward, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2425 EXFUN (Fskip_chars_backward, 2);
20297
bf0a54297d95 Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents: 20123
diff changeset
2426 EXFUN (Fsyntax_table_p, 1);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2427 extern void init_syntax_once (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2428 extern void syms_of_syntax (void);
11934
4b82fb5bde27 (Foverlay_start, Foverlay_end): Declare these functions.
Karl Heuer <kwzh@gnu.org>
parents: 11913
diff changeset
2429
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2430 /* Defined in fns.c */
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2431 extern Lisp_Object QCrehash_size, QCrehash_threshold;
31015
0a24ffcc4061 (set_time_zone_rule): Add prototype.
Gerd Moellmann <gerd@gnu.org>
parents: 30943
diff changeset
2432 extern int use_dialog_box;
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2433 extern int use_file_dialog;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2434 extern int next_almost_prime (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2435 extern Lisp_Object larger_vector (Lisp_Object, int, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2436 extern void sweep_weak_hash_tables (void);
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2437 extern Lisp_Object Qcursor_in_echo_area;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2438 extern Lisp_Object Qstring_lessp;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2439 extern Lisp_Object Vfeatures;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2440 extern Lisp_Object QCsize, QCtest, QCweakness, Qequal, Qeq, Qeql;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2441 unsigned sxhash (Lisp_Object, int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2442 Lisp_Object make_hash_table (Lisp_Object, Lisp_Object, Lisp_Object,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2443 Lisp_Object, Lisp_Object, Lisp_Object,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2444 Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2445 int hash_lookup (struct Lisp_Hash_Table *, Lisp_Object, unsigned *);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2446 int hash_put (struct Lisp_Hash_Table *, Lisp_Object, Lisp_Object,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2447 unsigned);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2448 void init_weak_hash_tables (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2449 extern void init_fns (void);
25017
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
2450 EXFUN (Fmake_hash_table, MANY);
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
2451 EXFUN (Fgethash, 3);
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
2452 EXFUN (Fputhash, 3);
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
2453 EXFUN (Fremhash, 2);
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
2454
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2455 EXFUN (Fidentity, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2456 EXFUN (Flength, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2457 EXFUN (Fappend, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2458 EXFUN (Fconcat, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2459 EXFUN (Fvconcat, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2460 EXFUN (Fcopy_sequence, 1);
21038
9b33c6a5b4dc (Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents: 20723
diff changeset
2461 EXFUN (Fstring_make_multibyte, 1);
9b33c6a5b4dc (Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents: 20723
diff changeset
2462 EXFUN (Fstring_make_unibyte, 1);
9b33c6a5b4dc (Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents: 20723
diff changeset
2463 EXFUN (Fstring_as_multibyte, 1);
9b33c6a5b4dc (Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents: 20723
diff changeset
2464 EXFUN (Fstring_as_unibyte, 1);
49866
c1513decc2e5 (Fcancel_kbd_macro_events, Fstring_to_multibyte): Add
Andreas Schwab <schwab@suse.de>
parents: 49665
diff changeset
2465 EXFUN (Fstring_to_multibyte, 1);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2466 EXFUN (Fsubstring, 3);
110543
a89eabac600d Fix int/EMACS_INT usage in fns.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110515
diff changeset
2467 extern Lisp_Object substring_both (Lisp_Object, EMACS_INT, EMACS_INT,
a89eabac600d Fix int/EMACS_INT usage in fns.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110515
diff changeset
2468 EMACS_INT, EMACS_INT);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2469 EXFUN (Fnth, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2470 EXFUN (Fnthcdr, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2471 EXFUN (Fmemq, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2472 EXFUN (Fassq, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2473 EXFUN (Fassoc, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2474 EXFUN (Felt, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2475 EXFUN (Fmember, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2476 EXFUN (Frassq, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2477 EXFUN (Fdelq, 2);
58092
066860841caf (Fdelete): Add EXFUN.
Kim F. Storm <storm@cua.dk>
parents: 58013
diff changeset
2478 EXFUN (Fdelete, 2);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2479 EXFUN (Fsort, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2480 EXFUN (Freverse, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2481 EXFUN (Fnreverse, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2482 EXFUN (Fget, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2483 EXFUN (Fput, 3);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2484 EXFUN (Fequal, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2485 EXFUN (Fnconc, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2486 EXFUN (Fmapcar, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2487 EXFUN (Fmapconcat, 3);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2488 extern Lisp_Object do_yes_or_no_p (Lisp_Object);
39860
32241ddd6e73 (Ffeaturep, Fprovide): Update prototype.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39810
diff changeset
2489 EXFUN (Fprovide, 2);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2490 extern Lisp_Object concat2 (Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2491 extern Lisp_Object concat3 (Lisp_Object, Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2492 extern Lisp_Object nconc2 (Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2493 extern Lisp_Object assq_no_quit (Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2494 extern Lisp_Object assoc_no_quit (Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2495 extern void clear_string_char_byte_cache (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2496 extern EMACS_INT string_char_to_byte (Lisp_Object, EMACS_INT);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2497 extern EMACS_INT string_byte_to_char (Lisp_Object, EMACS_INT);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2498 extern Lisp_Object string_to_multibyte (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2499 extern Lisp_Object string_make_unibyte (Lisp_Object);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2500 EXFUN (Fcopy_alist, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2501 EXFUN (Fplist_get, 2);
25017
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
2502 EXFUN (Fplist_put, 3);
44009
e67bcd447b16 (Fplist_member): Add prototype.
Pavel Janík <Pavel@Janik.cz>
parents: 43816
diff changeset
2503 EXFUN (Fplist_member, 2);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2504 EXFUN (Frassoc, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2505 EXFUN (Fstring_equal, 2);
21842
870b55420529 Declare Fcompare_strings.
Andreas Schwab <schwab@suse.de>
parents: 21826
diff changeset
2506 EXFUN (Fcompare_strings, 7);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2507 EXFUN (Fstring_lessp, 2);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2508 extern void syms_of_fns (void);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2509
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2510 /* Defined in floatfns.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2511 extern double extract_float (Lisp_Object);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2512 EXFUN (Ffloat, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2513 EXFUN (Ftruncate, 2);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2514 extern void init_floatfns (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2515 extern void syms_of_floatfns (void);
109653
9cfca8c9fb07 Fix missing prototypes for HAVE_NS (caused crash) and vrious warnings.
Jan D <jan.h.d@swipnet.se>
parents: 109635
diff changeset
2516 extern Lisp_Object fmod_float (Lisp_Object x, Lisp_Object y);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2517
53884
1b20aa00ebc2 (syms_of_fringe, init_fringe, init_fringe_once):
Kim F. Storm <storm@cua.dk>
parents: 53669
diff changeset
2518 /* Defined in fringe.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2519 extern void syms_of_fringe (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2520 extern void init_fringe (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2521 extern void init_fringe_once (void);
53884
1b20aa00ebc2 (syms_of_fringe, init_fringe, init_fringe_once):
Kim F. Storm <storm@cua.dk>
parents: 53669
diff changeset
2522
54340
52989cb6fe03 Image consolidation:
Kim F. Storm <storm@cua.dk>
parents: 54177
diff changeset
2523 /* Defined in image.c */
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2524 extern Lisp_Object QCascent, QCmargin, QCrelief, Qcount, Qextension_data;
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2525 extern Lisp_Object QCconversion, QCcolor_symbols, QCheuristic_mask;
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2526 extern Lisp_Object QCindex, QCmatrix, QCcolor_adjustment, QCmask;
56287
f336a26a714d Declare Finit_image_library.
Andreas Schwab <schwab@suse.de>
parents: 56242
diff changeset
2527 EXFUN (Finit_image_library, 2);
112023
ac49e05bfcf2 Remove unused declarations
Andreas Schwab <schwab@linux-m68k.org>
parents: 111815
diff changeset
2528 extern int x_bitmap_mask (struct frame *, int);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2529 extern void syms_of_image (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2530 extern void init_image (void);
54340
52989cb6fe03 Image consolidation:
Kim F. Storm <storm@cua.dk>
parents: 54177
diff changeset
2531
10396
47938020b39d Use large constants for Lisp_Misc_Type.
Karl Heuer <kwzh@gnu.org>
parents: 10387
diff changeset
2532 /* Defined in insdel.c */
39245
76c1a0ab4517 (Qinhibit_modification_hooks): Declare.
Gerd Moellmann <gerd@gnu.org>
parents: 39194
diff changeset
2533 extern Lisp_Object Qinhibit_modification_hooks;
102753
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2534 extern void move_gap (EMACS_INT);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2535 extern void move_gap_both (EMACS_INT, EMACS_INT);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2536 extern void make_gap (EMACS_INT);
102759
ec3ec7f5d54e * editfns.c (general_insert_function): Adjust to insdel.c changes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102753
diff changeset
2537 extern EMACS_INT copy_text (const unsigned char *, unsigned char *,
ec3ec7f5d54e * editfns.c (general_insert_function): Adjust to insdel.c changes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102753
diff changeset
2538 EMACS_INT, int, int);
ec3ec7f5d54e * editfns.c (general_insert_function): Adjust to insdel.c changes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102753
diff changeset
2539 extern EMACS_INT count_size_as_multibyte (const unsigned char *, EMACS_INT);
102753
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2540 extern int count_combining_before (const unsigned char *,
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2541 EMACS_INT, EMACS_INT, EMACS_INT);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2542 extern int count_combining_after (const unsigned char *,
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2543 EMACS_INT, EMACS_INT, EMACS_INT);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2544 extern void insert (const unsigned char *, EMACS_INT);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2545 extern void insert_and_inherit (const unsigned char *, EMACS_INT);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2546 extern void insert_1 (const unsigned char *, EMACS_INT, int, int, int);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2547 extern void insert_1_both (const unsigned char *, EMACS_INT, EMACS_INT,
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2548 int, int, int);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2549 extern void insert_from_gap (EMACS_INT, EMACS_INT);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2550 extern void insert_from_string (Lisp_Object, EMACS_INT, EMACS_INT,
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2551 EMACS_INT, EMACS_INT, int);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2552 extern void insert_from_buffer (struct buffer *, EMACS_INT, EMACS_INT, int);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2553 extern void insert_char (int);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2554 extern void insert_string (const char *);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2555 extern void insert_before_markers (const unsigned char *, EMACS_INT);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2556 extern void insert_before_markers_and_inherit (const unsigned char *,
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2557 EMACS_INT);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2558 extern void insert_from_string_before_markers (Lisp_Object, EMACS_INT,
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2559 EMACS_INT, EMACS_INT,
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2560 EMACS_INT, int);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2561 extern void del_range (EMACS_INT, EMACS_INT);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2562 extern Lisp_Object del_range_1 (EMACS_INT, EMACS_INT, int, int);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2563 extern void del_range_byte (EMACS_INT, EMACS_INT, int);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2564 extern void del_range_both (EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT, int);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2565 extern Lisp_Object del_range_2 (EMACS_INT, EMACS_INT,
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2566 EMACS_INT, EMACS_INT, int);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2567 extern void modify_region (struct buffer *, EMACS_INT, EMACS_INT, int);
102759
ec3ec7f5d54e * editfns.c (general_insert_function): Adjust to insdel.c changes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102753
diff changeset
2568 extern void prepare_to_modify_buffer (EMACS_INT, EMACS_INT, EMACS_INT *);
ec3ec7f5d54e * editfns.c (general_insert_function): Adjust to insdel.c changes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102753
diff changeset
2569 extern void signal_before_change (EMACS_INT, EMACS_INT, EMACS_INT *);
102753
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2570 extern void signal_after_change (EMACS_INT, EMACS_INT, EMACS_INT);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2571 extern void adjust_after_replace (EMACS_INT, EMACS_INT, Lisp_Object,
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2572 EMACS_INT, EMACS_INT);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2573 extern void adjust_after_replace_noundo (EMACS_INT, EMACS_INT, EMACS_INT,
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2574 EMACS_INT, EMACS_INT, EMACS_INT);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2575 extern void adjust_after_insert (EMACS_INT, EMACS_INT, EMACS_INT,
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2576 EMACS_INT, EMACS_INT);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2577 extern void adjust_markers_for_delete (EMACS_INT, EMACS_INT,
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2578 EMACS_INT, EMACS_INT);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2579 extern void replace_range (EMACS_INT, EMACS_INT, Lisp_Object, int, int, int);
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2580 extern void replace_range_2 (EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT,
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2581 const char *, EMACS_INT, EMACS_INT, int);
102753
b6116169967f * insdel.c (move_gap, move_gap_both, gap_left, gap_right)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102736
diff changeset
2582 extern void syms_of_insdel (void);
10396
47938020b39d Use large constants for Lisp_Misc_Type.
Karl Heuer <kwzh@gnu.org>
parents: 10387
diff changeset
2583
16133
36566aa94b49 Add many declarations.
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
2584 /* Defined in dispnew.c */
25672
68068da11161 (selected_frame): Add external declaration.
Gerd Moellmann <gerd@gnu.org>
parents: 25556
diff changeset
2585 extern Lisp_Object selected_frame;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2586 extern Lisp_Object Vwindow_system_version;
43713
f92c4d87863a Change defvar_int def and vars to use EMACS_INT instead of just int.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 43699
diff changeset
2587 extern EMACS_INT baud_rate;
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2588 EXFUN (Fding, 1);
25450
b5c133b3bfa0 Add declarations for some functions.
Andreas Schwab <schwab@suse.de>
parents: 25421
diff changeset
2589 EXFUN (Fredraw_frame, 1);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2590 EXFUN (Fsleep_for, 2);
71796
d16f7a383190 (sit_for): Update prototype.
Kim F. Storm <storm@cua.dk>
parents: 71063
diff changeset
2591 EXFUN (Fredisplay, 1);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2592 extern Lisp_Object sit_for (Lisp_Object, int, int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2593 extern void init_display (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2594 extern void syms_of_display (void);
16133
36566aa94b49 Add many declarations.
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
2595
10396
47938020b39d Use large constants for Lisp_Misc_Type.
Karl Heuer <kwzh@gnu.org>
parents: 10387
diff changeset
2596 /* Defined in xdisp.c */
34796
560b081d8800 (Qinhibit_point_motion_hooks): Declare extern.
Gerd Moellmann <gerd@gnu.org>
parents: 34534
diff changeset
2597 extern Lisp_Object Qinhibit_point_motion_hooks;
31447
12a61566fea1 (Qdisplay): Declare extern.
Gerd Moellmann <gerd@gnu.org>
parents: 31207
diff changeset
2598 extern Lisp_Object Qinhibit_redisplay, Qdisplay;
37042
a644f4966169 (Qinhibit_eval_during_redisplay): Declare extern.
Gerd Moellmann <gerd@gnu.org>
parents: 36941
diff changeset
2599 extern Lisp_Object Qinhibit_eval_during_redisplay;
29636
04d079a75b41 (Qmessage_truncate_lines): External declaration.
Gerd Moellmann <gerd@gnu.org>
parents: 29443
diff changeset
2600 extern Lisp_Object Qmessage_truncate_lines;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2601 extern Lisp_Object Qmenu_bar_update_hook;
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2602 extern Lisp_Object Qwindow_scroll_functions, Vwindow_scroll_functions;
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2603 extern Lisp_Object Qoverriding_local_map, Qoverriding_terminal_local_map;
109566
d03bc4a3fced Add tool bar style text-image-horiz (text to the left of the image).
Jan D. <jan.h.d@swipnet.se>
parents: 109554
diff changeset
2604 extern Lisp_Object Qimage, Qtext, Qboth, Qboth_horiz, Qtext_image_horiz;
109554
b22b609d1fa7 * src/lisp.h (Fkill_emacs): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109548
diff changeset
2605 extern Lisp_Object Qspace, Qcenter, QCalign_to;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2606 extern Lisp_Object Qbar, Qhbar, Qbox, Qhollow;
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2607 extern Lisp_Object Qleft_margin, Qright_margin;
111689
b9616a1b568d Move extern declarations from term.c to lisp.h.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 111688
diff changeset
2608 extern Lisp_Object Qglyphless_char;
11191
4bf8abe4529e Declare Vmessage_log_max.
Karl Heuer <kwzh@gnu.org>
parents: 11164
diff changeset
2609 extern Lisp_Object Vmessage_log_max;
109554
b22b609d1fa7 * src/lisp.h (Fkill_emacs): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109548
diff changeset
2610 extern Lisp_Object QCdata, QCfile;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2611 extern Lisp_Object QCmap;
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2612 extern Lisp_Object Qrisky_local_variable;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2613 extern Lisp_Object Vinhibit_redisplay;
111689
b9616a1b568d Move extern declarations from term.c to lisp.h.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 111688
diff changeset
2614 extern struct frame *last_glyphless_glyph_frame;
b9616a1b568d Move extern declarations from term.c to lisp.h.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 111688
diff changeset
2615 extern unsigned last_glyphless_glyph_face_id;
b9616a1b568d Move extern declarations from term.c to lisp.h.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 111688
diff changeset
2616 extern int last_glyphless_glyph_merged_face_id;
20625
a9c4bf3f4e46 (STRING_MULTIBYTE): New macro.
Richard M. Stallman <rms@gnu.org>
parents: 20569
diff changeset
2617 extern int message_enable_multibyte;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2618 extern int noninteractive_need_newline;
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2619 extern EMACS_INT scroll_margin;
25353
fa9f34ec4151 Add function prototypes.
Gerd Moellmann <gerd@gnu.org>
parents: 25252
diff changeset
2620 extern Lisp_Object echo_area_buffer[2];
109554
b22b609d1fa7 * src/lisp.h (Fkill_emacs): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109548
diff changeset
2621 extern void add_to_log (const char *, Lisp_Object, Lisp_Object);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2622 extern void check_message_stack (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2623 extern void setup_echo_area_for_printing (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2624 extern int push_message (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2625 extern Lisp_Object pop_message_unwind (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2626 extern Lisp_Object restore_message_unwind (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2627 extern void pop_message (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2628 extern void restore_message (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2629 extern Lisp_Object current_message (void);
110645
7d7a02c19d8c Fix int/EMACS_INT use in xdisp.c and print.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110609
diff changeset
2630 extern void set_message (const char *s, Lisp_Object, EMACS_INT, int);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2631 extern void clear_message (int, int);
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2632 extern void message (const char *, ...);
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2633 extern void message_nolog (const char *, ...);
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2634 extern void message1 (const char *);
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2635 extern void message1_nolog (const char *);
110645
7d7a02c19d8c Fix int/EMACS_INT use in xdisp.c and print.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110609
diff changeset
2636 extern void message2 (const char *, EMACS_INT, int);
7d7a02c19d8c Fix int/EMACS_INT use in xdisp.c and print.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110609
diff changeset
2637 extern void message2_nolog (const char *, EMACS_INT, int);
7d7a02c19d8c Fix int/EMACS_INT use in xdisp.c and print.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110609
diff changeset
2638 extern void message3 (Lisp_Object, EMACS_INT, int);
7d7a02c19d8c Fix int/EMACS_INT use in xdisp.c and print.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110609
diff changeset
2639 extern void message3_nolog (Lisp_Object, EMACS_INT, int);
110548
f7b98576d87f Fix all EMACS_INT/int conversion errors in print.c (and related files).
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 110545
diff changeset
2640 extern void message_dolog (const char *, EMACS_INT, int, int);
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2641 extern void message_with_string (const char *, Lisp_Object, int);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2642 extern void message_log_maybe_newline (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2643 extern void update_echo_area (void);
110559
9c63d46e000c Fix int/EMACS_INT use in keyboard.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110554
diff changeset
2644 extern void truncate_echo_area (EMACS_INT);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2645 extern void redisplay (void);
26865
87623e53b7c6 (QCtest, QCweakness, Qequal): Extern them.
Kenichi Handa <handa@m17n.org>
parents: 26742
diff changeset
2646 extern int check_point_in_composition
110504
0fdd992ff057 Fix more uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110503
diff changeset
2647 (struct buffer *, EMACS_INT, struct buffer *, EMACS_INT);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2648 extern void redisplay_preserve_echo_area (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2649 extern void prepare_menu_bars (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2650
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2651 void set_frame_cursor_types (struct frame *, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2652 extern void syms_of_xdisp (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2653 extern void init_xdisp (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2654 extern Lisp_Object safe_eval (Lisp_Object);
110645
7d7a02c19d8c Fix int/EMACS_INT use in xdisp.c and print.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110609
diff changeset
2655 extern int pos_visible_p (struct window *, EMACS_INT, int *,
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2656 int *, int *, int *, int *, int *);
10396
47938020b39d Use large constants for Lisp_Misc_Type.
Karl Heuer <kwzh@gnu.org>
parents: 10387
diff changeset
2657
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105885
diff changeset
2658 /* Defined in xsettings.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2659 extern void syms_of_xsettings (void);
106085
cd4cbab8bb21 Handle system default font and changing font parameters.
Jan Djärv <jan.h.d@swipnet.se>
parents: 105885
diff changeset
2660
25748
6fddda6e635e Add prototype for uninterrupt_malloc, memory_warnings,
Gerd Moellmann <gerd@gnu.org>
parents: 25737
diff changeset
2661 /* Defined in vm-limit.c. */
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2662 extern void memory_warnings (POINTER_TYPE *, void (*warnfun) (const char *));
28054
d53d22ce7f4b (P_): Define based on PROTOTYPES, not __STDC__.
Dave Love <fx@gnu.org>
parents: 27885
diff changeset
2663
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2664 /* Defined in alloc.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2665 extern void check_pure_size (void);
110480
5290c80fda43 Fix some uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110314
diff changeset
2666 extern void allocate_string_data (struct Lisp_String *, EMACS_INT, EMACS_INT);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2667 extern void reset_malloc_hooks (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2668 extern void uninterrupt_malloc (void);
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2669 extern void malloc_warning (const char *);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2670 extern void memory_full (void) NO_RETURN;
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2671 extern void buffer_memory_full (void) NO_RETURN;
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2672 extern int survives_gc_p (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2673 extern void mark_object (Lisp_Object);
111632
e06fc3baed8c * src/alloc.c (refill_memory_reserve): Move declaration ...
Dan Nicolaescu <dann@ics.uci.edu>
parents: 111629
diff changeset
2674 extern void refill_memory_reserve (void);
111629
6c24c5598611 Move declarations from .c files to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 111512
diff changeset
2675 extern const char *pending_malloc_warning;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2676 extern Lisp_Object Vpurify_flag;
46304
76246741e5c2 (Vmemory_full): Add declaration.
Richard M. Stallman <rms@gnu.org>
parents: 46284
diff changeset
2677 extern Lisp_Object Vmemory_full;
109554
b22b609d1fa7 * src/lisp.h (Fkill_emacs): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109548
diff changeset
2678 extern Lisp_Object *stack_base;
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2679 EXFUN (Fcons, 2);
112023
ac49e05bfcf2 Remove unused declarations
Andreas Schwab <schwab@linux-m68k.org>
parents: 111815
diff changeset
2680 extern Lisp_Object list1 (Lisp_Object);
ac49e05bfcf2 Remove unused declarations
Andreas Schwab <schwab@linux-m68k.org>
parents: 111815
diff changeset
2681 extern Lisp_Object list2 (Lisp_Object, Lisp_Object);
ac49e05bfcf2 Remove unused declarations
Andreas Schwab <schwab@linux-m68k.org>
parents: 111815
diff changeset
2682 extern Lisp_Object list3 (Lisp_Object, Lisp_Object, Lisp_Object);
ac49e05bfcf2 Remove unused declarations
Andreas Schwab <schwab@linux-m68k.org>
parents: 111815
diff changeset
2683 extern Lisp_Object list4 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object);
ac49e05bfcf2 Remove unused declarations
Andreas Schwab <schwab@linux-m68k.org>
parents: 111815
diff changeset
2684 extern Lisp_Object list5 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object,
ac49e05bfcf2 Remove unused declarations
Andreas Schwab <schwab@linux-m68k.org>
parents: 111815
diff changeset
2685 Lisp_Object);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2686 EXFUN (Flist, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2687 EXFUN (Fmake_list, 2);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2688 extern Lisp_Object allocate_misc (void);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2689 EXFUN (Fmake_vector, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2690 EXFUN (Fvector, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2691 EXFUN (Fmake_symbol, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2692 EXFUN (Fmake_marker, 0);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2693 EXFUN (Fmake_string, 2);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2694 extern Lisp_Object build_string (const char *);
110503
fda36a325177 Fix some more uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110484
diff changeset
2695 extern Lisp_Object make_string (const char *, EMACS_INT);
fda36a325177 Fix some more uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110484
diff changeset
2696 extern Lisp_Object make_unibyte_string (const char *, EMACS_INT);
fda36a325177 Fix some more uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110484
diff changeset
2697 extern Lisp_Object make_multibyte_string (const char *, EMACS_INT, EMACS_INT);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2698 extern Lisp_Object make_event_array (int, Lisp_Object *);
110480
5290c80fda43 Fix some uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110314
diff changeset
2699 extern Lisp_Object make_uninit_string (EMACS_INT);
5290c80fda43 Fix some uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110314
diff changeset
2700 extern Lisp_Object make_uninit_multibyte_string (EMACS_INT, EMACS_INT);
110503
fda36a325177 Fix some more uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110484
diff changeset
2701 extern Lisp_Object make_string_from_bytes (const char *, EMACS_INT, EMACS_INT);
fda36a325177 Fix some more uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110484
diff changeset
2702 extern Lisp_Object make_specified_string (const char *,
fda36a325177 Fix some more uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110484
diff changeset
2703 EMACS_INT, EMACS_INT, int);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2704 EXFUN (Fpurecopy, 1);
110503
fda36a325177 Fix some more uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110484
diff changeset
2705 extern Lisp_Object make_pure_string (const char *, EMACS_INT, EMACS_INT, int);
105872
89183b6f6e9d * process.c (socket_options): Make it const.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105840
diff changeset
2706 extern Lisp_Object make_pure_c_string (const char *data);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2707 extern Lisp_Object pure_cons (Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2708 extern Lisp_Object make_pure_vector (EMACS_INT);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2709 EXFUN (Fgarbage_collect, 0);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2710 EXFUN (Fmake_byte_code, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2711 EXFUN (Fmake_bool_vector, 2);
13202
b307cd5c259f (struct Lisp_Char_Table): New slot `purpose'.
Richard M. Stallman <rms@gnu.org>
parents: 13149
diff changeset
2712 extern Lisp_Object Qchar_table_extra_slots;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2713 extern struct Lisp_Vector *allocate_vector (EMACS_INT);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2714 extern struct Lisp_Vector *allocate_pseudovector (int memlen, int lisplen, EMACS_INT tag);
86160
1ede747999c6 * alloc.c (ALLOCATE_PSEUDOVECTOR): Move to lisp.h.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85764
diff changeset
2715 #define ALLOCATE_PSEUDOVECTOR(typ,field,tag) \
1ede747999c6 * alloc.c (ALLOCATE_PSEUDOVECTOR): Move to lisp.h.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85764
diff changeset
2716 ((typ*) \
1ede747999c6 * alloc.c (ALLOCATE_PSEUDOVECTOR): Move to lisp.h.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85764
diff changeset
2717 allocate_pseudovector \
1ede747999c6 * alloc.c (ALLOCATE_PSEUDOVECTOR): Move to lisp.h.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85764
diff changeset
2718 (VECSIZE (typ), PSEUDOVECSIZE (typ, field), tag))
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2719 extern struct Lisp_Hash_Table *allocate_hash_table (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2720 extern struct window *allocate_window (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2721 extern struct frame *allocate_frame (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2722 extern struct Lisp_Process *allocate_process (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2723 extern struct terminal *allocate_terminal (void);
6657
28359458811c (gc_in_progress): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 6458
diff changeset
2724 extern int gc_in_progress;
50748
7c1d1ca51ca7 (abort_on_gc): Add decl.
Richard M. Stallman <rms@gnu.org>
parents: 50539
diff changeset
2725 extern int abort_on_gc;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2726 extern Lisp_Object make_float (double);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2727 extern void display_malloc_warning (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2728 extern int inhibit_garbage_collection (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2729 extern Lisp_Object make_save_value (void *, int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2730 extern void free_misc (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2731 extern void free_marker (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2732 extern void free_cons (struct Lisp_Cons *);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2733 extern void init_alloc_once (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2734 extern void init_alloc (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2735 extern void syms_of_alloc (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2736 extern struct buffer * allocate_buffer (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2737 extern int valid_lisp_object_p (Lisp_Object);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2738
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
2739 /* Defined in chartab.c */
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
2740 EXFUN (Fmake_char_table, 2);
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
2741 EXFUN (Fset_char_table_parent, 2);
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
2742 EXFUN (Fchar_table_extra_slot, 2);
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
2743 EXFUN (Fset_char_table_extra_slot, 3);
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
2744 EXFUN (Fset_char_table_range, 3);
95430
04a952ac356f * chartab.c (Foptimize_char_table, optimize_sub_char_table):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 95188
diff changeset
2745 EXFUN (Foptimize_char_table, 2);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2746 extern Lisp_Object copy_char_table (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2747 extern Lisp_Object char_table_ref (Lisp_Object, int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2748 extern Lisp_Object char_table_ref_and_range (Lisp_Object, int,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2749 int *, int *);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2750 extern Lisp_Object char_table_set (Lisp_Object, int, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2751 extern Lisp_Object char_table_set_range (Lisp_Object, int, int,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2752 Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2753 extern int char_table_translate (Lisp_Object, int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2754 extern void map_char_table (void (*) (Lisp_Object, Lisp_Object,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2755 Lisp_Object),
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2756 Lisp_Object, Lisp_Object, Lisp_Object);
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2757 extern void map_char_table_for_charset (void (*c_function) (Lisp_Object, Lisp_Object),
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2758 Lisp_Object, Lisp_Object,
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2759 Lisp_Object, struct charset *,
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2760 unsigned, unsigned);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2761 extern void syms_of_chartab (void);
88382
5e3e1d9d514f (enum pvec_type): New member PVEC_SUB_CHAR_TABLE.
Kenichi Handa <handa@m17n.org>
parents: 43176
diff changeset
2762
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2763 /* Defined in print.c */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2764 extern Lisp_Object Vprin1_to_string_buffer;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2765 extern Lisp_Object Vprint_level, Vprint_length;
111688
7153f8068e69 Mark debugger related variables and functions as EXTERNALLY_VISIBLE
Dan Nicolaescu <dann@ics.uci.edu>
parents: 111632
diff changeset
2766 extern void debug_print (Lisp_Object) EXTERNALLY_VISIBLE;
7153f8068e69 Mark debugger related variables and functions as EXTERNALLY_VISIBLE
Dan Nicolaescu <dann@ics.uci.edu>
parents: 111632
diff changeset
2767 extern void safe_debug_print (Lisp_Object) EXTERNALLY_VISIBLE;
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2768 EXFUN (Fprin1, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2769 EXFUN (Fprin1_to_string, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2770 EXFUN (Fprinc, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2771 EXFUN (Fterpri, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2772 EXFUN (Fprint, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2773 EXFUN (Ferror_message_string, 1);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2774 extern Lisp_Object Vstandard_output, Qstandard_output;
439
350065270fc8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 381
diff changeset
2775 extern Lisp_Object Qexternal_debugging_output;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2776 extern void temp_output_buffer_setup (const char *);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2777 extern int print_level, print_escape_newlines;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2778 extern Lisp_Object Qprint_escape_newlines;
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2779 extern void write_string (const char *, int);
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2780 extern void print_error_message (Lisp_Object, Lisp_Object, const char *,
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2781 Lisp_Object);
20297
bf0a54297d95 Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents: 20123
diff changeset
2782 extern Lisp_Object internal_with_output_to_temp_buffer
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2783 (const char *, Lisp_Object (*) (Lisp_Object), Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2784 extern void float_to_string (unsigned char *, double);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2785 extern void syms_of_print (void);
20297
bf0a54297d95 Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents: 20123
diff changeset
2786
bf0a54297d95 Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents: 20123
diff changeset
2787 /* Defined in doprnt.c */
110513
43adca79c8fd Clean up EMACS_INT/int usage in doc.c and doprnt.c.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 110512
diff changeset
2788 extern EMACS_INT doprnt (char *, int, const char *, const char *, va_list);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2789
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2790 /* Defined in lread.c */
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2791 extern Lisp_Object Vafter_load_alist;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2792 extern Lisp_Object Qvariable_documentation, Qstandard_input;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2793 extern Lisp_Object Qbackquote, Qcomma, Qcomma_at, Qcomma_dot, Qfunction;
21774
101cc2e8a4b7 Include initial_obarray from lread.c
Richard M. Stallman <rms@gnu.org>
parents: 21711
diff changeset
2794 extern Lisp_Object Vobarray, initial_obarray, Vstandard_input;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2795 extern int load_in_progress;
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2796 EXFUN (Fread, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2797 EXFUN (Fread_from_string, 3);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2798 EXFUN (Fintern, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2799 EXFUN (Fintern_soft, 2);
19119
e772b77b919e (Fload): Update declaration.
Richard M. Stallman <rms@gnu.org>
parents: 18732
diff changeset
2800 EXFUN (Fload, 5);
69171
269a00c6f882 EXFUN Fget_load_suffixes. Extern Vload_file_rep_suffixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 69157
diff changeset
2801 EXFUN (Fget_load_suffixes, 0);
72133
995e57f32746 * lisp.h: Update read-char, read-event, and read_filtered_event
Chong Yidong <cyd@stupidchicken.com>
parents: 72005
diff changeset
2802 EXFUN (Fread_char, 3);
995e57f32746 * lisp.h: Update read-char, read-event, and read_filtered_event
Chong Yidong <cyd@stupidchicken.com>
parents: 72005
diff changeset
2803 EXFUN (Fread_event, 3);
22418
340060628c47 (Feval_region): Accept 4 args.
Richard M. Stallman <rms@gnu.org>
parents: 22269
diff changeset
2804 EXFUN (Feval_region, 4);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2805 extern Lisp_Object check_obarray (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2806 extern Lisp_Object intern (const char *);
105872
89183b6f6e9d * process.c (socket_options): Make it const.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 105840
diff changeset
2807 extern Lisp_Object intern_c_string (const char *);
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2808 extern Lisp_Object make_symbol (const char *);
110514
8e5fcc5dd96b Clean up EMACS_INT/int in cmds.c, as well as USE_SAFE_ALLOCA.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 110513
diff changeset
2809 extern Lisp_Object oblookup (Lisp_Object, const char *, EMACS_INT, EMACS_INT);
2605
b3c605e9bb30 (LOADHIST_ATTACH): New macro.
Richard M. Stallman <rms@gnu.org>
parents: 2515
diff changeset
2810 #define LOADHIST_ATTACH(x) \
108161
514ebf69b289 Fix wrong-docstring problem introduced with hash-consing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108024
diff changeset
2811 do { \
514ebf69b289 Fix wrong-docstring problem introduced with hash-consing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108024
diff changeset
2812 if (initialized) Vcurrent_load_list = Fcons (x, Vcurrent_load_list); \
514ebf69b289 Fix wrong-docstring problem introduced with hash-consing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 108024
diff changeset
2813 } while (0)
2605
b3c605e9bb30 (LOADHIST_ATTACH): New macro.
Richard M. Stallman <rms@gnu.org>
parents: 2515
diff changeset
2814 extern Lisp_Object Vcurrent_load_list;
69171
269a00c6f882 EXFUN Fget_load_suffixes. Extern Vload_file_rep_suffixes.
Luc Teirlinck <teirllm@auburn.edu>
parents: 69157
diff changeset
2815 extern Lisp_Object Vload_history, Vload_suffixes, Vload_file_rep_suffixes;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2816 extern int openp (Lisp_Object, Lisp_Object, Lisp_Object,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2817 Lisp_Object *, Lisp_Object);
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2818 extern int isfloat_string (const char *, int);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2819 extern void map_obarray (Lisp_Object, void (*) (Lisp_Object, Lisp_Object),
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2820 Lisp_Object);
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2821 extern void dir_warning (const char *, Lisp_Object);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2822 extern void close_load_descs (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2823 extern void init_obarray (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2824 extern void init_lread (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2825 extern void syms_of_lread (void);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2826
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2827 /* Defined in eval.c */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2828 extern Lisp_Object Qautoload, Qexit, Qinteractive, Qcommandp, Qdefun, Qmacro;
381
0673e72f6c8c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 377
diff changeset
2829 extern Lisp_Object Vinhibit_quit, Qinhibit_quit, Vquit_flag;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2830 extern Lisp_Object Vautoload_queue;
8995
2281d87b7c91 (Vdebug_on_error): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 8912
diff changeset
2831 extern Lisp_Object Vdebug_on_error;
30072
da80009c3957 (Vsignaling_function): External declaration.
Gerd Moellmann <gerd@gnu.org>
parents: 29978
diff changeset
2832 extern Lisp_Object Vsignaling_function;
30081
60dfd5c7304c (handling_signal): External declaration.
Gerd Moellmann <gerd@gnu.org>
parents: 30072
diff changeset
2833 extern int handling_signal;
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2834 extern int debug_on_next_call;
30072
da80009c3957 (Vsignaling_function): External declaration.
Gerd Moellmann <gerd@gnu.org>
parents: 29978
diff changeset
2835
12731
cac1b80e43be Declare hook running functions.
Simon Marshall <simon@gnu.org>
parents: 12653
diff changeset
2836 /* 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
2837 The calling convention:
cac1b80e43be Declare hook running functions.
Simon Marshall <simon@gnu.org>
parents: 12653
diff changeset
2838
6216
9f7708f75f17 (ARRAY_MARK_FLAG): Define here.
Richard M. Stallman <rms@gnu.org>
parents: 6131
diff changeset
2839 if (!NILP (Vrun_hooks))
12731
cac1b80e43be Declare hook running functions.
Simon Marshall <simon@gnu.org>
parents: 12653
diff changeset
2840 call1 (Vrun_hooks, Qmy_funny_hook);
cac1b80e43be Declare hook running functions.
Simon Marshall <simon@gnu.org>
parents: 12653
diff changeset
2841
cac1b80e43be Declare hook running functions.
Simon Marshall <simon@gnu.org>
parents: 12653
diff changeset
2842 should no longer be used. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2843 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
2844 EXFUN (Frun_hooks, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2845 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
2846 EXFUN (Frun_hook_with_args_until_failure, MANY);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2847 extern void run_hook_with_args_2 (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
2848 EXFUN (Fprogn, UNEVALLED);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2849 EXFUN (Finteractive_p, 0);
31833
12c10704f00c (wrong_type_argument, Fthrow, Fsignal, error): Declare
Gerd Moellmann <gerd@gnu.org>
parents: 31447
diff changeset
2850 EXFUN (Fthrow, 2) NO_RETURN;
32065
4f8ce7eb45a5 (wrong_type_argument): Remove NO_RETURN, the function can
Gerd Moellmann <gerd@gnu.org>
parents: 31991
diff changeset
2851 EXFUN (Fsignal, 2);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2852 extern void xsignal (Lisp_Object, Lisp_Object) NO_RETURN;
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2853 extern void xsignal0 (Lisp_Object) NO_RETURN;
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2854 extern void xsignal1 (Lisp_Object, Lisp_Object) NO_RETURN;
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2855 extern void xsignal2 (Lisp_Object, Lisp_Object, Lisp_Object) NO_RETURN;
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2856 extern void xsignal3 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object) NO_RETURN;
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2857 extern void signal_error (const char *, Lisp_Object) NO_RETURN;
44940
2686a6ef3d19 (Fcommandp): Declare new arg.
Richard M. Stallman <rms@gnu.org>
parents: 44522
diff changeset
2858 EXFUN (Fcommandp, 2);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2859 EXFUN (Feval, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2860 EXFUN (Fapply, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2861 EXFUN (Ffuncall, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2862 EXFUN (Fbacktrace, 0);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2863 extern Lisp_Object apply1 (Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2864 extern Lisp_Object call0 (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2865 extern Lisp_Object call1 (Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2866 extern Lisp_Object call2 (Lisp_Object, Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2867 extern Lisp_Object call3 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2868 extern Lisp_Object call4 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2869 extern Lisp_Object call5 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2870 extern Lisp_Object call6 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2871 extern Lisp_Object call7 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, 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
2872 EXFUN (Fdo_auto_save, 2);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2873 extern Lisp_Object internal_catch (Lisp_Object, Lisp_Object (*) (Lisp_Object), Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2874 extern Lisp_Object internal_lisp_condition_case (Lisp_Object, Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2875 extern Lisp_Object internal_condition_case (Lisp_Object (*) (void), Lisp_Object, Lisp_Object (*) (Lisp_Object));
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2876 extern Lisp_Object internal_condition_case_1 (Lisp_Object (*) (Lisp_Object), Lisp_Object, Lisp_Object, Lisp_Object (*) (Lisp_Object));
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2877 extern Lisp_Object internal_condition_case_2 (Lisp_Object (*) (Lisp_Object, Lisp_Object), Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object (*) (Lisp_Object));
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2878 extern Lisp_Object internal_condition_case_n (Lisp_Object (*) (int, Lisp_Object *), int, Lisp_Object *, Lisp_Object, Lisp_Object (*) (Lisp_Object));
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2879 extern void specbind (Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2880 extern void record_unwind_protect (Lisp_Object (*) (Lisp_Object), Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2881 extern Lisp_Object unbind_to (int, Lisp_Object);
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2882 extern void error (const char *, ...) NO_RETURN;
109375
3e07e13fe30a Convert maybe_fatal to standard C.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109320
diff changeset
2883 extern void verror (const char *, va_list) NO_RETURN;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2884 extern void do_autoload (Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2885 extern Lisp_Object un_autoload (Lisp_Object);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2886 EXFUN (Ffetch_bytecode, 1);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2887 extern void init_eval_once (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2888 extern Lisp_Object safe_call (int, Lisp_Object *);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2889 extern Lisp_Object safe_call1 (Lisp_Object, Lisp_Object);
93369
ed10c3092847 * keyboard.c (pending_funcalls): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93032
diff changeset
2890 extern Lisp_Object safe_call2 (Lisp_Object, Lisp_Object, Lisp_Object);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2891 extern void init_eval (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2892 extern void syms_of_eval (void);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2893
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2894 /* Defined in editfns.c */
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2895 extern Lisp_Object last_nonmenu_event;
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2896 extern Lisp_Object Qfield;
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2897 extern Lisp_Object Vinhibit_field_text_motion;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
2898 extern Lisp_Object Vsystem_name;
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2899 extern Lisp_Object Vuser_login_name;
25353
fa9f34ec4151 Add function prototypes.
Gerd Moellmann <gerd@gnu.org>
parents: 25252
diff changeset
2900 EXFUN (Fcurrent_message, 0);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2901 EXFUN (Fgoto_char, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2902 EXFUN (Fpoint_max_marker, 0);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2903 EXFUN (Fpoint, 0);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2904 EXFUN (Fpoint_marker, 0);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2905 EXFUN (Fline_beginning_position, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2906 EXFUN (Fline_end_position, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2907 EXFUN (Ffollowing_char, 0);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2908 EXFUN (Fprevious_char, 0);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2909 EXFUN (Fchar_after, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2910 EXFUN (Finsert, MANY);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2911 EXFUN (Finsert_char, 3);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2912 extern void insert1 (Lisp_Object);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2913 EXFUN (Feolp, 0);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2914 EXFUN (Feobp, 0);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2915 EXFUN (Fbolp, 0);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2916 EXFUN (Fbobp, 0);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2917 EXFUN (Fformat, MANY);
25017
4a142fb92f94 (P_): Moved to top of file.
Gerd Moellmann <gerd@gnu.org>
parents: 23984
diff changeset
2918 EXFUN (Fmessage, MANY);
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2919 extern Lisp_Object format2 (const char *, Lisp_Object, Lisp_Object);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2920 EXFUN (Fbuffer_substring, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2921 EXFUN (Fbuffer_string, 0);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2922 extern Lisp_Object save_excursion_save (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2923 extern Lisp_Object save_restriction_save (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2924 extern Lisp_Object save_excursion_restore (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2925 extern Lisp_Object save_restriction_restore (Lisp_Object);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2926 EXFUN (Fchar_to_string, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2927 EXFUN (Fdelete_region, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2928 EXFUN (Fnarrow_to_region, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2929 EXFUN (Fwiden, 0);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2930 EXFUN (Fuser_login_name, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2931 EXFUN (Fsystem_name, 0);
25450
b5c133b3bfa0 Add declarations for some functions.
Andreas Schwab <schwab@suse.de>
parents: 25421
diff changeset
2932 EXFUN (Fcurrent_time, 0);
110512
ba79df773e8d Fix last changes in editfns.c and intervals.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110511
diff changeset
2933 extern EMACS_INT clip_to_bounds (EMACS_INT, EMACS_INT, EMACS_INT);
110480
5290c80fda43 Fix some uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110314
diff changeset
2934 extern Lisp_Object make_buffer_string (EMACS_INT, EMACS_INT, int);
5290c80fda43 Fix some uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110314
diff changeset
2935 extern Lisp_Object make_buffer_string_both (EMACS_INT, EMACS_INT, EMACS_INT,
5290c80fda43 Fix some uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110314
diff changeset
2936 EMACS_INT, int);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2937 extern void init_editfns (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2938 extern void syms_of_editfns (void);
30440
a438686586dd (Fconstrain_to_field): Update external declaration.
Miles Bader <miles@gnu.org>
parents: 30322
diff changeset
2939 EXFUN (Fconstrain_to_field, 5);
41067
2031344d2205 (Ffield_beginning, Ffield_end): Update EXFUN decl.
Miles Bader <miles@gnu.org>
parents: 40727
diff changeset
2940 EXFUN (Ffield_end, 3);
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
2941 extern void set_time_zone_rule (const char *);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2942
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
2943 /* Defined in buffer.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2944 extern int mouse_face_overlay_overlaps (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2945 extern void nsberror (Lisp_Object) NO_RETURN;
25353
fa9f34ec4151 Add function prototypes.
Gerd Moellmann <gerd@gnu.org>
parents: 25252
diff changeset
2946 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
2947 EXFUN (Foverlay_start, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2948 EXFUN (Foverlay_end, 1);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2949 extern void adjust_overlays_for_insert (EMACS_INT, EMACS_INT);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2950 extern void adjust_overlays_for_delete (EMACS_INT, EMACS_INT);
110545
6ae8bab9b79a Fix int/EMACS_INT use in buffer.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110543
diff changeset
2951 extern void fix_start_end_in_overlays (EMACS_INT, EMACS_INT);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2952 extern void report_overlay_modification (Lisp_Object, Lisp_Object, int,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2953 Lisp_Object, Lisp_Object, Lisp_Object);
110545
6ae8bab9b79a Fix int/EMACS_INT use in buffer.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110543
diff changeset
2954 extern int overlay_touches_p (EMACS_INT);
3539
a9b1e2a5523b Don't declare malloc or realloc.
Richard M. Stallman <rms@gnu.org>
parents: 3324
diff changeset
2955 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
2956 EXFUN (Fget_buffer, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2957 EXFUN (Fget_buffer_create, 1);
89439
bc52ad30b028 (Fgenerate_new_buffer_name): EXFUN it.
Kenichi Handa <handa@m17n.org>
parents: 89058
diff changeset
2958 EXFUN (Fgenerate_new_buffer_name, 2);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2959 EXFUN (Fset_buffer, 1);
112023
ac49e05bfcf2 Remove unused declarations
Andreas Schwab <schwab@linux-m68k.org>
parents: 111815
diff changeset
2960 extern Lisp_Object set_buffer_if_live (Lisp_Object);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2961 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
2962 EXFUN (Fcurrent_buffer, 0);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2963 EXFUN (Fswitch_to_buffer, 2);
22190
54a0e89d2a48 (frame_buffer_predicate, frame_buffer_list)
Richard M. Stallman <rms@gnu.org>
parents: 22123
diff changeset
2964 EXFUN (Fother_buffer, 3);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2965 EXFUN (Foverlay_get, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2966 EXFUN (Fbuffer_modified_p, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2967 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
2968 EXFUN (Fkill_buffer, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2969 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
2970 EXFUN (Fbuffer_enable_undo, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2971 EXFUN (Ferase_buffer, 0);
2780
cfe7659bbc05 * lisp.h (Lisp_Overlay): New tag.
Jim Blandy <jimb@redhat.com>
parents: 2728
diff changeset
2972 extern Lisp_Object Qoverlayp;
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
2973 extern Lisp_Object Qpriority, Qwindow, Qevaporate, Qbefore_string, Qafter_string;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2974 extern Lisp_Object get_truename_buffer (Lisp_Object);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2975 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
2976 EXFUN (Fprevious_overlay_change, 1);
34154
88440ae23652 (Fmake_variable_buffer_local, Fbuffer_file_name): Declare.
Ken Raeburn <raeburn@raeburn.org>
parents: 33508
diff changeset
2977 EXFUN (Fbuffer_file_name, 1);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2978 extern void init_buffer_once (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2979 extern void init_buffer (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2980 extern void syms_of_buffer (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2981 extern void keys_of_buffer (void);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2982
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
2983 /* Defined in marker.c */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2984
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2985 EXFUN (Fmarker_position, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2986 EXFUN (Fmarker_buffer, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2987 EXFUN (Fcopy_marker, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
2988 EXFUN (Fset_marker, 3);
110511
5746a646bb03 Fix EMACS_INT/int conversion errors in marker.c.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 110507
diff changeset
2989 extern EMACS_INT marker_position (Lisp_Object);
5746a646bb03 Fix EMACS_INT/int conversion errors in marker.c.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 110507
diff changeset
2990 extern EMACS_INT marker_byte_position (Lisp_Object);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2991 extern void clear_charpos_cache (struct buffer *);
110511
5746a646bb03 Fix EMACS_INT/int conversion errors in marker.c.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 110507
diff changeset
2992 extern EMACS_INT charpos_to_bytepos (EMACS_INT);
5746a646bb03 Fix EMACS_INT/int conversion errors in marker.c.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 110507
diff changeset
2993 extern EMACS_INT buf_charpos_to_bytepos (struct buffer *, EMACS_INT);
5746a646bb03 Fix EMACS_INT/int conversion errors in marker.c.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 110507
diff changeset
2994 extern EMACS_INT buf_bytepos_to_charpos (struct buffer *, EMACS_INT);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2995 extern void unchain_marker (struct Lisp_Marker *marker);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2996 extern Lisp_Object set_marker_restricted (Lisp_Object, Lisp_Object, Lisp_Object);
110511
5746a646bb03 Fix EMACS_INT/int conversion errors in marker.c.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 110507
diff changeset
2997 extern Lisp_Object set_marker_both (Lisp_Object, Lisp_Object, EMACS_INT, EMACS_INT);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
2998 extern Lisp_Object set_marker_restricted_both (Lisp_Object, Lisp_Object,
110511
5746a646bb03 Fix EMACS_INT/int conversion errors in marker.c.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 110507
diff changeset
2999 EMACS_INT, EMACS_INT);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3000 extern void syms_of_marker (void);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3001
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3002 /* Defined in fileio.c */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3003
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3004 extern Lisp_Object Qfile_error;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3005 extern Lisp_Object Qfile_exists_p;
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3006 extern Lisp_Object Qfile_directory_p;
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3007 extern Lisp_Object Qinsert_file_contents;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3008 extern Lisp_Object Vauto_save_list_file_name;
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3009 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
3010 EXFUN (Ffile_name_as_directory, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3011 EXFUN (Fexpand_file_name, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3012 EXFUN (Ffile_name_nondirectory, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3013 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
3014 EXFUN (Ffile_symlink_p, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3015 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
3016 EXFUN (Ffile_exists_p, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3017 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
3018 EXFUN (Fdirectory_file_name, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3019 EXFUN (Ffile_name_directory, 1);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3020 extern Lisp_Object expand_and_dir_to_file (Lisp_Object, Lisp_Object);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3021 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
3022 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
3023 EXFUN (Ffile_directory_p, 1);
21038
9b33c6a5b4dc (Vnonascii_translate_table, Qcharset): New variable decls.
Richard M. Stallman <rms@gnu.org>
parents: 20723
diff changeset
3024 EXFUN (Fwrite_region, 7);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3025 EXFUN (Ffile_readable_p, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3026 EXFUN (Ffile_executable_p, 1);
45545
6b37dbf4d2a5 (Fread_file_name): Now has 6 args.
Kim F. Storm <storm@cua.dk>
parents: 45416
diff changeset
3027 EXFUN (Fread_file_name, 6);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3028 extern Lisp_Object close_file_unwind (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3029 extern Lisp_Object restore_point_unwind (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3030 extern void report_file_error (const char *, Lisp_Object) NO_RETURN;
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3031 extern int internal_delete_file (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3032 extern void syms_of_fileio (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3033 extern Lisp_Object make_temp_name (Lisp_Object, int);
55487
3834fb45a740 Declare Fmake_symbolic_link.
Andreas Schwab <schwab@suse.de>
parents: 55157
diff changeset
3034 EXFUN (Fmake_symbolic_link, 3);
97232
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
3035 extern Lisp_Object Qdelete_file;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3036
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3037 /* Defined in abbrev.c */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3038
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3039 extern void syms_of_abbrev (void);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3040
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3041 /* Defined in search.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3042 extern void shrink_regexp_cache (void);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3043 EXFUN (Fstring_match, 3);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3044 extern void restore_search_regs (void);
63146
7dced3c64549 (Fmatch_data, Fset_match_data): Fix EXFUN.
Kim F. Storm <storm@cua.dk>
parents: 62660
diff changeset
3045 EXFUN (Fmatch_data, 3);
7dced3c64549 (Fmatch_data, Fset_match_data): Fix EXFUN.
Kim F. Storm <storm@cua.dk>
parents: 62660
diff changeset
3046 EXFUN (Fset_match_data, 2);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3047 EXFUN (Fmatch_beginning, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3048 EXFUN (Fmatch_end, 1);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3049 extern void record_unwind_save_match_data (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3050 extern int fast_string_match (Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3051 extern int fast_c_string_match_ignore_case (Lisp_Object, const char *);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3052 extern int fast_string_match_ignore_case (Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3053 extern EMACS_INT fast_looking_at (Lisp_Object, EMACS_INT, EMACS_INT,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3054 EMACS_INT, EMACS_INT, Lisp_Object);
110507
875202ac5b45 Fix use of int instead of EMACS_INT in search.c and region-cache.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110506
diff changeset
3055 extern EMACS_INT scan_buffer (int, EMACS_INT, EMACS_INT, EMACS_INT,
875202ac5b45 Fix use of int instead of EMACS_INT in search.c and region-cache.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110506
diff changeset
3056 int *, int);
875202ac5b45 Fix use of int instead of EMACS_INT in search.c and region-cache.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110506
diff changeset
3057 extern EMACS_INT scan_newline (EMACS_INT, EMACS_INT, EMACS_INT, EMACS_INT,
875202ac5b45 Fix use of int instead of EMACS_INT in search.c and region-cache.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110506
diff changeset
3058 EMACS_INT, int);
875202ac5b45 Fix use of int instead of EMACS_INT in search.c and region-cache.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110506
diff changeset
3059 extern EMACS_INT find_next_newline (EMACS_INT, int);
875202ac5b45 Fix use of int instead of EMACS_INT in search.c and region-cache.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110506
diff changeset
3060 extern EMACS_INT find_next_newline_no_quit (EMACS_INT, EMACS_INT);
875202ac5b45 Fix use of int instead of EMACS_INT in search.c and region-cache.c.
Eli Zaretskii <eliz@gnu.org>
parents: 110506
diff changeset
3061 extern EMACS_INT find_before_next_newline (EMACS_INT, EMACS_INT, EMACS_INT);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3062 extern void syms_of_search (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3063 extern void clear_regexp_cache (void);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3064
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3065 /* Defined in minibuf.c */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3066
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3067 extern Lisp_Object Qcompletion_ignore_case;
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3068 extern Lisp_Object Vcompletion_regexp_list;
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3069 extern Lisp_Object Vhistory_length;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3070 extern Lisp_Object Vminibuffer_list;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3071 extern Lisp_Object last_minibuf_string;
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3072 extern int completion_ignore_case;
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3073 extern int history_delete_duplicates;
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3074 extern int minibuffer_auto_raise;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3075 extern void choose_minibuf_frame (void);
19547
70d930b49bb4 (DEFUN_ARGS_8): New macro.
Kenichi Handa <handa@m17n.org>
parents: 19224
diff changeset
3076 EXFUN (Fcompleting_read, 8);
70929
10bd863bbc8a (Fread_from_minibuffer): Decrement number of args.
Juri Linkov <juri@jurta.org>
parents: 69959
diff changeset
3077 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
3078 EXFUN (Fread_variable, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3079 EXFUN (Fread_buffer, 3);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3080 EXFUN (Fread_minibuffer, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3081 EXFUN (Feval_minibuffer, 2);
19547
70d930b49bb4 (DEFUN_ARGS_8): New macro.
Kenichi Handa <handa@m17n.org>
parents: 19224
diff changeset
3082 EXFUN (Fread_string, 5);
94935
45602a11979b (enum pvec_type): New member PREV_FONT.
Kenichi Handa <handa@m17n.org>
parents: 94121
diff changeset
3083 EXFUN (Fassoc_string, 3);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3084 extern Lisp_Object get_minibuffer (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3085 extern void init_minibuf_once (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3086 extern void syms_of_minibuf (void);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3087
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3088 /* Defined in callint.c */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3089
12114
437964ecfc70 (current_prefix_partial): Deleted.
Karl Heuer <kwzh@gnu.org>
parents: 12093
diff changeset
3090 extern Lisp_Object Qminus, Qplus, Vcurrent_prefix_arg;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3091 extern Lisp_Object Qwhen;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3092 extern Lisp_Object Vcommand_history;
109554
b22b609d1fa7 * src/lisp.h (Fkill_emacs): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109548
diff changeset
3093 extern Lisp_Object Vmark_even_if_inactive;
15695
597fb46cb2fd (Qmouse_leave_buffer_hook): Declare it here.
Karl Heuer <kwzh@gnu.org>
parents: 15090
diff changeset
3094 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
3095 EXFUN (Fprefix_numeric_value, 1);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3096 extern void syms_of_callint (void);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3097
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3098 /* Defined in casefiddle.c */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3099
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3100 extern Lisp_Object Qidentity;
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3101 EXFUN (Fdowncase, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3102 EXFUN (Fupcase, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3103 EXFUN (Fupcase_region, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3104 EXFUN (Fupcase_initials, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3105 EXFUN (Fupcase_initials_region, 2);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3106 extern void syms_of_casefiddle (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3107 extern void keys_of_casefiddle (void);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3108
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3109 /* Defined in casetab.c */
16133
36566aa94b49 Add many declarations.
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
3110
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3111 EXFUN (Fset_case_table, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3112 EXFUN (Fset_standard_case_table, 1);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3113 extern void init_casetab_once (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3114 extern void syms_of_casetab (void);
16133
36566aa94b49 Add many declarations.
Richard M. Stallman <rms@gnu.org>
parents: 16051
diff changeset
3115
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3116 /* Defined in keyboard.c */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3117
37188
da91f955f74c (echoing, echo_message_buffer, cancel_echoing): Declare.
Gerd Moellmann <gerd@gnu.org>
parents: 37042
diff changeset
3118 extern int echoing;
da91f955f74c (echoing, echo_message_buffer, cancel_echoing): Declare.
Gerd Moellmann <gerd@gnu.org>
parents: 37042
diff changeset
3119 extern Lisp_Object echo_message_buffer;
39451
f9d098bd1299 (echo_kboard): Declare extern.
Gerd Moellmann <gerd@gnu.org>
parents: 39245
diff changeset
3120 extern struct kboard *echo_kboard;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3121 extern void cancel_echoing (void);
29940
3a3b1bda631d (QCfilter): External declaration.
Gerd Moellmann <gerd@gnu.org>
parents: 29925
diff changeset
3122 extern Lisp_Object Qdisabled, QCfilter;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3123 extern Lisp_Object Qabove_handle, Qhandle, Qbelow_handle;
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3124 extern Lisp_Object Qup, Qdown, Qbottom, Qend_scroll;
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3125 extern Lisp_Object Qtop, Qratio;
111629
6c24c5598611 Move declarations from .c files to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 111512
diff changeset
3126 extern Lisp_Object Vsaved_region_selection;
6c24c5598611 Move declarations from .c files to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 111512
diff changeset
3127 extern Lisp_Object Vselect_active_regions;
17871
1c5753313c4e (Vtty_erase_char): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 17714
diff changeset
3128 extern Lisp_Object Vtty_erase_char, Vhelp_form, Vtop_level;
58932
ce2e33a2adae (QUIT): Check for Vthrow_on_input.
Richard M. Stallman <rms@gnu.org>
parents: 58818
diff changeset
3129 extern Lisp_Object Vthrow_on_input;
30723
882e52f9e2bd (input_pending): External declaration.
Gerd Moellmann <gerd@gnu.org>
parents: 30556
diff changeset
3130 extern int input_pending;
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3131 EXFUN (Fdiscard_input, 0);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3132 EXFUN (Frecursive_edit, 0);
109548
155f42db7e61 Mark functions as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109512
diff changeset
3133 EXFUN (Ftop_level, 0) NO_RETURN;
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3134 EXFUN (Fcommand_execute, 4);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3135 extern Lisp_Object menu_bar_items (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3136 extern Lisp_Object tool_bar_items (Lisp_Object, int *);
1990
c7d6c746fea6 Use the term `scroll bar', instead of `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1923
diff changeset
3137 extern Lisp_Object Qvertical_scroll_bar;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3138 extern void discard_mouse_events (void);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3139 EXFUN (Fevent_convert_list, 1);
22925
e89aad442cf7 (Fread_key_sequence): Update declaration.
Kenichi Handa <handa@m17n.org>
parents: 22791
diff changeset
3140 EXFUN (Fread_key_sequence, 5);
83417
fe870a866ce7 Don't let x_initialize break 8-bit input on ttys. (Reported by Joakim Verona.) Split `set-input-mode'.
Karoly Lorentey <lorentey@elte.hu>
parents: 83414
diff changeset
3141 EXFUN (Fset_input_interrupt_mode, 1);
20297
bf0a54297d95 Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents: 20123
diff changeset
3142 EXFUN (Fset_input_mode, 4);
93369
ed10c3092847 * keyboard.c (pending_funcalls): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 93032
diff changeset
3143 extern Lisp_Object pending_funcalls;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3144 extern int detect_input_pending (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3145 extern int detect_input_pending_ignore_squeezables (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3146 extern int detect_input_pending_run_timers (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3147 extern void safe_run_hooks (Lisp_Object);
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
3148 extern void cmd_error_internal (Lisp_Object, const char *);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3149 extern Lisp_Object command_loop_1 (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3150 extern Lisp_Object recursive_edit_1 (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3151 extern void record_auto_save (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3152 extern void init_keyboard (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3153 extern void syms_of_keyboard (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3154 extern void keys_of_keyboard (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3155 extern char *push_key_description (unsigned int, char *, int);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3156
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3157
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3158 /* Defined in indent.c */
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3159 EXFUN (Fvertical_motion, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3160 EXFUN (Findent_to, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3161 EXFUN (Fmove_to_column, 2);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3162 extern double current_column (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3163 extern void invalidate_current_column (void);
110554
e49fcbdc458f Fix int/EMACS_INT in eval.c and indent.c, correct previous changes.
Eli Zaretskii <eliz@gnu.org>
parents: 110548
diff changeset
3164 extern int indented_beyond_p (EMACS_INT, EMACS_INT, double);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3165 extern void syms_of_indent (void);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3166
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3167 /* Defined in frame.c */
55583
21f88361795c Various fixes to support USE_LSB_TAG with carbon emacs. Mostly fixing
Steven Tamm <steventamm@mac.com>
parents: 55570
diff changeset
3168 #ifdef HAVE_WINDOW_SYSTEM
21f88361795c Various fixes to support USE_LSB_TAG with carbon emacs. Mostly fixing
Steven Tamm <steventamm@mac.com>
parents: 55570
diff changeset
3169 extern Lisp_Object Vx_resource_name;
21f88361795c Various fixes to support USE_LSB_TAG with carbon emacs. Mostly fixing
Steven Tamm <steventamm@mac.com>
parents: 55570
diff changeset
3170 extern Lisp_Object Vx_resource_class;
21f88361795c Various fixes to support USE_LSB_TAG with carbon emacs. Mostly fixing
Steven Tamm <steventamm@mac.com>
parents: 55570
diff changeset
3171 #endif /* HAVE_WINDOW_SYSTEM */
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3172 extern Lisp_Object Qonly;
6243
25d0943a4f4e (Qvisible): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 6216
diff changeset
3173 extern Lisp_Object Qvisible;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3174 extern void store_frame_param (struct frame *, Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3175 extern void store_in_alist (Lisp_Object *, Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3176 extern Lisp_Object do_switch_frame (Lisp_Object, int, int, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3177 extern Lisp_Object get_frame_param (struct frame *, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3178 extern Lisp_Object frame_buffer_predicate (Lisp_Object);
99321
91206eb7321f (do_switch_frame, Fselect_frame)
Martin Rudalics <rudalics@gmx.at>
parents: 99182
diff changeset
3179 EXFUN (Fselect_frame, 2);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3180 EXFUN (Fselected_frame, 0);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3181 EXFUN (Fwindow_frame, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3182 EXFUN (Fframe_root_window, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3183 EXFUN (Fframe_first_window, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3184 EXFUN (Fmake_frame_visible, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3185 EXFUN (Ficonify_frame, 1);
36445
904a83f1b00b * lisp.h (Fframe_parameter): Declare.
Ken Raeburn <raeburn@raeburn.org>
parents: 36430
diff changeset
3186 EXFUN (Fframe_parameter, 2);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3187 EXFUN (Fmodify_frame_parameters, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3188 EXFUN (Fraise_frame, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3189 EXFUN (Fredirect_frame_focus, 2);
99321
91206eb7321f (do_switch_frame, Fselect_frame)
Martin Rudalics <rudalics@gmx.at>
parents: 99182
diff changeset
3190 EXFUN (Fset_frame_selected_window, 3);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3191 extern Lisp_Object frame_buffer_list (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3192 extern void frames_discard_buffer (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3193 extern void set_frame_buffer_list (Lisp_Object, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3194 extern void syms_of_frame (void);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3195
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3196 /* Defined in emacs.c */
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3197 extern char **initial_argv;
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3198 extern int initial_argc;
109554
b22b609d1fa7 * src/lisp.h (Fkill_emacs): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109548
diff changeset
3199 #if defined(HAVE_X_WINDOWS) || defined(HAVE_NS)
b22b609d1fa7 * src/lisp.h (Fkill_emacs): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109548
diff changeset
3200 extern int display_arg;
b22b609d1fa7 * src/lisp.h (Fkill_emacs): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109548
diff changeset
3201 #endif
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
3202 extern Lisp_Object decode_env_path (const char *, const char *);
4528
5622149e7f75 (Vinvocation_directory): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 4139
diff changeset
3203 extern Lisp_Object Vinvocation_name, Vinvocation_directory;
98546
dae1f13ca423 (Vbefore_init_time, Vafter_init_time): Declare.
Chong Yidong <cyd@stupidchicken.com>
parents: 98327
diff changeset
3204 extern Lisp_Object Vbefore_init_time, Vafter_init_time;
81269
5e310b8be81d (STRING_SET_UNIBYTE): Return the canonical empty unibyte string, if appropriate.
Juanma Barranquero <lekktu@gmail.com>
parents: 80985
diff changeset
3205 extern Lisp_Object Vinstallation_directory;
5e310b8be81d (STRING_SET_UNIBYTE): Return the canonical empty unibyte string, if appropriate.
Juanma Barranquero <lekktu@gmail.com>
parents: 80985
diff changeset
3206 extern Lisp_Object empty_unibyte_string, empty_multibyte_string;
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3207 extern Lisp_Object Qfile_name_handler_alist;
110967
188673195616 Rename `image-library-alist' to `dynamic-library-alist'.
Juanma Barranquero <lekktu@gmail.com>
parents: 110645
diff changeset
3208 extern Lisp_Object Vdynamic_library_alist;
109666
8fc5e1925ae2 * src/lisp.h (fatal_error_signal, emacs_root_dir): Add declaration.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109653
diff changeset
3209 extern void (*fatal_error_signal_hook) (void);
109554
b22b609d1fa7 * src/lisp.h (Fkill_emacs): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109548
diff changeset
3210 EXFUN (Fkill_emacs, 1) NO_RETURN;
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25818
diff changeset
3211 #if HAVE_SETLOCALE
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3212 void fixup_locale (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3213 void synchronize_system_messages_locale (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3214 void synchronize_system_time_locale (void);
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25818
diff changeset
3215 #else
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 25818
diff changeset
3216 #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
3217 #define fixup_locale()
26526
b7438760079b * callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents: 26479
diff changeset
3218 #define synchronize_system_messages_locale()
b7438760079b * callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents: 26479
diff changeset
3219 #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
3220 #endif
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3221 void shut_down_emacs (int, int, Lisp_Object);
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3222 /* Nonzero means don't do interactive redisplay and don't change tty modes. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3223 extern int noninteractive;
99182
c1511154e8c2 * emacs.c (daemon_pipe): Make non-static.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 98983
diff changeset
3224
105069
4cbb223d0b1c The --quick command line option now ignores X resources and Registry settings.
Juanma Barranquero <lekktu@gmail.com>
parents: 104622
diff changeset
3225 /* Nonzero means don't load X resources or Windows Registry settings. */
4cbb223d0b1c The --quick command line option now ignores X resources and Registry settings.
Juanma Barranquero <lekktu@gmail.com>
parents: 104622
diff changeset
3226 extern int inhibit_x_resources;
4cbb223d0b1c The --quick command line option now ignores X resources and Registry settings.
Juanma Barranquero <lekktu@gmail.com>
parents: 104622
diff changeset
3227
99182
c1511154e8c2 * emacs.c (daemon_pipe): Make non-static.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 98983
diff changeset
3228 /* Pipe used to send exit notification to the daemon parent at
c1511154e8c2 * emacs.c (daemon_pipe): Make non-static.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 98983
diff changeset
3229 startup. */
c1511154e8c2 * emacs.c (daemon_pipe): Make non-static.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 98983
diff changeset
3230 extern int daemon_pipe[2];
c1511154e8c2 * emacs.c (daemon_pipe): Make non-static.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 98983
diff changeset
3231 #define IS_DAEMON (daemon_pipe[1] != 0)
c1511154e8c2 * emacs.c (daemon_pipe): Make non-static.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 98983
diff changeset
3232
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3233 /* Nonzero means don't do use window-system-specific display code. */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3234 extern int inhibit_window_system;
10316
272f15eddaca (enum Lisp_Type): Delete Lisp_Buffer.
Richard M. Stallman <rms@gnu.org>
parents: 10292
diff changeset
3235 /* 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
3236 extern int running_asynch_code;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3237
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3238 /* Defined in process.c */
109554
b22b609d1fa7 * src/lisp.h (Fkill_emacs): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109548
diff changeset
3239 extern Lisp_Object QCtype, Qlocal;
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3240 EXFUN (Fget_process, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3241 EXFUN (Fget_buffer_process, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3242 EXFUN (Fprocess_status, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3243 EXFUN (Fkill_process, 2);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3244 EXFUN (Fwaiting_for_user_input_p, 0);
10727
7720faec5ca7 (Qprocessp): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 10675
diff changeset
3245 extern Lisp_Object Qprocessp;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3246 extern void kill_buffer_processes (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3247 extern int wait_reading_process_output (int, int, int, int,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3248 Lisp_Object,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3249 struct Lisp_Process *,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3250 int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3251 extern void add_keyboard_wait_descriptor (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3252 extern void delete_keyboard_wait_descriptor (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3253 extern void add_gpm_wait_descriptor (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3254 extern void delete_gpm_wait_descriptor (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3255 extern void close_process_descs (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3256 extern void init_process (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3257 extern void syms_of_process (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3258 extern void setup_process_coding_systems (Lisp_Object);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3259
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3260 /* Defined in callproc.c */
39810
4b565579e4f5 (Vload_suffixes, Vexec_suffixes): Declare.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39804
diff changeset
3261 extern Lisp_Object Vexec_path, Vexec_suffixes,
4b565579e4f5 (Vload_suffixes, Vexec_suffixes): Declare.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39804
diff changeset
3262 Vexec_directory, Vdata_directory;
6029
897ffebd97ea New variable doc_directory.
Karl Heuer <kwzh@gnu.org>
parents: 5791
diff changeset
3263 extern Lisp_Object Vdoc_directory;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3264 extern Lisp_Object Vshell_file_name;
25450
b5c133b3bfa0 Add declarations for some functions.
Andreas Schwab <schwab@suse.de>
parents: 25421
diff changeset
3265 EXFUN (Fcall_process, MANY);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3266 extern int child_setup (int, int, int, char **, int, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3267 extern void init_callproc_1 (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3268 extern void init_callproc (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3269 extern void set_initial_environment (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3270 extern void syms_of_callproc (void);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3271
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3272 /* Defined in doc.c */
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3273 extern Lisp_Object Qfunction_documentation;
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3274 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
3275 EXFUN (Fsubstitute_command_keys, 1);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3276 EXFUN (Fdocumentation_property, 3);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3277 extern Lisp_Object read_doc_string (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3278 extern Lisp_Object get_doc_string (Lisp_Object, int, int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3279 extern void syms_of_doc (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3280 extern int read_bytecode_char (int);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3281
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3282 /* Defined in bytecode.c */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3283 extern Lisp_Object Qbytecode;
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3284 EXFUN (Fbyte_code, 3);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3285 extern void syms_of_bytecode (void);
26367
9f71d570068d Add prototypes for new functions in bytecode.c.
Gerd Moellmann <gerd@gnu.org>
parents: 26309
diff changeset
3286 extern struct byte_stack *byte_stack_list;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3287 extern void mark_byte_stack (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3288 extern void unmark_byte_stack (void);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3289
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3290 /* Defined in macros.c */
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3291 extern Lisp_Object Qexecute_kbd_macro;
46886
1bc111036f11 (Fexecute_kbd_macro): Update prototype.
Kim F. Storm <storm@cua.dk>
parents: 46866
diff changeset
3292 EXFUN (Fexecute_kbd_macro, 3);
49866
c1513decc2e5 (Fcancel_kbd_macro_events, Fstring_to_multibyte): Add
Andreas Schwab <schwab@suse.de>
parents: 49665
diff changeset
3293 EXFUN (Fcancel_kbd_macro_events, 0);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3294 extern void init_macros (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3295 extern void syms_of_macros (void);
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3296
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3297 /* Defined in undo.c */
109554
b22b609d1fa7 * src/lisp.h (Fkill_emacs): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109548
diff changeset
3298 extern Lisp_Object Qapply;
14665
7a50843d260f (Qinhibit_read_only): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 14473
diff changeset
3299 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
3300 EXFUN (Fundo_boundary, 0);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3301 extern void truncate_undo_list (struct buffer *);
110484
7ca55779eeef Fix some more uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110480
diff changeset
3302 extern void record_marker_adjustment (Lisp_Object, EMACS_INT);
7ca55779eeef Fix some more uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110480
diff changeset
3303 extern void record_insert (EMACS_INT, EMACS_INT);
7ca55779eeef Fix some more uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110480
diff changeset
3304 extern void record_delete (EMACS_INT, Lisp_Object);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3305 extern void record_first_change (void);
110484
7ca55779eeef Fix some more uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110480
diff changeset
3306 extern void record_change (EMACS_INT, EMACS_INT);
7ca55779eeef Fix some more uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110480
diff changeset
3307 extern void record_property_change (EMACS_INT, EMACS_INT,
7ca55779eeef Fix some more uses of int instead of EMACS_INT.
Eli Zaretskii <eliz@gnu.org>
parents: 110480
diff changeset
3308 Lisp_Object, Lisp_Object,
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3309 Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3310 extern void syms_of_undo (void);
59070
0927fb5e3920 (Vundo_outer_limit): Fix decl.
Richard M. Stallman <rms@gnu.org>
parents: 59049
diff changeset
3311 extern Lisp_Object Vundo_outer_limit;
1518
eda3ace74d74 * lisp.h (Fdefault_boundp, make_float, Ffloat, Fnth, Fcopy_alist,
Jim Blandy <jimb@redhat.com>
parents: 1442
diff changeset
3312
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3313 /* Defined in textprop.c */
51858
bf6232373c39 (VALBITS): Define in terms of GCTYPEBITS.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51833
diff changeset
3314 extern Lisp_Object Qfont, Qmouse_face;
4079
c1b16f1167d4 (Qinsert_in_front_hooks, Qinsert_behind_hooks): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 4067
diff changeset
3315 extern Lisp_Object Qinsert_in_front_hooks, Qinsert_behind_hooks;
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3316 extern Lisp_Object Qfront_sticky, Qrear_nonsticky;
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3317 extern Lisp_Object Qminibuffer_prompt;
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3318
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3319 EXFUN (Fnext_single_property_change, 4);
30322
6dd0219378f5 (Fnext_single_char_property_change): Add prototype.
Gerd Moellmann <gerd@gnu.org>
parents: 30218
diff changeset
3320 EXFUN (Fnext_single_char_property_change, 4);
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3321 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
3322 EXFUN (Fget_text_property, 3);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3323 EXFUN (Fput_text_property, 5);
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3324 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
3325 EXFUN (Fnext_char_property_change, 2);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3326 extern void report_interval_modification (Lisp_Object, Lisp_Object);
4067
379b03502e48 (Qinsert_before_hooks, Qinsert_after_hooks): Declared.
Richard M. Stallman <rms@gnu.org>
parents: 4035
diff changeset
3327
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3328 /* Defined in menu.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3329 extern void syms_of_menu (void);
95650
4be5569ac684 Declare syms_of_menu.
Chong Yidong <cyd@stupidchicken.com>
parents: 95590
diff changeset
3330
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3331 /* Defined in xmenu.c */
18732
a0663e413622 (EXFUN, P_): New definitions. Use them to declare
Richard M. Stallman <rms@gnu.org>
parents: 18613
diff changeset
3332 EXFUN (Fx_popup_menu, 2);
62660
a3b4d6c789db Fx_popup_dialog can have three arguments.
Nick Roberts <nickrob@snap.net.nz>
parents: 61724
diff changeset
3333 EXFUN (Fx_popup_dialog, 3);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3334 extern void syms_of_xmenu (void);
20297
bf0a54297d95 Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents: 20123
diff changeset
3335
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3336 /* Defined in termchar.h */
82989
f3845715a5f6 Separate frame-local, tty-dependent parameters from tty-local parameters.
Karoly Lorentey <lorentey@elte.hu>
parents: 53341
diff changeset
3337 struct tty_display_info;
f3845715a5f6 Separate frame-local, tty-dependent parameters from tty-local parameters.
Karoly Lorentey <lorentey@elte.hu>
parents: 53341
diff changeset
3338
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3339 /* Defined in termhooks.h */
83431
76396de7f50a Rename `struct device' to `struct terminal'. Rename some terminal-related functions similarly.
Karoly Lorentey <lorentey@elte.hu>
parents: 83427
diff changeset
3340 struct terminal;
53226
dd3018b4785b Implemented multiple tty support.
Karoly Lorentey <lorentey@elte.hu>
parents: 53111
diff changeset
3341
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3342 /* Defined in sysdep.c */
65424
e5d4c2f48bb3 Fix last change.
Eli Zaretskii <eliz@gnu.org>
parents: 65420
diff changeset
3343 #ifndef HAVE_GET_CURRENT_DIR_NAME
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3344 extern char *get_current_dir_name (void);
65420
23daa927d64c (get_current_dir_name) [!HAVE_GET_CURRENT_DIR_NAME]: Add prototype.
Eli Zaretskii <eliz@gnu.org>
parents: 64981
diff changeset
3345 #endif
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3346 extern void stuff_char (char c);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3347 extern void init_sigio (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3348 extern void sys_subshell (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3349 extern void sys_suspend (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3350 extern void discard_tty_input (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3351 extern void init_sys_modes (struct tty_display_info *);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3352 extern void reset_sys_modes (struct tty_display_info *);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3353 extern void init_all_sys_modes (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3354 extern void reset_all_sys_modes (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3355 extern void wait_for_termination (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3356 extern void flush_pending_output (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3357 extern void child_setup_tty (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3358 extern void setup_pty (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3359 extern int set_window_size (int, int, int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3360 extern void create_process (Lisp_Object, char **, Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3361 extern int emacs_open (const char *, int, int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3362 extern int emacs_close (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3363 extern int emacs_read (int, char *, unsigned int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3364 extern int emacs_write (int, const char *, unsigned int);
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109154
diff changeset
3365 #ifndef HAVE_MEMSET
109512
cd770c24eabe * lisp.h: Remove leftover P_.
Andreas Schwab <schwab@linux-m68k.org>
parents: 109509
diff changeset
3366 extern void *memset (void *, int, size_t);
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109154
diff changeset
3367 #endif
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109154
diff changeset
3368 #ifndef HAVE_MEMCPY
109512
cd770c24eabe * lisp.h: Remove leftover P_.
Andreas Schwab <schwab@linux-m68k.org>
parents: 109509
diff changeset
3369 extern void *memcpy (void *, void *, size_t);
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109154
diff changeset
3370 #endif
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109154
diff changeset
3371 #ifndef HAVE_MEMMOVE
109512
cd770c24eabe * lisp.h: Remove leftover P_.
Andreas Schwab <schwab@linux-m68k.org>
parents: 109509
diff changeset
3372 extern void *memmove (void *, void *, size_t);
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109154
diff changeset
3373 #endif
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109154
diff changeset
3374 #ifndef HAVE_MEMCMP
109512
cd770c24eabe * lisp.h: Remove leftover P_.
Andreas Schwab <schwab@linux-m68k.org>
parents: 109509
diff changeset
3375 extern int memcmp (void *, void *, size_t);
109165
750db9f3e6d8 Replace bcopy, bzero, bcmp by memcpy, memmove, memset, memcmp
Andreas Schwab <schwab@linux-m68k.org>
parents: 109154
diff changeset
3376 #endif
20297
bf0a54297d95 Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents: 20123
diff changeset
3377
108933
b465aa3255ed Fix typos.
Juanma Barranquero <lekktu@gmail.com>
parents: 108361
diff changeset
3378 /* Defined in filelock.c */
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3379 extern Lisp_Object Vtemporary_file_directory;
20297
bf0a54297d95 Add more prototypes and declarations. Forward declare
Andreas Schwab <schwab@suse.de>
parents: 20123
diff changeset
3380 EXFUN (Funlock_buffer, 0);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3381 extern void unlock_all_files (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3382 extern void lock_file (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3383 extern void unlock_file (Lisp_Object);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3384 extern void unlock_buffer (struct buffer *);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3385 extern void syms_of_filelock (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3386 extern void init_filelock (void);
25748
6fddda6e635e Add prototype for uninterrupt_malloc, memory_warnings,
Gerd Moellmann <gerd@gnu.org>
parents: 25737
diff changeset
3387
6fddda6e635e Add prototype for uninterrupt_malloc, memory_warnings,
Gerd Moellmann <gerd@gnu.org>
parents: 25737
diff changeset
3388 /* Defined in sound.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3389 extern void syms_of_sound (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3390 extern void init_sound (void);
21931
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3391
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3392 /* Defined in category.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3393 extern void init_category_once (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3394 extern Lisp_Object char_category_set (int);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3395 extern void syms_of_category (void);
21931
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3396
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3397 /* Defined in ccl.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3398 extern void syms_of_ccl (void);
21931
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3399
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3400 /* Defined in dired.c */
53111
094f6b57ed09 (Qinteger): Added.
Lars Hansen <larsh@soem.dk>
parents: 53088
diff changeset
3401 EXFUN (Ffile_attributes, 2);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3402 extern void syms_of_dired (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3403 extern Lisp_Object directory_files_internal (Lisp_Object, Lisp_Object,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3404 Lisp_Object, Lisp_Object,
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3405 int, Lisp_Object);
21931
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3406
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3407 /* Defined in term.c */
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3408 extern int *char_ins_del_vector;
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3409 extern void syms_of_term (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3410 extern void fatal (const char *msgid, ...) NO_RETURN;
21931
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3411
83420
521d3f18b3d1 Reimplement terminal parameters in C; clean up term.c, create terminal.c.
Karoly Lorentey <lorentey@elte.hu>
parents: 83417
diff changeset
3412 /* Defined in terminal.c */
107984
bef5d1738c0b Make variable forwarding explicit rather the using special values.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 107338
diff changeset
3413 EXFUN (Fframe_terminal, 1);
92108
fc5344b71cdb (Fdelete_terminal): Declare.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 91822
diff changeset
3414 EXFUN (Fdelete_terminal, 2);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3415 extern void syms_of_terminal (void);
21931
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3416
97232
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
3417 /* Defined in font.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3418 extern void syms_of_font (void);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3419 extern void init_font (void);
97232
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
3420
69959
d1856dc3952f (syms_of_fontset, Fset_fontset_font): Put extern and
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69928
diff changeset
3421 #ifdef HAVE_WINDOW_SYSTEM
21931
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3422 /* Defined in fontset.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3423 extern void syms_of_fontset (void);
69959
d1856dc3952f (syms_of_fontset, Fset_fontset_font): Put extern and
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69928
diff changeset
3424
d1856dc3952f (syms_of_fontset, Fset_fontset_font): Put extern and
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69928
diff changeset
3425 /* Defined in xfns.c, w32fns.c, or macfns.c */
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3426 extern Lisp_Object Qfont_param;
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3427 extern Lisp_Object Vx_no_window_manager;
69959
d1856dc3952f (syms_of_fontset, Fset_fontset_font): Put extern and
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69928
diff changeset
3428 EXFUN (Fxw_display_color_p, 1);
102736
c8e6da2dab57 (Fx_focus_frame): Declare.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102160
diff changeset
3429 EXFUN (Fx_focus_frame, 1);
21931
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3430 #endif
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3431
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3432 /* Defined in xfaces.c */
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3433 extern Lisp_Object Qdefault, Qtool_bar, Qregion, Qfringe;
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3434 extern Lisp_Object Qheader_line, Qscroll_bar, Qcursor, Qborder, Qmouse, Qmenu;
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3435 extern Lisp_Object Qmode_line_inactive, Qvertical_border;
109573
228a5fa4eda0 Remove extern declarations from .c files, and them to .h files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109566
diff changeset
3436 extern Lisp_Object Qface;
109554
b22b609d1fa7 * src/lisp.h (Fkill_emacs): Mark as NO_RETURN.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109548
diff changeset
3437 extern Lisp_Object Qnormal;
109673
0781924c2a38 Remove duplicate declarations.
Juanma Barranquero <lekktu@gmail.com>
parents: 109666
diff changeset
3438 extern Lisp_Object QCfamily, QCweight, QCslant;
0781924c2a38 Remove duplicate declarations.
Juanma Barranquero <lekktu@gmail.com>
parents: 109666
diff changeset
3439 extern Lisp_Object QCheight, QCname, QCwidth, QCforeground, QCbackground;
109635
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3440 extern Lisp_Object Vface_alternative_font_family_alist;
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3441 extern Lisp_Object Vface_font_rescale_alist;
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3442 extern Lisp_Object Vface_ignored_fonts;
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3443 extern Lisp_Object Vface_alternative_font_registry_alist;
fc7a8c411aa3 Add declarations to header files.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109579
diff changeset
3444 extern Lisp_Object Vscalable_fonts_allowed;
78616
798fe25e4552 (Fclear_face_cache, Fx_send_client_event): Declare.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 78501
diff changeset
3445 EXFUN (Fclear_face_cache, 1);
102954
b5a34573cf82 * nsselect.m (symbol_to_nsstring, clean_local_selection_data)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 102759
diff changeset
3446 EXFUN (Fx_load_color_file, 1);
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3447 extern void syms_of_xfaces (void);
21931
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3448
69374
c65249b41906 Remove duplicate prototypes. Make the prototype of getloadavg be conditioned
Eli Zaretskii <eliz@gnu.org>
parents: 69171
diff changeset
3449 #ifndef HAVE_GETLOADAVG
25712
178d6245c681 Add prototype for debug_print.
Gerd Moellmann <gerd@gnu.org>
parents: 25704
diff changeset
3450 /* Defined in getloadavg.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3451 extern int getloadavg (double *, int);
69374
c65249b41906 Remove duplicate prototypes. Make the prototype of getloadavg be conditioned
Eli Zaretskii <eliz@gnu.org>
parents: 69171
diff changeset
3452 #endif
25712
178d6245c681 Add prototype for debug_print.
Gerd Moellmann <gerd@gnu.org>
parents: 25704
diff changeset
3453
21931
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3454 #ifdef HAVE_X_WINDOWS
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3455 /* Defined in xfns.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3456 extern void syms_of_xfns (void);
21931
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3457
43816
a00859016219 Extern declare syms_of_xsmfns ().
Jan Djärv <jan.h.d@swipnet.se>
parents: 43782
diff changeset
3458 /* Defined in xsmfns.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3459 extern void syms_of_xsmfns (void);
43816
a00859016219 Extern declare syms_of_xsmfns ().
Jan Djärv <jan.h.d@swipnet.se>
parents: 43782
diff changeset
3460
21931
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3461 /* Defined in xselect.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3462 extern void syms_of_xselect (void);
21931
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3463
b382905e065a Declare init functions.
Andreas Schwab <schwab@suse.de>
parents: 21842
diff changeset
3464 /* Defined in xterm.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3465 extern void syms_of_xterm (void);
69959
d1856dc3952f (syms_of_fontset, Fset_fontset_font): Put extern and
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69928
diff changeset
3466 #endif /* HAVE_X_WINDOWS */
25759
e473b3e5cf6d Declare Fcurrent_message, Fmake_temp_name, read_bytecode_char,
Dave Love <fx@gnu.org>
parents: 25748
diff changeset
3467
109151
004119b4b62e Fix conflicting declarations of x_get_keysym_name
Andreas Schwab <schwab@linux-m68k.org>
parents: 109115
diff changeset
3468 #ifdef HAVE_WINDOW_SYSTEM
004119b4b62e Fix conflicting declarations of x_get_keysym_name
Andreas Schwab <schwab@linux-m68k.org>
parents: 109115
diff changeset
3469 /* Defined in xterm.c, nsterm.m, w32term.c */
004119b4b62e Fix conflicting declarations of x_get_keysym_name
Andreas Schwab <schwab@linux-m68k.org>
parents: 109115
diff changeset
3470 extern char *x_get_keysym_name (int);
004119b4b62e Fix conflicting declarations of x_get_keysym_name
Andreas Schwab <schwab@linux-m68k.org>
parents: 109115
diff changeset
3471 #endif /* HAVE_WINDOW_SYSTEM */
004119b4b62e Fix conflicting declarations of x_get_keysym_name
Andreas Schwab <schwab@linux-m68k.org>
parents: 109115
diff changeset
3472
58013
93fda23ae576 Declare Fmsdos_downcase_filename.
Andreas Schwab <schwab@suse.de>
parents: 57868
diff changeset
3473 #ifdef MSDOS
93fda23ae576 Declare Fmsdos_downcase_filename.
Andreas Schwab <schwab@suse.de>
parents: 57868
diff changeset
3474 /* Defined in msdos.c */
93fda23ae576 Declare Fmsdos_downcase_filename.
Andreas Schwab <schwab@suse.de>
parents: 57868
diff changeset
3475 EXFUN (Fmsdos_downcase_filename, 1);
93fda23ae576 Declare Fmsdos_downcase_filename.
Andreas Schwab <schwab@suse.de>
parents: 57868
diff changeset
3476 #endif
69959
d1856dc3952f (syms_of_fontset, Fset_fontset_font): Put extern and
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 69928
diff changeset
3477
110302
fd8902911ce3 Add support for the libxml2 library.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 109732
diff changeset
3478 #ifdef HAVE_LIBXML2
fd8902911ce3 Add support for the libxml2 library.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 109732
diff changeset
3479 /* Defined in xml.c */
fd8902911ce3 Add support for the libxml2 library.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 109732
diff changeset
3480 extern void syms_of_xml (void);
fd8902911ce3 Add support for the libxml2 library.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 109732
diff changeset
3481 #endif
fd8902911ce3 Add support for the libxml2 library.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 109732
diff changeset
3482
85595
4f5a9f3d91ae * lisp.h (Fget_text_property): Declare.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85345
diff changeset
3483 #ifdef HAVE_MENUS
97267
248808aeee3e fix popup menu selection return (menu.c); add use of popup_activated under NS (nsmenu.m, xdisp.c); improve comments (lisp.h, s/darwin.h); use FORWARD_SIGNAL_TO_MAIN_THREAD (syssignal.h)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 97232
diff changeset
3484 /* Defined in (x|w32)fns.c, nsfns.m... */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3485 extern int have_menus_p (void);
85595
4f5a9f3d91ae * lisp.h (Fget_text_property): Declare.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 85345
diff changeset
3486 #endif
97232
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
3487
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
3488 #ifdef HAVE_DBUS
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
3489 /* Defined in dbusbind.c */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3490 void syms_of_dbusbind (void);
97232
5584d562a3b5 Fix erroneous last commit.
Eli Zaretskii <eliz@gnu.org>
parents: 97226
diff changeset
3491 #endif
109666
8fc5e1925ae2 * src/lisp.h (fatal_error_signal, emacs_root_dir): Add declaration.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109653
diff changeset
3492
8fc5e1925ae2 * src/lisp.h (fatal_error_signal, emacs_root_dir): Add declaration.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109653
diff changeset
3493 #ifdef DOS_NT
8fc5e1925ae2 * src/lisp.h (fatal_error_signal, emacs_root_dir): Add declaration.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109653
diff changeset
3494 /* Defined in msdos.c, w32.c */
8fc5e1925ae2 * src/lisp.h (fatal_error_signal, emacs_root_dir): Add declaration.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109653
diff changeset
3495 extern char *emacs_root_dir (void);
8fc5e1925ae2 * src/lisp.h (fatal_error_signal, emacs_root_dir): Add declaration.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 109653
diff changeset
3496 #endif /* DOS_NT */
29779
4fe4901e5113 (x_set_tool_bar_lines, free_frame_xic, compose_text, getenv, ctime)
Dave Love <fx@gnu.org>
parents: 29636
diff changeset
3497
302
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3498 /* Nonzero means Emacs has already been initialized.
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3499 Used during startup to detect startup of dumped Emacs. */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3500 extern int initialized;
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3501
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3502 extern int immediate_quit; /* Nonzero means ^G can quit instantly */
7c3ce5b350b8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3503
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3504 extern POINTER_TYPE *xmalloc (size_t);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3505 extern POINTER_TYPE *xrealloc (POINTER_TYPE *, size_t);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3506 extern void xfree (POINTER_TYPE *);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3507
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3508 extern char *xstrdup (const char *);
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3509
109313
e856a274549b Constify functions taking char *
Andreas Schwab <schwab@linux-m68k.org>
parents: 109308
diff changeset
3510 extern char *egetenv (const char *);
17404
73012b195cf3 (DOWNCASE): Return int, not Lisp_Object.
Karl Heuer <kwzh@gnu.org>
parents: 17326
diff changeset
3511
7906
1d64f77001be declare init_system_name (replaces get_system_name).
Karl Heuer <kwzh@gnu.org>
parents: 7307
diff changeset
3512 /* Set up the name of the machine we're running on. */
109099
e16f43875a48 Remove P_ and __P macros.
Jan D <jan.h.d@swipnet.se>
parents: 109098
diff changeset
3513 extern void init_system_name (void);
9799
c9c11e41bf07 (DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3514
c9c11e41bf07 (DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3515 /* Some systems (e.g., NT) use a different path separator than Unix,
108888
c2ac5cece5ea Turn `directory-sep-char' into a noop.
Juanma Barranquero <lekktu@gmail.com>
parents: 108806
diff changeset
3516 in addition to a device separator. Set the path separator
9799
c9c11e41bf07 (DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3517 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
3518
c9c11e41bf07 (DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3519 #define DIRECTORY_SEP '/'
c9c11e41bf07 (DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3520 #ifndef IS_DIRECTORY_SEP
c9c11e41bf07 (DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3521 #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
3522 #endif
c9c11e41bf07 (DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3523 #ifndef IS_DEVICE_SEP
c9c11e41bf07 (DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3524 #ifndef DEVICE_SEP
c9c11e41bf07 (DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3525 #define IS_DEVICE_SEP(_c_) 0
c9c11e41bf07 (DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3526 #else
c9c11e41bf07 (DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3527 #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
3528 #endif
c9c11e41bf07 (DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3529 #endif
c9c11e41bf07 (DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3530 #ifndef IS_ANY_SEP
c9c11e41bf07 (DEVICE_SEP, DIRECTORY_SEP, IS_DEVICE_SEP)
Richard M. Stallman <rms@gnu.org>
parents: 9572
diff changeset
3531 #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
3532 #endif
10455
d5a769d08f88 (SWITCH_ENUM_CAST): New macro.
Karl Heuer <kwzh@gnu.org>
parents: 10426
diff changeset
3533
d5a769d08f88 (SWITCH_ENUM_CAST): New macro.
Karl Heuer <kwzh@gnu.org>
parents: 10426
diff changeset
3534 #define SWITCH_ENUM_CAST(x) (x)
39579
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3535
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3536 /* Loop over Lisp list LIST. Signal an error if LIST is not a proper
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3537 list, or if it contains circles.
45623
0e92d219e195 (current_column): Now returns float.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 45545
diff changeset
3538
39579
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3539 HARE and TORTOISE should be the names of Lisp_Object variables, and
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3540 N should be the name of an EMACS_INT variable declared in the
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3541 function where the macro is used. Each nested loop should use
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3542 its own variables.
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3543
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3544 In the loop body, HARE is set to each cons of LIST, and N is the
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3545 length of the list processed so far. */
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3546
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3547 #define LIST_END_P(list, obj) \
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3548 (NILP (obj) \
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3549 ? 1 \
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3550 : (CONSP (obj) \
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3551 ? 0 \
41615
6486180ed9ef (run_hook_list_with_args): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41262
diff changeset
3552 : (wrong_type_argument (Qlistp, (list))), 1))
39579
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3553
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3554 #define FOREACH(hare, list, tortoise, n) \
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3555 for (tortoise = hare = (list), n = 0; \
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3556 !LIST_END_P (list, hare); \
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3557 (hare = XCDR (hare), ++n, \
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3558 ((n & 1) != 0 \
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3559 ? (tortoise = XCDR (tortoise), \
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3560 (EQ (hare, tortoise) \
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3561 && (circular_list_error ((list)), 1))) \
e307d3530117 (LIST_END_P, FOREACH): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39451
diff changeset
3562 : 0)))
39681
87cc624f4e1e (min, max): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39675
diff changeset
3563
87cc624f4e1e (min, max): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39675
diff changeset
3564 /* The ubiquitous min and max macros. */
87cc624f4e1e (min, max): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39675
diff changeset
3565
39710
45e11013c850 [max]: Undef min and max before redefining them.
Andrew Innes <andrewi@gnu.org>
parents: 39699
diff changeset
3566 #ifdef max
45e11013c850 [max]: Undef min and max before redefining them.
Andrew Innes <andrewi@gnu.org>
parents: 39699
diff changeset
3567 #undef max
45e11013c850 [max]: Undef min and max before redefining them.
Andrew Innes <andrewi@gnu.org>
parents: 39699
diff changeset
3568 #undef min
45e11013c850 [max]: Undef min and max before redefining them.
Andrew Innes <andrewi@gnu.org>
parents: 39699
diff changeset
3569 #endif
39681
87cc624f4e1e (min, max): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39675
diff changeset
3570 #define min(a, b) ((a) < (b) ? (a) : (b))
87cc624f4e1e (min, max): New macros.
Gerd Moellmann <gerd@gnu.org>
parents: 39675
diff changeset
3571 #define max(a, b) ((a) > (b) ? (a) : (b))
39773
51f74f0f7fce (make_fixnum_or_float): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 39766
diff changeset
3572
85250
2acb83e611e8 (eabs): Rename from `abs'. All callers changed.
Eli Zaretskii <eliz@gnu.org>
parents: 85143
diff changeset
3573 /* We used to use `abs', but that clashes with system headers on some
2acb83e611e8 (eabs): Rename from `abs'. All callers changed.
Eli Zaretskii <eliz@gnu.org>
parents: 85143
diff changeset
3574 platforms, and using a name reserved by Standard C is a bad idea
2acb83e611e8 (eabs): Rename from `abs'. All callers changed.
Eli Zaretskii <eliz@gnu.org>
parents: 85143
diff changeset
3575 anyway. */
2acb83e611e8 (eabs): Rename from `abs'. All callers changed.
Eli Zaretskii <eliz@gnu.org>
parents: 85143
diff changeset
3576 #if !defined(eabs)
2acb83e611e8 (eabs): Rename from `abs'. All callers changed.
Eli Zaretskii <eliz@gnu.org>
parents: 85143
diff changeset
3577 #define eabs(x) ((x) < 0 ? -(x) : (x))
84804
bc91e8a1fafc Johannes Weiner <hannes at saeurebad.de>
Glenn Morris <rgm@gnu.org>
parents: 84763
diff changeset
3578 #endif
bc91e8a1fafc Johannes Weiner <hannes at saeurebad.de>
Glenn Morris <rgm@gnu.org>
parents: 84763
diff changeset
3579
39773
51f74f0f7fce (make_fixnum_or_float): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 39766
diff changeset
3580 /* Return a fixnum or float, depending on whether VAL fits in a Lisp
51f74f0f7fce (make_fixnum_or_float): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 39766
diff changeset
3581 fixnum. */
51f74f0f7fce (make_fixnum_or_float): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 39766
diff changeset
3582
51f74f0f7fce (make_fixnum_or_float): New macro.
Gerd Moellmann <gerd@gnu.org>
parents: 39766
diff changeset
3583 #define make_fixnum_or_float(val) \
41615
6486180ed9ef (run_hook_list_with_args): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41262
diff changeset
3584 (FIXNUM_OVERFLOW_P (val) \
6486180ed9ef (run_hook_list_with_args): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41262
diff changeset
3585 ? make_float (val) \
6486180ed9ef (run_hook_list_with_args): Remove.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41262
diff changeset
3586 : make_number ((EMACS_INT)(val)))
52274
9f08d8959a2a (EMACS_LISP_H): New.
Dave Love <fx@gnu.org>
parents: 51868
diff changeset
3587
55142
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3588
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3589 /* Checks the `cycle check' variable CHECK to see if it indicates that
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3590 EL is part of a cycle; CHECK must be either Qnil or a value returned
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3591 by an earlier use of CYCLE_CHECK. SUSPICIOUS is the number of
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3592 elements after which a cycle might be suspected; after that many
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3593 elements, this macro begins consing in order to keep more precise
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3594 track of elements.
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3595
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3596 Returns nil if a cycle was detected, otherwise a new value for CHECK
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3597 that includes EL.
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3598
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3599 CHECK is evaluated multiple times, EL and SUSPICIOUS 0 or 1 times, so
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3600 the caller should make sure that's ok. */
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3601
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3602 #define CYCLE_CHECK(check, el, suspicious) \
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3603 (NILP (check) \
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3604 ? make_number (0) \
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3605 : (INTEGERP (check) \
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3606 ? (XFASTINT (check) < (suspicious) \
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3607 ? make_number (XFASTINT (check) + 1) \
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3608 : Fcons (el, Qnil)) \
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3609 : (!NILP (Fmemq ((el), (check))) \
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3610 ? Qnil \
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3611 : Fcons ((el), (check)))))
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3612
45f74adeb581 Revision: miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248
Miles Bader <miles@gnu.org>
parents: 55081
diff changeset
3613
56186
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3614 /* SAFE_ALLOCA normally allocates memory on the stack, but if size is
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3615 larger than MAX_ALLOCA, use xmalloc to avoid overflowing the stack. */
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3616
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3617 #define MAX_ALLOCA 16*1024
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3618
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3619 extern Lisp_Object safe_alloca_unwind (Lisp_Object);
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3620
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3621 #define USE_SAFE_ALLOCA \
110514
8e5fcc5dd96b Clean up EMACS_INT/int in cmds.c, as well as USE_SAFE_ALLOCA.
Lars Magne Ingebrigtsen <larsi@gnus.org>
parents: 110513
diff changeset
3622 int sa_count = (int) SPECPDL_INDEX (), sa_must_free = 0
56186
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3623
56198
a803de48faef (SAFE_ALLOCA_LISP): New macro to allocate Lisp_Objects.
Kim F. Storm <storm@cua.dk>
parents: 56186
diff changeset
3624 /* SAFE_ALLOCA allocates a simple buffer. */
a803de48faef (SAFE_ALLOCA_LISP): New macro to allocate Lisp_Objects.
Kim F. Storm <storm@cua.dk>
parents: 56186
diff changeset
3625
56186
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3626 #define SAFE_ALLOCA(buf, type, size) \
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3627 do { \
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3628 if ((size) < MAX_ALLOCA) \
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3629 buf = (type) alloca (size); \
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3630 else \
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3631 { \
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3632 buf = (type) xmalloc (size); \
57724
80393689541a (USE_SAFE_ALLOCA): Add and init sa_must_free integer.
Kim F. Storm <storm@cua.dk>
parents: 57571
diff changeset
3633 sa_must_free++; \
56186
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3634 record_unwind_protect (safe_alloca_unwind, \
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3635 make_save_value (buf, 0)); \
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3636 } \
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3637 } while (0)
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3638
56198
a803de48faef (SAFE_ALLOCA_LISP): New macro to allocate Lisp_Objects.
Kim F. Storm <storm@cua.dk>
parents: 56186
diff changeset
3639 /* SAFE_FREE frees xmalloced memory and enables GC as needed. */
a803de48faef (SAFE_ALLOCA_LISP): New macro to allocate Lisp_Objects.
Kim F. Storm <storm@cua.dk>
parents: 56186
diff changeset
3640
57724
80393689541a (USE_SAFE_ALLOCA): Add and init sa_must_free integer.
Kim F. Storm <storm@cua.dk>
parents: 57571
diff changeset
3641 #define SAFE_FREE() \
56186
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3642 do { \
57724
80393689541a (USE_SAFE_ALLOCA): Add and init sa_must_free integer.
Kim F. Storm <storm@cua.dk>
parents: 57571
diff changeset
3643 if (sa_must_free) { \
80393689541a (USE_SAFE_ALLOCA): Add and init sa_must_free integer.
Kim F. Storm <storm@cua.dk>
parents: 57571
diff changeset
3644 sa_must_free = 0; \
56186
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3645 unbind_to (sa_count, Qnil); \
57724
80393689541a (USE_SAFE_ALLOCA): Add and init sa_must_free integer.
Kim F. Storm <storm@cua.dk>
parents: 57571
diff changeset
3646 } \
56186
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3647 } while (0)
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3648
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3649
56204
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3650 /* SAFE_ALLOCA_LISP allocates an array of Lisp_Objects. */
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3651
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3652 #define SAFE_ALLOCA_LISP(buf, nelt) \
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3653 do { \
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3654 int size_ = (nelt) * sizeof (Lisp_Object); \
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3655 if (size_ < MAX_ALLOCA) \
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3656 buf = (Lisp_Object *) alloca (size_); \
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3657 else \
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3658 { \
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3659 Lisp_Object arg_; \
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3660 buf = (Lisp_Object *) xmalloc (size_); \
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3661 arg_ = make_save_value (buf, nelt); \
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3662 XSAVE_VALUE (arg_)->dogc = 1; \
57724
80393689541a (USE_SAFE_ALLOCA): Add and init sa_must_free integer.
Kim F. Storm <storm@cua.dk>
parents: 57571
diff changeset
3663 sa_must_free++; \
56204
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3664 record_unwind_protect (safe_alloca_unwind, arg_); \
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3665 } \
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3666 } while (0)
d79e58a67b48 (struct Lisp_Save_Value): New member dogc.
Kim F. Storm <storm@cua.dk>
parents: 56198
diff changeset
3667
56186
8107f309570c (MAX_ALLOCA): Define here.
Kim F. Storm <storm@cua.dk>
parents: 55837
diff changeset
3668
52274
9f08d8959a2a (EMACS_LISP_H): New.
Dave Love <fx@gnu.org>
parents: 51868
diff changeset
3669 #endif /* EMACS_LISP_H */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52274
diff changeset
3670
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52274
diff changeset
3671 /* arch-tag: 9b2ed020-70eb-47ac-94ee-e1c2a5107d5e
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52274
diff changeset
3672 (do not change this comment) */