414 |
|
|
415 |
Lisp_Object Qbar; |
Lisp_Object Qbar; |
416 |
|
|
417 |
|
static int initial_screen_colors[2]; |
418 |
|
|
419 |
#if __DJGPP__ > 1 |
#if __DJGPP__ > 1 |
420 |
/* Update the screen from a part of relocated DOS/V screen buffer which |
/* Update the screen from a part of relocated DOS/V screen buffer which |
421 |
begins at OFFSET and includes COUNT characters. */ |
begins at OFFSET and includes COUNT characters. */ |
1803 |
{ |
{ |
1804 |
if (termscript) |
if (termscript) |
1805 |
fprintf (termscript, "<CLR:SCR>"); |
fprintf (termscript, "<CLR:SCR>"); |
1806 |
IT_set_face (0); |
/* We are sometimes called (from clear_garbaged_frames) when a new |
1807 |
|
frame is being created, but its faces are not yet realized. In |
1808 |
|
such a case we cannot call IT_set_face, since it will fail to find |
1809 |
|
any valid faces and will abort. Instead, use the initial screen |
1810 |
|
colors; that should mimic what a Unix tty does, which simply clears |
1811 |
|
the screen with whatever default colors are in use. */ |
1812 |
|
if (FACE_FROM_ID (SELECTED_FRAME (), DEFAULT_FACE_ID) == NULL) |
1813 |
|
ScreenAttrib = (initial_screen_colors[0] << 4) | initial_screen_colors[1]; |
1814 |
|
else |
1815 |
|
IT_set_face (0); |
1816 |
mouse_off (); |
mouse_off (); |
1817 |
ScreenClear (); |
ScreenClear (); |
1818 |
if (screen_virtual_segment) |
if (screen_virtual_segment) |
2310 |
|
|
2311 |
/* Remember the screen colors of the curent frame, to serve as the |
/* Remember the screen colors of the curent frame, to serve as the |
2312 |
default colors for newly-created frames. */ |
default colors for newly-created frames. */ |
|
|
|
|
static int initial_screen_colors[2]; |
|
|
|
|
2313 |
DEFUN ("msdos-remember-default-colors", Fmsdos_remember_default_colors, |
DEFUN ("msdos-remember-default-colors", Fmsdos_remember_default_colors, |
2314 |
Smsdos_remember_default_colors, 1, 1, 0, |
Smsdos_remember_default_colors, 1, 1, 0, |
2315 |
"Remember the screen colors of the current frame.") |
"Remember the screen colors of the current frame.") |