Mercurial > hg > xemacs-beta

comparison src/console.c @ 213:78f53ef88e17 r20-4b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b5
author cvs
date Mon, 13 Aug 2007 10:06:47 +0200
parents a2f645c6b9f8
children 0e522484dd2a
comparison
equal deleted inserted replaced
212:d8688acf4c5b 213:78f53ef88e17
318 318
319 DEFUN ("console-type", Fconsole_type, 0, 1, 0, /* 319 DEFUN ("console-type", Fconsole_type, 0, 1, 0, /*
320 Return the type of the specified console (e.g. `x' or `tty'). 320 Return the type of the specified console (e.g. `x' or `tty').
321 Value is `tty' for a tty console (a character-only terminal), 321 Value is `tty' for a tty console (a character-only terminal),
322 `x' for a console that is an X display, 322 `x' for a console that is an X display,
323 `win32' for a console that is a Windows or Windows NT connection (not yet 323 `mswindows' for a console that is a Windows NT/95/97 connection,
324 implemented),
325 `pc' for a console that is a direct-write MS-DOS connection (not yet 324 `pc' for a console that is a direct-write MS-DOS connection (not yet
326 implemented), 325 implemented),
327 `stream' for a stream console (which acts like a stdio stream), and 326 `stream' for a stream console (which acts like a stdio stream), and
328 `dead' for a deleted console. 327 `dead' for a deleted console.
329 */ 328 */
822 Stop Emacs and return to superior process. You can resume later. 821 Stop Emacs and return to superior process. You can resume later.
823 On systems that don't have job control, run a subshell instead. 822 On systems that don't have job control, run a subshell instead.
824 823
825 If optional arg STUFFSTRING is non-nil, its characters are stuffed 824 If optional arg STUFFSTRING is non-nil, its characters are stuffed
826 to be read as terminal input by Emacs's superior shell. 825 to be read as terminal input by Emacs's superior shell.
827 Before suspending, if `suspend-hook' is bound and value is non-nil 826
828 call the value as a function of no args. Don't suspend if it returns non-nil. 827 Before suspending, run the normal hook `suspend-hook'.
829 Otherwise, suspend normally and after resumption call 828 After resumption run the normal hook `suspend-resume-hook'.
830 `suspend-resume-hook' if that is bound and non-nil.
831 829
832 Some operating systems cannot stop the Emacs process and resume it later. 830 Some operating systems cannot stop the Emacs process and resume it later.
833 On such systems, Emacs will start a subshell and wait for it to exit. 831 On such systems, Emacs will start a subshell and wait for it to exit.
834 */ 832 */
835 (stuffstring)) 833 (stuffstring))
1167 /* Declaring this stuff as const produces 'Cannot reinitialize' messages 1165 /* Declaring this stuff as const produces 'Cannot reinitialize' messages
1168 from SunPro C's fix-and-continue feature (a way neato feature that 1166 from SunPro C's fix-and-continue feature (a way neato feature that
1169 makes debugging unbelievably more bearable) */ 1167 makes debugging unbelievably more bearable) */
1170 #define DEFVAR_CONSOLE_LOCAL(lname, field_name) do { \ 1168 #define DEFVAR_CONSOLE_LOCAL(lname, field_name) do { \
1171 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \ 1169 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \
1172 = { { { { lrecord_symbol_value_forward }, \ 1170 = { { { symbol_value_forward_lheader_initializer, \
1173 (struct lcrecord_header *) &(console_local_flags.field_name), 69 }, \ 1171 (struct lcrecord_header *) &(console_local_flags.field_name), 69 }, \
1174 SYMVAL_SELECTED_CONSOLE_FORWARD }, 0 }; \ 1172 SYMVAL_SELECTED_CONSOLE_FORWARD }, 0 }; \
1175 defvar_console_local ((lname), &I_hate_C); \ 1173 defvar_console_local ((lname), &I_hate_C); \
1176 } while (0) 1174 } while (0)
1177 1175
1178 #define DEFVAR_CONSOLE_LOCAL_MAGIC(lname, field_name, magicfun) do { \ 1176 #define DEFVAR_CONSOLE_LOCAL_MAGIC(lname, field_name, magicfun) do { \
1179 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \ 1177 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \
1180 = { { { { lrecord_symbol_value_forward }, \ 1178 = { { { symbol_value_forward_lheader_initializer, \
1181 (struct lcrecord_header *) &(console_local_flags.field_name), 69 }, \ 1179 (struct lcrecord_header *) &(console_local_flags.field_name), 69 }, \
1182 SYMVAL_SELECTED_CONSOLE_FORWARD }, magicfun }; \ 1180 SYMVAL_SELECTED_CONSOLE_FORWARD }, magicfun }; \
1183 defvar_console_local ((lname), &I_hate_C); \ 1181 defvar_console_local ((lname), &I_hate_C); \
1184 } while (0) 1182 } while (0)
1185 1183
1186 #define DEFVAR_CONST_CONSOLE_LOCAL(lname, field_name) do { \ 1184 #define DEFVAR_CONST_CONSOLE_LOCAL(lname, field_name) do { \
1187 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \ 1185 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \
1188 = { { { { lrecord_symbol_value_forward }, \ 1186 = { { { symbol_value_forward_lheader_initializer, \
1189 (struct lcrecord_header *) &(console_local_flags.field_name), 69 }, \ 1187 (struct lcrecord_header *) &(console_local_flags.field_name), 69 }, \
1190 SYMVAL_CONST_SELECTED_CONSOLE_FORWARD }, 0 }; \ 1188 SYMVAL_CONST_SELECTED_CONSOLE_FORWARD }, 0 }; \
1191 defvar_console_local ((lname), &I_hate_C); \ 1189 defvar_console_local ((lname), &I_hate_C); \
1192 } while (0) 1190 } while (0)
1193 1191
1194 #define DEFVAR_CONST_CONSOLE_LOCAL_MAGIC(lname, field_name, magicfun) do { \ 1192 #define DEFVAR_CONST_CONSOLE_LOCAL_MAGIC(lname, field_name, magicfun) do { \
1195 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \ 1193 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \
1196 = { { { { lrecord_symbol_value_forward }, \ 1194 = { { { symbol_value_forward_lheader_initializer, \
1197 (struct lcrecord_header *) &(console_local_flags.field_name), 69 }, \ 1195 (struct lcrecord_header *) &(console_local_flags.field_name), 69 }, \
1198 SYMVAL_CONST_SELECTED_CONSOLE_FORWARD }, magicfun }; \ 1196 SYMVAL_CONST_SELECTED_CONSOLE_FORWARD }, magicfun }; \
1199 defvar_console_local ((lname), &I_hate_C); \ 1197 defvar_console_local ((lname), &I_hate_C); \
1200 } while (0) 1198 } while (0)
1201 1199
1202 #define DEFVAR_CONSOLE_DEFAULTS(lname, field_name) do { \ 1200 #define DEFVAR_CONSOLE_DEFAULTS(lname, field_name) do { \
1203 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \ 1201 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \
1204 = { { { { lrecord_symbol_value_forward }, \ 1202 = { { { symbol_value_forward_lheader_initializer, \
1205 (struct lcrecord_header *) &(console_local_flags.field_name), 69 }, \ 1203 (struct lcrecord_header *) &(console_local_flags.field_name), 69 }, \
1206 SYMVAL_DEFAULT_CONSOLE_FORWARD }, 0 }; \ 1204 SYMVAL_DEFAULT_CONSOLE_FORWARD }, 0 }; \
1207 defvar_mumble ((lname), &I_hate_C, sizeof (I_hate_C)); \ 1205 defvar_mumble ((lname), &I_hate_C, sizeof (I_hate_C)); \
1208 } while (0) 1206 } while (0)
1209 1207
1210 #define DEFVAR_CONSOLE_DEFAULTS_MAGIC(lname, field_name, magicfun) do { \ 1208 #define DEFVAR_CONSOLE_DEFAULTS_MAGIC(lname, field_name, magicfun) do { \
1211 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \ 1209 static CONST_IF_NOT_DEBUG struct symbol_value_forward I_hate_C \
1212 = { { { { lrecord_symbol_value_forward }, \ 1210 = { { { symbol_value_forward_lheader_initializer, \
1213 (struct lcrecord_header *) &(console_local_flags.field_name), 69 }, \ 1211 (struct lcrecord_header *) &(console_local_flags.field_name), 69 }, \
1214 SYMVAL_DEFAULT_CONSOLE_FORWARD }, magicfun }; \ 1212 SYMVAL_DEFAULT_CONSOLE_FORWARD }, magicfun }; \
1215 defvar_mumble ((lname), &I_hate_C, sizeof (I_hate_C)); \ 1213 defvar_mumble ((lname), &I_hate_C, sizeof (I_hate_C)); \
1216 } while (0) 1214 } while (0)
1217 1215