mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Fix bug#59371

Browse source 
* src/frame.c (Freconsider_frame_fonts): If a font parameter was
set, create a params alist with it.  Then, pass it to both
default_font_parameter and face-set-after-frame-default.
(bug#59371)
This commit is contained in:
Po Lu 2022-11-19 11:19:41 +08:00
parent b23a4a1505
commit 10701635cf
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/frame.c
View file

@ -5959,18 +5959,26 @@ have changed. */)
(Lisp_Object frame)
{
struct frame *f;
Lisp_Object params;
f = decode_window_system_frame (frame);
/* Kludge: if a `font' parameter was already specified,
create an alist containing just that parameter. (bug#59371) */
params = Qnil;
if (!NILP (get_frame_param (f, Qfont)))
params = list1 (Fcons (Qfont, get_frame_param (f, Qfont)));
/* First, call this to reinitialize any font backend specific
stuff. */
if (FRAME_RIF (f)->default_font_parameter)
FRAME_RIF (f)->default_font_parameter (f, Qnil);
FRAME_RIF (f)->default_font_parameter (f, params);
/* Now call this to apply the existing value(s) of the `default'
face. */
call1 (Qface_set_after_frame_default, frame);
call2 (Qface_set_after_frame_default, frame, params);
return Qnil;
}