From 3d237e6ffb79cc3c069ecfc06e785ba6c73a5198 Mon Sep 17 00:00:00 2001 From: Takashi Suwa Date: Sun, 20 Oct 2024 19:14:57 +0900 Subject: [PATCH] fix how to deal with paddings of `inline-frame-outer` --- src/backend/lineBreak.ml | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/backend/lineBreak.ml b/src/backend/lineBreak.ml index 2f95217e3..f6dfee819 100644 --- a/src/backend/lineBreak.ml +++ b/src/backend/lineBreak.ml @@ -151,10 +151,9 @@ let convert_pure_box_for_line_breaking_scheme (type a) (listf : horz_box list -> | PHGOuterFrame{ paddings = pads; decoration; contents = hbs } -> let lphbs = listf hbs in let (widinfo_sub, hgt, dpt) = get_total_metrics lphbs in - let (_lphbs_new, widinfo_total) = append_horz_padding_pure lphbs widinfo_sub pads in + let (lphbs_new, widinfo_total) = append_horz_padding_pure lphbs widinfo_sub pads in let metrics = (widinfo_total, hgt +% pads.paddingT, dpt -% pads.paddingB) in - puref (LBOuterFrame{ metrics; decoration; contents = lphbs }) - (* TODO: doubtful; maybe should use `lphbs_new` for `contents` *) + puref (LBOuterFrame{ metrics; decoration; contents = lphbs_new }) | PHGInnerFrame{ paddings = pads; decoration = deco; contents = hbs } -> let lphbs = listf hbs in