1
pick from upstream svn:
2
r4449 | khaled | 2012-07-02 20:15:46 +0200 (Mon, 02 Jul 2012) | 13 lines
4
M /trunk/source/texk/web2c/luatexdir/tex/mlist.w
6
Fix regression introduced in r4361
8
Radical rule thickness calculation was wrong for composite radicals with
9
old fonts. When get_delim_box() was rewritten, a special correction for
10
the radicals were lost. That block of code is now in make_radical()
14
$$y=\sqrt{\displaystyle\int \over x}$$
18
http://tex.stackexchange.com/q/61952/729
20
source/texk/web2c/luatexdir/tex/mlist.w | 12 +++++++++++-
21
1 file changed, 11 insertions(+), 1 deletion(-)
23
Index: luatex-0.70.1.20120524/source/texk/web2c/luatexdir/tex/mlist.w
24
===================================================================
25
--- luatex-0.70.1.20120524.orig/source/texk/web2c/luatexdir/tex/mlist.w 2012-05-20 23:25:51.000000000 +0900
26
+++ luatex-0.70.1.20120524/source/texk/web2c/luatexdir/tex/mlist.w 2012-07-03 07:42:10.222842439 +0900
27
@@ -1799,7 +1799,17 @@
28
theta = fraction_rule(cur_style);
29
y = var_delimiter(left_delimiter(q), cur_size,
30
height(x) + depth(x) + clr + theta, NULL, cur_style);
32
+ /* If |y| is a composite then set |theta| to the height of its top
33
+ character, else set it to the height of |y|. */
34
+ if (list_ptr(y) != null
35
+ && type(list_ptr(y)) == hlist_node
36
+ && list_ptr(list_ptr(y)) != null
37
+ && type(list_ptr(list_ptr(y))) == glyph_node) { /* and it should be */
38
+ theta = char_height(font(list_ptr(list_ptr(y))),
39
+ character(list_ptr(list_ptr(y))));
44
y = var_delimiter(left_delimiter(q), cur_size,
45
height(x) + depth(x) + clr + theta, NULL, cur_style);