Mercurial > hg > xemacs-beta
comparison src/console.c @ 771:943eaba38521
[xemacs-hg @ 2002-03-13 08:51:24 by ben]
The big ben-mule-21-5 check-in!
Various files were added and deleted. See CHANGES-ben-mule.
There are still some test suite failures. No crashes, though.
Many of the failures have to do with problems in the test suite itself
rather than in the actual code. I'll be addressing these in the next
day or so -- none of the test suite failures are at all critical.
Meanwhile I'll be trying to address the biggest issues -- i.e. build
or run failures, which will almost certainly happen on various platforms.
All comments should be sent to ben@xemacs.org -- use a Cc: if necessary
when sending to mailing lists. There will be pre- and post- tags,
something like
pre-ben-mule-21-5-merge-in, and
post-ben-mule-21-5-merge-in.
| author | ben |
|---|---|
| date | Wed, 13 Mar 2002 08:54:06 +0000 |
| parents | fdefd0186b75 |
| children | e38acbeb1cae |
comparison
equal
deleted
inserted
replaced
| 770:336a418893b5 | 771:943eaba38521 |
|---|---|
| 152 | 152 |
| 153 XSETCONSOLE (console, con); | 153 XSETCONSOLE (console, con); |
| 154 GCPRO1 (console); | 154 GCPRO1 (console); |
| 155 | 155 |
| 156 con->quit_char = 7; /* C-g */ | 156 con->quit_char = 7; /* C-g */ |
| 157 con->command_builder = allocate_command_builder (console); | 157 con->command_builder = allocate_command_builder (console, 1); |
| 158 con->function_key_map = Fmake_sparse_keymap (Qnil); | 158 con->function_key_map = Fmake_sparse_keymap (Qnil); |
| 159 | 159 |
| 160 UNGCPRO; | 160 UNGCPRO; |
| 161 return con; | 161 return con; |
| 162 } | 162 } |
| 343 CONSOLE defaults to the selected console if omitted. | 343 CONSOLE defaults to the selected console if omitted. |
| 344 */ | 344 */ |
| 345 (console)) | 345 (console)) |
| 346 { | 346 { |
| 347 return CONSOLE_CONNECTION (decode_console (console)); | 347 return CONSOLE_CONNECTION (decode_console (console)); |
| 348 } | |
| 349 | |
| 350 Lisp_Object | |
| 351 make_console (struct console *con) | |
| 352 { | |
| 353 Lisp_Object console; | |
| 354 XSETCONSOLE (console, con); | |
| 355 return console; | |
| 356 } | 348 } |
| 357 | 349 |
| 358 static Lisp_Object | 350 static Lisp_Object |
| 359 semi_canonicalize_console_connection (struct console_methods *meths, | 351 semi_canonicalize_console_connection (struct console_methods *meths, |
| 360 Lisp_Object name, Error_Behavior errb) | 352 Lisp_Object name, Error_Behavior errb) |
| 872 and the system resources aren't available for that. */ | 864 and the system resources aren't available for that. */ |
| 873 record_unwind_protect (unwind_init_sys_modes, Vcontrolling_terminal); | 865 record_unwind_protect (unwind_init_sys_modes, Vcontrolling_terminal); |
| 874 stuff_buffered_input (stuffstring); | 866 stuff_buffered_input (stuffstring); |
| 875 sys_suspend (); | 867 sys_suspend (); |
| 876 /* the console is un-reset inside of the unwind-protect. */ | 868 /* the console is un-reset inside of the unwind-protect. */ |
| 877 unbind_to (speccount, Qnil); | 869 unbind_to (speccount); |
| 878 | 870 |
| 879 #ifdef SIGWINCH | 871 #ifdef SIGWINCH |
| 880 /* It is possible that a size change occurred while we were | 872 /* It is possible that a size change occurred while we were |
| 881 suspended. Assume one did just to be safe. It won't hurt | 873 suspended. Assume one did just to be safe. It won't hurt |
| 882 anything if one didn't. */ | 874 anything if one didn't. */ |
| 1340 | 1332 |
| 1341 #define CONSOLE_SLOTS_SIZE (offsetof (struct console, CONSOLE_SLOTS_LAST_NAME) - offsetof (struct console, CONSOLE_SLOTS_FIRST_NAME) + sizeof (Lisp_Object)) | 1333 #define CONSOLE_SLOTS_SIZE (offsetof (struct console, CONSOLE_SLOTS_LAST_NAME) - offsetof (struct console, CONSOLE_SLOTS_FIRST_NAME) + sizeof (Lisp_Object)) |
| 1342 #define CONSOLE_SLOTS_COUNT (CONSOLE_SLOTS_SIZE / sizeof (Lisp_Object)) | 1334 #define CONSOLE_SLOTS_COUNT (CONSOLE_SLOTS_SIZE / sizeof (Lisp_Object)) |
| 1343 | 1335 |
| 1344 void | 1336 void |
| 1345 reinit_complex_vars_of_console (void) | 1337 reinit_complex_vars_of_console_runtime_only (void) |
| 1346 { | 1338 { |
| 1347 struct console *defs, *syms; | 1339 struct console *defs, *syms; |
| 1348 | 1340 |
| 1349 common_init_complex_vars_of_console (); | 1341 common_init_complex_vars_of_console (); |
| 1350 | 1342 |