From 91379fa891f786d5e25909680b0d62933e581bd0 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Tue, 16 Nov 2021 22:58:54 +0100
Subject: 2021-11-16 22:35:00

---
 tex/context/base/mkxl/font-ini.mklx | 28 +++++++++++++++++++---------
 1 file changed, 19 insertions(+), 9 deletions(-)

(limited to 'tex/context/base/mkxl/font-ini.mklx')

diff --git a/tex/context/base/mkxl/font-ini.mklx b/tex/context/base/mkxl/font-ini.mklx
index 85e253e17..0e2ddb3f7 100644
--- a/tex/context/base/mkxl/font-ini.mklx
+++ b/tex/context/base/mkxl/font-ini.mklx
@@ -872,7 +872,8 @@
      \scaledfontmode\zerocount
    \fi
    \c_font_future_glyph_scale\numexpr\plushundred*\d_font_scaled_font_size/\maxcard\relax
-   \glyphscale\numexpr\plushundred*\d_font_scaled_font_size/\maxcard\relax % needed ? for math i guess
+ % \glyphscale\numexpr\plushundred*\d_font_scaled_font_size/\maxcard\relax % needed ? for math i guess
+   \glyphscale\numexpr\c_font_future_glyph_scale % needed ? for math i guess
  % \d_font_scaled_font_size\d_font_scaled_default
  % \d_font_scaled_text_face\d_font_scaled_default
    %
@@ -924,15 +925,24 @@
      \ifempty\somefontsizey\else
         \edef\somefontsizey{\glyphyscale\somefontsizey\relax}%
      \fi
-     \ifempty\fontclass\else\global\fi
-     \mutable\protected\edefcsname#csname\endcsname
-       {\setfontid\the\fontid\csname#csname\endcsname\relax
-        \glyphscale\the\glyphscale\relax
-        \somefontsizex
-        \somefontsizey}%
-     %
      \expandafter\let\expandafter\lastrawfontcall\csname#csname\endcsname
-     \the\everydefinefont
+     \ifrelax\lastrawfontcall
+      \let\somefontspec\empty
+     \else
+%        \ifempty\fontclass\else\global\fi
+%        \mutable\protected\edefcsname#csname\endcsname
+%          {\setfontid\the\fontid\csname#csname\endcsname\relax
+%           \glyphscale\the\glyphscale\relax
+%           \somefontsizex
+%           \somefontsizey}%
+%        \expandafter\let\expandafter\lastrawfontcall\csname#csname\endcsname
+       \mutable\protected\edef\lastrawfontcall
+         {\setfontid\the\fontid\csname#csname\endcsname\relax
+          \glyphscale\the\glyphscale\relax
+          \somefontsizex
+          \somefontsizey}%
+       \ifempty\fontclass\letcsname\else\gletcsname\fi#csname\endcsname\lastrawfontcall
+     \fi
    \fi
    \c_font_feature_inheritance_mode\c_font_feature_inheritance_default}
 
-- 
cgit v1.2.3