[groff] 01/01: [mom]: Fixes captions not attaching to PDF_IMAGE labels.

[Peter Schaffter]

PTPi pushed a commit to branch master
in repository groff.

commit 11016d37f1e16fa71407f9802b105c016263128c
Author: Peter Schaffter <peter@schaffter.ca>
AuthorDate: Sat Aug 26 14:25:38 2023 -0400

    [mom]: Fixes captions not attaching to PDF_IMAGE labels.
---
 contrib/mom/BUGS    | 5 +++++
 contrib/mom/om.tmac | 5 +++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/contrib/mom/BUGS b/contrib/mom/BUGS
index 6e7a8281e..111ab542a 100644
--- a/contrib/mom/BUGS
+++ b/contrib/mom/BUGS
@@ -21,6 +21,11 @@ the Subject line or you risk my spam filters nuking your 
message.
 
 ====================================================================
 
+Version 2.5_d
+=============
+PDF_IMAGE: captions not being attached to labels when MLA enabled.
+---Fixed---
+
 Version 2.5_c
 =============
 
diff --git a/contrib/mom/om.tmac b/contrib/mom/om.tmac
index 4ac9ff3a2..b0fd1ef55 100644
--- a/contrib/mom/om.tmac
+++ b/contrib/mom/om.tmac
@@ -23635,7 +23635,8 @@ No room to start \\*[MN-pos] margin note #\\n[MN-curr] 
on page \\n[#P].
 \#   <image file> <width> <height> are required.
 \#
 .MAC PDF_IMAGE END
-.    br
+.    ie \\n[#PP]=0 .PP
+.    el .br
 .    if !'\\n[.z]'FLOAT*DIV' \{\
 .       nr pdf-img:float 1
 .       FLOAT
@@ -23868,7 +23869,7 @@ No room to start \\*[MN-pos] margin note #\\n[MN-curr] 
on page \\n[#P].
 .       nr pdf-img*label-lead-diff \\n[lead-pre-label]-\\n[.v]
 .       sp -.5+\\*[$CAP_HEIGHT]+\\n[pdf-img*label-lead-diff]u
 .       if !'\\*[pdf-img*label-space]'' .sp \\*[pdf-img*label-space]
-.       if \\n[pdfbx-running] \{\
+.       if r pdfbx-running \{\
 .          in -(\\*[wt\\n[stack]])+\\*[gap\\n[stack]]u
 .          ll -(\\*[wt\\n[stack]])+\\*[gap\\n[stack]]u
 .       \}