From f71b9a6de23dd98bbcc4e41d119a4fecb99722bb Mon Sep 17 00:00:00 2001
From: Markus Armbruster <armbru@pond.sub.org>
Date: Fri, 6 Feb 2004 19:31:41 +0000
Subject: [PATCH] Fix off-by-one in arguments of substr() that ate first letter
 of .SY, .EX and .L text.

---
 info/emp2html.pl  | 6 +++---
 info/subj2html.pl | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/info/emp2html.pl b/info/emp2html.pl
index fa65ab883..17b639e80 100644
--- a/info/emp2html.pl
+++ b/info/emp2html.pl
@@ -24,20 +24,20 @@ procline:
     if (/^\.SY../) {
 #	$i = $_ =~ "\"" && ($RLENGTH = length($&), $RSTART = length($`)+1);
 #	$str = substr($_, $i + 1, length($_) - $i - 1);
-	$str = substr($_,5);
+	$str = substr($_,4);
 	$str = &htmlify($str);
 	printf "<samp>[##:##] </samp><KBD>%s</KBD><p>\n", $str;
 	next line;
     }
 
     if (/^\.EX../) {
-	$str = substr($_, 5);
+	$str = substr($_, 4);
 	printf "<br><samp>[##:##] </samp><kbd>%s</kbd><p>\n", &htmlify($str);
 	next line;
     }
 
     if (/^\.L../) {
-	$str = substr($_, 4);
+	$str = substr($_, 3);
 	printf "<h2>%s</h2>\n", &htmlify($str);
 	next line;
     }
diff --git a/info/subj2html.pl b/info/subj2html.pl
index 234ecd10a..c06c02e8f 100644
--- a/info/subj2html.pl
+++ b/info/subj2html.pl
@@ -25,14 +25,14 @@ procline:
     if (/^\.SY../) {
 #	$i = $_ =~ "\"" && ($RLENGTH = length($&), $RSTART = length($`)+1);
 #	$str = substr($_, $i + 1, length($_) - $i - 1);
-	$str = substr($_,5);
+	$str = substr($_,4);
 	$str = &htmlify($str);
 	printf "<samp>[##:##] </samp><KBD>%s</KBD><p>\n", $str;
 	next line;
     }
 
     if (/^\.EX../) {
-	$str = substr($_, 5);
+	$str = substr($_, 4);
 	printf "<br><samp>[##:##] </samp><kbd>%s</kbd><p>\n", &htmlify($str);
 	next line;
     }
-- 
2.43.0