Mercurial > hg > xemacs-beta

comparison src/buffer.c @ 211:78478c60bfcd r20-4b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents 41ff10fd062f
children d44af0c54775
comparison
equal deleted inserted replaced
210:49f55ca3ba57 211:78478c60bfcd
2095 /* Declaring this stuff as const produces 'Cannot reinitialize' messages 2095 /* Declaring this stuff as const produces 'Cannot reinitialize' messages
2096 from SunPro C's fix-and-continue feature (a way neato feature that 2096 from SunPro C's fix-and-continue feature (a way neato feature that
2097 makes debugging unbelievably more bearable) */ 2097 makes debugging unbelievably more bearable) */
2098 #define DEFVAR_BUFFER_LOCAL(lname, field_name) do { \ 2098 #define DEFVAR_BUFFER_LOCAL(lname, field_name) do { \
2099 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \ 2099 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \
2100 = { { { { lrecord_symbol_value_forward }, \ 2100 = { { { symbol_value_forward_lheader_initializer, \
2101 (struct lcrecord_header *) &(buffer_local_flags.field_name), 69 }, \ 2101 (struct lcrecord_header *) &(buffer_local_flags.field_name), 69 }, \
2102 SYMVAL_CURRENT_BUFFER_FORWARD }, 0 }; \ 2102 SYMVAL_CURRENT_BUFFER_FORWARD }, 0 }; \
2103 defvar_buffer_local ((lname), &I_hate_C); \ 2103 defvar_buffer_local ((lname), &I_hate_C); \
2104 } while (0) 2104 } while (0)
2105 2105
2106 #define DEFVAR_BUFFER_LOCAL_MAGIC(lname, field_name, magicfun) do { \ 2106 #define DEFVAR_BUFFER_LOCAL_MAGIC(lname, field_name, magicfun) do { \
2107 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \ 2107 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \
2108 = { { { { lrecord_symbol_value_forward }, \ 2108 = { { { symbol_value_forward_lheader_initializer, \
2109 (struct lcrecord_header *) &(buffer_local_flags.field_name), 69 }, \ 2109 (struct lcrecord_header *) &(buffer_local_flags.field_name), 69 }, \
2110 SYMVAL_CURRENT_BUFFER_FORWARD }, magicfun }; \ 2110 SYMVAL_CURRENT_BUFFER_FORWARD }, magicfun }; \
2111 defvar_buffer_local ((lname), &I_hate_C); \ 2111 defvar_buffer_local ((lname), &I_hate_C); \
2112 } while (0) 2112 } while (0)
2113 2113
2114 #define DEFVAR_CONST_BUFFER_LOCAL(lname, field_name) do { \ 2114 #define DEFVAR_CONST_BUFFER_LOCAL(lname, field_name) do { \
2115 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \ 2115 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \
2116 = { { { { lrecord_symbol_value_forward }, \ 2116 = { { { symbol_value_forward_lheader_initializer, \
2117 (struct lcrecord_header *) &(buffer_local_flags.field_name), 69 }, \ 2117 (struct lcrecord_header *) &(buffer_local_flags.field_name), 69 }, \
2118 SYMVAL_CONST_CURRENT_BUFFER_FORWARD }, 0 }; \ 2118 SYMVAL_CONST_CURRENT_BUFFER_FORWARD }, 0 }; \
2119 defvar_buffer_local ((lname), &I_hate_C); \ 2119 defvar_buffer_local ((lname), &I_hate_C); \
2120 } while (0) 2120 } while (0)
2121 2121
2122 #define DEFVAR_CONST_BUFFER_LOCAL_MAGIC(lname, field_name, magicfun) do{\ 2122 #define DEFVAR_CONST_BUFFER_LOCAL_MAGIC(lname, field_name, magicfun) do{\
2123 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \ 2123 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \
2124 = { { { { lrecord_symbol_value_forward }, \ 2124 = { { { symbol_value_forward_lheader_initializer, \
2125 (struct lcrecord_header *) &(buffer_local_flags.field_name), 69 }, \ 2125 (struct lcrecord_header *) &(buffer_local_flags.field_name), 69 }, \
2126 SYMVAL_CONST_CURRENT_BUFFER_FORWARD }, magicfun }; \ 2126 SYMVAL_CONST_CURRENT_BUFFER_FORWARD }, magicfun }; \
2127 defvar_buffer_local ((lname), &I_hate_C); \ 2127 defvar_buffer_local ((lname), &I_hate_C); \
2128 } while (0) 2128 } while (0)
2129 2129
2142 2142
2143 /* DOC is ignored because it is snagged and recorded externally 2143 /* DOC is ignored because it is snagged and recorded externally
2144 * by make-docfile */ 2144 * by make-docfile */
2145 #define DEFVAR_BUFFER_DEFAULTS(lname, field_name) do { \ 2145 #define DEFVAR_BUFFER_DEFAULTS(lname, field_name) do { \
2146 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \ 2146 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \
2147 = { { { { lrecord_symbol_value_forward }, \ 2147 = { { { symbol_value_forward_lheader_initializer, \
2148 (struct lcrecord_header *) &(buffer_local_flags.field_name), 69 }, \ 2148 (struct lcrecord_header *) &(buffer_local_flags.field_name), 69 }, \
2149 SYMVAL_DEFAULT_BUFFER_FORWARD }, 0 }; \ 2149 SYMVAL_DEFAULT_BUFFER_FORWARD }, 0 }; \
2150 defvar_mumble ((lname), &I_hate_C, sizeof (I_hate_C)); \ 2150 defvar_mumble ((lname), &I_hate_C, sizeof (I_hate_C)); \
2151 } while (0) 2151 } while (0)
2152 2152
2153 #define DEFVAR_BUFFER_DEFAULTS_MAGIC(lname, field_name, magicfun) do { \ 2153 #define DEFVAR_BUFFER_DEFAULTS_MAGIC(lname, field_name, magicfun) do { \
2154 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \ 2154 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \
2155 = { { { { lrecord_symbol_value_forward }, \ 2155 = { { { symbol_value_forward_lheader_initializer, \
2156 (struct lcrecord_header *) &(buffer_local_flags.field_name), 69 }, \ 2156 (struct lcrecord_header *) &(buffer_local_flags.field_name), 69 }, \
2157 SYMVAL_DEFAULT_BUFFER_FORWARD }, magicfun }; \ 2157 SYMVAL_DEFAULT_BUFFER_FORWARD }, magicfun }; \
2158 defvar_mumble ((lname), &I_hate_C, sizeof (I_hate_C)); \ 2158 defvar_mumble ((lname), &I_hate_C, sizeof (I_hate_C)); \
2159 } while (0) 2159 } while (0)
2160 2160