[groff] 05/05: tmac/strip.sed: Escape '.' wildcard.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit 8fc53e4fd397f210a210fa006eaa5bc8e8012044
Author: John Gardner <gardnerjohng@gmail.com>
AuthorDate: Mon Jan 4 09:17:27 2021 +1100

    tmac/strip.sed: Escape '.' wildcard.
    
    * tmac/strip.sed: Escape '.' wildcard when matching lines using
      .as and .ds requests.
    
    Problem dates back to 058f72af832fc68488d33cd09ec819e5c560fa09, 23 March
    2001.
    
    Fixes <https://savannah.gnu.org/bugs/?59498>.
---
 ChangeLog      | 7 +++++++
 tmac/strip.sed | 4 ++--
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e75f920..31b39f3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2021-01-04  John Gardner <gardnerjohng@gmail.com>
+
+       * tmac/strip.sed: Escape '.' wildcard when matching lines using
+       .as and .ds requests.
+
+       Fixes <https://savannah.gnu.org/bugs/?59498>.
+
 2021-01-04  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        Document use of SOURCE_DATE_EPOCH and TZ.
diff --git a/tmac/strip.sed b/tmac/strip.sed
index 7175637..54613a1 100644
--- a/tmac/strip.sed
+++ b/tmac/strip.sed
@@ -7,7 +7,7 @@
   s/^\\#.*/./
   s/\\".*/\\"/
   s/\\#.*/\\/
-  /.[ad]s/!s/[  ]*\\"//
-  /.[ad]s/s/\([^        ]*\)\\"/\1/
+  /\.[ad]s/!s/[         ]*\\"//
+  /\.[ad]s/s/\([^       ]*\)\\"/\1/
   /^\.$/d
 }