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

(Finternal_set_lisp_face_attribute): If the font is to be updated,

Browse Source 
clear its average width field too.
This commit is contained in:
Chong Yidong 2008-10-14 04:08:08 +00:00
parent 40c89b5f65
commit e69a00b749
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/xfaces.c
View File

@ -3356,12 +3356,16 @@ FRAME 0 means change the face on all frames, and change the default
signal_error ("Invalid face attribute name", attr);
if (prop_index)
/* If a font-related attribute other than QCfont and QCfontset is
specified, and if the original QCfont attribute has a font
(font-spec or font-object), set the corresponding property in
the font to nil so that the font selector doesn't think that
the attribute is mandatory. */
font_clear_prop (XVECTOR (lface)->contents, prop_index);
{
/* If a font-related attribute other than QCfont and QCfontset
is specified, and if the original QCfont attribute has a font
(font-spec or font-object), set the corresponding property in
the font to nil so that the font selector doesn't think that
the attribute is mandatory. Also, clear the average
width. */
font_clear_prop (XVECTOR (lface)->contents, prop_index);
font_clear_prop (XVECTOR (lface)->contents, FONT_AVGWIDTH_INDEX);
}
/* Changing a named face means that all realized faces depending on
that face are invalid. Since we cannot tell which realized faces