mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 15:52:00 -08:00
Code Issues Projects Releases Wiki Activity

* keyboard.c (syms_of_keyboard): Initialize the initial_kboard.

Browse source 
(init_keyboard): Set current_kboard's window-system to nil.
(tty_read_avail_input): Typo.
* frame.c (make_initial_frame): Don't initialize the initial_kboard.
This commit is contained in:
Stefan Monnier 2007-10-31 19:25:32 +00:00
parent 8ac56013fb
commit 1bc973c2e4
3 changed files with 22 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/ChangeLog
View file

@ -1,3 +1,10 @@
2007-10-31 Stefan Monnier <monnier@iro.umontreal.ca>
* keyboard.c (syms_of_keyboard): Initialize the initial_kboard.
(init_keyboard): Set current_kboard's window-system to nil.
(tty_read_avail_input): Typo.
* frame.c (make_initial_frame): Don't initialize the initial_kboard.
2007-10-31 Dan Nicolaescu <dann@ics.uci.edu>
* s/usg5-4.h:

12
src/frame.c
View file

@ -513,17 +513,7 @@ make_initial_frame (void)
struct terminal *terminal;
Lisp_Object frame;
#ifdef MULTI_KBOARD
/* Create the initial keyboard. */
if (!initial_kboard)
{
initial_kboard = (KBOARD *) xmalloc (sizeof (KBOARD));
init_kboard (initial_kboard);
/* Leave Vwindow_system at its `t' default for now. */
initial_kboard->next_kboard = all_kboards;
all_kboards = initial_kboard;
}
#endif
eassert (initial_kboard);
/* The first call must initialize Vframe_list. */
if (! (NILP (Vframe_list) || CONSP (Vframe_list)))

16
src/keyboard.c
View file

@ -7097,7 +7097,7 @@ tty_read_avail_input (struct terminal *terminal,
int nread = 0;
if (!terminal->name) /* Don't read from a dead terminal. */
return;
return 0;
if (terminal->type != output_termcap)
abort ();
@ -11572,9 +11572,12 @@ init_keyboard ()
#ifdef MULTI_KBOARD
current_kboard = initial_kboard;
#endif
/* Re-initialize the keyboard again. */
wipe_kboard (current_kboard);
init_kboard (current_kboard);
/* Leave Vwindow_system at its `t' default for now. */
/* A value of nil for Vwindow_system normally means a tty, but we also use
it for the initial terminal since there is no window system there. */
current_kboard->Vwindow_system = Qnil;
if (!noninteractive)
{
@ -12400,6 +12403,15 @@ and the Lisp function within which the error was signaled. */);
Help functions bind this to allow help on disabled menu items
and tool-bar buttons. */);
Venable_disabled_menus_and_buttons = Qnil;
#ifdef MULTI_KBOARD
/* Create the initial keyboard. */
initial_kboard = (KBOARD *) xmalloc (sizeof (KBOARD));
init_kboard (initial_kboard);
/* Vwindow_system is left at t for now. */
initial_kboard->next_kboard = all_kboards;
all_kboards = initial_kboard;
#endif
}
void