Avoid crashes in 'font-at' after 'set-fontset-font'
* src/fontset.c (free_realized_fontsets): Call recompute_basic_faces, so that the basic faces are available to any Lisp that calls this function, e.g. via set-fontset-font. (Bug#29632)
This commit is contained in:
parent
c73d2cdfd7
commit
ad491c80e4
1 changed files with 4 additions and 0 deletions
|
@ -1325,6 +1325,10 @@ free_realized_fontsets (Lisp_Object base)
|
||||||
if (CHAR_TABLE_P (this) && EQ (FONTSET_BASE (this), base))
|
if (CHAR_TABLE_P (this) && EQ (FONTSET_BASE (this), base))
|
||||||
{
|
{
|
||||||
Fclear_face_cache (Qt);
|
Fclear_face_cache (Qt);
|
||||||
|
/* This is in case some Lisp calls this function and then
|
||||||
|
proceeds with calling some other function, like font-at,
|
||||||
|
which needs the basic faces. */
|
||||||
|
recompute_basic_faces (XFRAME (FONTSET_FRAME (this)));
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Add table
Reference in a new issue