Mercurial > hg > xemacs-beta

comparison src/console.c @ 400:a86b2b5e0111 r21-2-30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-30
author cvs
date Mon, 13 Aug 2007 11:14:34 +0200
parents 74fd4e045ea6
children 2f8bb876ab1d
comparison
equal deleted inserted replaced
399:376370fb5946 400:a86b2b5e0111
1071 /************************************************************************/ 1071 /************************************************************************/
1072 1072
1073 void 1073 void
1074 syms_of_console (void) 1074 syms_of_console (void)
1075 { 1075 {
1076 INIT_LRECORD_IMPLEMENTATION (console);
1077
1076 DEFSUBR (Fvalid_console_type_p); 1078 DEFSUBR (Fvalid_console_type_p);
1077 DEFSUBR (Fconsole_type_list); 1079 DEFSUBR (Fconsole_type_list);
1078 DEFSUBR (Fcdfw_console); 1080 DEFSUBR (Fcdfw_console);
1079 DEFSUBR (Fselected_console); 1081 DEFSUBR (Fselected_console);
1080 DEFSUBR (Fselect_console); 1082 DEFSUBR (Fselect_console);
1193 Fprovide (intern ("window-system")); 1195 Fprovide (intern ("window-system"));
1194 #endif 1196 #endif
1195 } 1197 }
1196 1198
1197 /* The docstrings for DEFVAR_* are recorded externally by make-docfile. */ 1199 /* The docstrings for DEFVAR_* are recorded externally by make-docfile. */
1198
1199 /* Declaring this stuff as const produces 'Cannot reinitialize' messages
1200 from SunPro C's fix-and-continue feature (a way neato feature that
1201 makes debugging unbelievably more bearable) */
1202 #define DEFVAR_CONSOLE_LOCAL_1(lname, field_name, forward_type, magicfun) do { \ 1200 #define DEFVAR_CONSOLE_LOCAL_1(lname, field_name, forward_type, magicfun) do { \
1203 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C = \ 1201 static const struct symbol_value_forward I_hate_C = \
1204 { /* struct symbol_value_forward */ \ 1202 { /* struct symbol_value_forward */ \
1205 { /* struct symbol_value_magic */ \ 1203 { /* struct symbol_value_magic */ \
1206 { /* struct lcrecord_header */ \ 1204 { /* struct lcrecord_header */ \
1207 { /* struct lrecord_header */ \ 1205 { /* struct lrecord_header */ \
1208 1, /* type - index into lrecord_implementations_table */ \ 1206 lrecord_type_symbol_value_forward, /* lrecord_type_index */ \
1209 0, /* mark bit */ \ 1207 1, /* mark bit */ \
1210 0, /* c_readonly bit */ \ 1208 1, /* c_readonly bit */ \
1211 0 /* lisp_readonly bit */ \ 1209 1 /* lisp_readonly bit */ \
1212 }, \ 1210 }, \
1213 0, /* next */ \ 1211 0, /* next */ \
1214 0, /* uid */ \ 1212 0, /* uid */ \
1215 0 /* free */ \ 1213 0 /* free */ \
1216 }, \ 1214 }, \