[bug #55320] [PATCH] tmac/an-old.tmac: Add a warning about a missing .RS or an extra .RE

[G. Branden Robinson]

Update of bug #55320 (project groff):

                  Status:               Confirmed => In Progress            

    _______________________________________________________

Follow-up Comment #2:

I have my own fix for this ready to push.


diff --git a/tmac/an-old.tmac b/tmac/an-old.tmac
index b7781eca..ba1ad64f 100644
--- a/tmac/an-old.tmac
+++ b/tmac/an-old.tmac
@@ -579,6 +579,21 @@
 ..
 .
 .de1 RE
+.  ie \\n[.$] .nr an-RE-requested-level \\$1
+.  el         .nr an-RE-requested-level (\\n[an-level] - 1)
+.  ie \\n[.$] \{\
+.    if (\\n[an-RE-requested-level] = \\n[an-level]) \
+.      ds an-RE-problem redundant; already at level \\n[an-level]\"
+.    if (\\n[an-RE-requested-level] > \\n[an-level]) \
+.      ds an-RE-problem too large\"
+.    if (\\n[an-RE-requested-level] < 1) \
+.      ds an-RE-problem too small\"
+.    if d an-RE-problem \
+.      an-style-warn argument """\\$1""" to .\\$0 \\*[an-RE-problem]
+.    rm an-RE-problem
+.  \}
+.  el .if !(\\n[an-RE-requested-level]) .an-style-warn unbalanced .\\$0
+.  rr an-RE-requested-level
 .  ie \\n[.$] .nr an-level ((;\\$1) <? \\n[an-level])
 .  el         .nr an-level -1
 .  nr an-level (1 >? \\n[an-level])


    _______________________________________________________

Reply to this item at:

  <https://savannah.gnu.org/bugs/?55320>

_______________________________________________
  Message sent via Savannah
  https://savannah.gnu.org/