mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-18 10:16:51 +00:00
Code Issues Releases Activity

(dumpglyphs): Try various alternatives for foreground color

Browse Source 
of a glyph with the cursor on it.
This commit is contained in:
Richard M. Stallman 1994-02-18 01:01:51 +00:00
parent 812361a197
commit df5a440b3b
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/xterm.c
View File

@ -569,7 +569,25 @@ dumpglyphs (f, left, top, gp, n, hl)
unsigned long mask;
xgcv.background = f->display.x->cursor_pixel;
xgcv.foreground = f->display.x->cursor_foreground_pixel;
if (face == FRAME_DEFAULT_FACE (f))
xgcv.foreground = f->display.x->cursor_foreground_pixel;
else
xgcv.foreground = face->foreground;
/* If the glyph would be invisible,
try a different foreground. */
if (xgcv.foreground == xgcv.background)
xgcv.foreground = face->background;
if (xgcv.foreground == xgcv.background)
xgcv.foreground = f->display.x->cursor_foreground_pixel;
if (xgcv.foreground == xgcv.background)
xgcv.foreground = face->foreground;
/* Make sure the cursor is distinct from text in this face. */
if (xgcv.background == face->background
&& xgcv.foreground == face->foreground)
{
xgcv.background = face->foreground;
xgcv.foreground = face->background;
}
xgcv.font = face->font->fid;
xgcv.graphics_exposures = 0;
mask = GCForeground | GCBackground | GCFont | GCGraphicsExposures;