procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Fframe_parameter): For non-windowed frames, if

Browse source 
f->param_alist says foreground or background color is unspecified,
call tty_color_name to return the color name computed from the
frame's current colors.
This commit is contained in:
Eli Zaretskii 2000-10-07 18:57:36 +00:00
parent f26d858e50
commit 5f65b39d99
1 changed files with 23 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/frame.c
View file

@ -2133,7 +2133,29 @@ If FRAME is nil, describe the currently selected frame.")
{
value = Fassq (parameter, f->param_alist);
if (CONSP (value))
value = XCDR (value);
{
extern char unspecified_fg[], unspecified_bg[];
extern Lisp_Object Qbackground_color, Qforeground_color;
value = XCDR (value);
/* Fframe_parameters puts the actual fg/bg color names,
even if f->param_alist says otherwise. This is
important when param_alist's notion of colors is
"unspecified". We need to do the same here. */
if (STRINGP (value) && !FRAME_WINDOW_P (f))
{
if (EQ (parameter, Qbackground_color)
&& strncmp (XSTRING (value)->data,
unspecified_bg,
XSTRING (value)->size) == 0)
value = tty_color_name (f, FRAME_BACKGROUND_PIXEL (f));
else if (EQ (parameter, Qforeground_color)
&& strncmp (XSTRING (value)->data,
unspecified_fg,
XSTRING (value)->size) == 0)
value = tty_color_name (f, FRAME_FOREGROUND_PIXEL (f));
}
}
else if (EQ (parameter, Qdisplay_type)
|| EQ (parameter, Qbackground_mode))
/* Avoid consing in frequent cases. */