[groff] 56/115: [man]: Stop `HP` producing excess vertical space.

[G. Branden Robinson]

gbranden pushed a commit to branch branden-2022-06-01
in repository groff.

commit 53ceb8f807ac36b3ff4bf35d60773e0084af4eb4
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Mon May 1 05:14:26 2023 -0500

    [man]: Stop `HP` producing excess vertical space.
    
    * tmac/an.tmac (HP): Fix thinko/typo when expanding macro as string to
      call `an-deprecation-warn`.
    * tmac/an-ext.tmac (SY): Put 1v of vertical space on the output if we
      are starting a (non-nested) synopsis.
    
    Thanks to Alex Colomar for the report.  Problem introduced by me in
    commit aea1dfb11b, 6 March 2022.
    
    https://lists.gnu.org/archive/html/groff/2023-04/msg00369.html
---
 ChangeLog        | 12 ++++++++++++
 tmac/an-ext.tmac |  1 +
 tmac/an.tmac     |  2 +-
 3 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 522195d75..862ad532f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,15 @@
+2023-05-13  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       [man]: Stop `HP` producing excess vertical space.
+
+       * tmac/an.tmac (HP): Fix thinko/typo when expanding macro as
+       string to call `an-deprecation-warn`.
+       * tmac/an-ext.tmac (SY): Put 1v of vertical space on the output
+       if we are starting a (non-nested) synopsis.
+
+       Thanks to Alex Colomar for the report.  Problem introduced by me
+       in commit aea1dfb11b, 6 March 2022.
+
 2023-04-28  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        [ms]: Default vertical spacing to 120% of type size, not 2
diff --git a/tmac/an-ext.tmac b/tmac/an-ext.tmac
index 5035bb292..405077dfa 100644
--- a/tmac/an-ext.tmac
+++ b/tmac/an-ext.tmac
@@ -62,6 +62,7 @@
 .    nr mA \\n(.j
 .    ad l
 .    nr mI \\n(.i
+.    sp
 .  \}
 .  el \{\
 .    br
diff --git a/tmac/an.tmac b/tmac/an.tmac
index 9e38ba569..dff0297fe 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -805,7 +805,7 @@ contains unsupported escape sequence
 .\" Set a paragraph with a hanging indentation.
 .\" .HP [indent]
 .de1 HP
-.  if !\\n[mS] \\*[an-deprecation-warn]\c
+.  if !\\n[mS] \\*[an-deprecation-warn]\\
 .  an-break-paragraph
 .  ne (1v + 1u)
 .  if \\n[.$] .nr an-prevailing-indent (n;\\$1)