Fix off-by-one in arguments of substr() that ate first letter of .SY,

.EX and .L text.

diff --git a/info/emp2html.pl b/info/emp2html.pl
index fa65ab883e4b78a63581ac142c4ff0860d5de3fb..17b639e80e6a2af86268348de78fef280ff46cf5 100644 (file)
--- 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 234ecd10a79b55de3322070a128b61d923b87d28..c06c02e8f1a48041053ce8b138e7ec46c93f6baa 100644 (file)
--- 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;
     }