Add missing ospeed setting

This commit is contained in:
Andrey A. Chernov 1995-08-04 09:54:54 +00:00
parent f0c8f81c61
commit 915513b23b

@ -608,6 +608,8 @@ init_term()
char termbuf[1024]; char termbuf[1024];
char *capptr = cap+10; char *capptr = cap+10;
char *term; char *term;
struct sgttyb tt;
extern short ospeed;
switch (tgetent(termbuf, term = getenv("TERM"))) switch (tgetent(termbuf, term = getenv("TERM")))
{ {
@ -620,6 +622,9 @@ init_term()
exit(); exit();
}; };
if (gtty(0, &tt) == 0)
ospeed = tt.sg_ospeed;
CM = tgetstr("cm", &capptr); /* Cursor motion */ CM = tgetstr("cm", &capptr); /* Cursor motion */
CE = tgetstr("ce", &capptr); /* Clear to eoln */ CE = tgetstr("ce", &capptr); /* Clear to eoln */
CL = tgetstr("cl", &capptr); /* Clear screen */ CL = tgetstr("cl", &capptr); /* Clear screen */