Escape leading single quote in blocks

n-peugnet · n-peugnet · commit 52b8a411bd28 · 2025-11-08T18:30:10.000+01:00
diff --git a/main.go b/main.go
@@ -391,6 +391,7 @@ var blockEscaper = NewRegexpReplacer(
 	`\\`, `\(rs`,
 	"\n\n+", "\n.PP\n",
 	`(?m)^\.`, `\&.`,
+	`(?m)^\'`, `\&'`,
 )
 
 var fieldEscaper = NewRegexpReplacer(
diff --git a/testdata/test_full_escapes.1 b/testdata/test_full_escapes.1
@@ -10,5 +10,6 @@ Help message to test the escapes...
 \&...like the leading dot.
 .PP
 Multiple line breaks, words\-with\-hyphens and \(rsbackslashes\(rs.
+\&'BR BR' The no\-break control character is escaped.
 Maybe even more to come...
 .SH OPTIONS
diff --git a/testdata/test_full_escapes.txt b/testdata/test_full_escapes.txt
@@ -5,4 +5,5 @@ Help message to test the escapes...
 
 
 Multiple line breaks, words-with-hyphens and \backslashes\.
+'BR BR' The no-break control character is escaped.
 Maybe even more to come...

Original file line number	Diff line number	Diff line change
`@@ -391,6 +391,7 @@ var blockEscaper = NewRegexpReplacer(`
`391`	`391`	`\\`, `\(rs`,
`392`	`392`	`"\n\n+", "\n.PP\n",`
`393`	`393`	`(?m)^\.`, `\&.`,
	`394`	+ `(?m)^\'`, `\&'`,
`394`	`395`	`)`
`395`	`396`
`396`	`397`	`var fieldEscaper = NewRegexpReplacer(`
Original file line number	Diff line number	Diff line change
`@@ -5,4 +5,5 @@ Help message to test the escapes...`
`5`	`5`
`6`	`6`
`7`	`7`	`Multiple line breaks, words-with-hyphens and \backslashes\.`
	`8`	`+'BR BR' The no-break control character is escaped.`
`8`	`9`	`Maybe even more to come...`