[groff] 58/72: [man, ms]: Fix Savannah #63197.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit f35dcc992c1852802347d1758588c1862808d9b9
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Sun Oct 23 13:56:08 2022 -0500

    [man, ms]: Fix Savannah #63197.
    
    * tmac/an.tmac:
    * tmac/s.tmac: Escape newlines when opening conditional blocks.
    
    Fixes <https://savannah.gnu.org/?63197>.  Thanks to Bjarni Ingi Gislason
    for the report and Dave Kemper for the quick fix.
    
    Problems introduced by me in commits d56382d8ff, 2021-05-19; d576e17aa9,
    2021-05-08 (man); and 1887bbe68c, 2021-11-05 (ms).
---
 ChangeLog    | 8 ++++++++
 tmac/an.tmac | 6 +++---
 tmac/s.tmac  | 2 +-
 3 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 98e18e03b..02352cfe3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2022-10-23  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * tmac/an.tmac:
+       * tmac/s.tmac: Escape newlines when opening conditional blocks.
+
+       Fixes <https://savannah.gnu.org/?63197>.  Thanks to Bjarni Ingi
+       Gislason for the report and Dave Kemper for the quick fix.
+
 2022-10-21  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * src/devices/grodvi/dvi.cpp (usage):
diff --git a/tmac/an.tmac b/tmac/an.tmac
index 90ccb67fc..7cafe691a 100644
--- a/tmac/an.tmac
+++ b/tmac/an.tmac
@@ -1297,7 +1297,7 @@ contains unsupported escape sequence
 .  if \n[cR] \
 .    ds an-msg when continuously rendering
 .\}
-.if d an-msg \{
+.if d an-msg \{\
 .  tm \*[an]: ignoring starting page number \*[an-msg]
 .  rr P
 .  rm an-msg
@@ -1336,7 +1336,7 @@ contains unsupported escape sequence
 .  if \n[cR] \
 .    ds an-msg when continuously rendering
 .\}
-.if d an-msg \{
+.if d an-msg \{\
 .  tm \*[an]: ignoring page number suffix \*[an-msg]
 .  rr X
 .  rm an-msg
@@ -1355,7 +1355,7 @@ contains unsupported escape sequence
 .substring an-heading-style -1 -1
 .ds an-heading-family \" empty
 .length an-HF-length \*[HF]
-.if (\n[an-HF-length] > 1) \{
+.if (\n[an-HF-length] > 1) \{\
 .  as an-heading-family \*[HF]\"
 .  substring an-heading-family 0 -2
 .\}
diff --git a/tmac/s.tmac b/tmac/s.tmac
index aa7b347b6..cc4a45d0e 100644
--- a/tmac/s.tmac
+++ b/tmac/s.tmac
@@ -1078,7 +1078,7 @@ along with this program.  If not, see 
<http://www.gnu.org/licenses/>.
 .                      \}
 .              \}
 .      \}
-.      ie \\n[ds*badarg] \{
+.      ie \\n[ds*badarg] \{\
 .              ds ds*msg unrecognized argument '\\$1' to .\\$0;\"
 .              as ds*msg " did you mean '.\\$0 I \\$1'?\"
 .              @error \\*[ds*msg]