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