remove catcode

HsH-classes.dtx

@@ -190,7 +190,6 @@
 %% typesetting indexes upright or standart
 \def\subinrm#1{\sb{\mathrm{#1}}}
 {\catcode`\_=13 \global\let_=\subinrm}
-\mathcode`_="8000
 % the toggle for upright subscripts
 \newcommand\upsubscripts{\catcode`\_=12 }
 % the toggle for italic subscripts

src/HsH-article.cls

@@ -140,7 +140,6 @@
 %% typesetting indexes upright or standart
 \def\subinrm#1{\sb{\mathrm{#1}}}
 {\catcode`\_=13 \global\let_=\subinrm}
-\mathcode`_="8000
 \newcommand\upsubscripts{\catcode`\_=12 }
 \newcommand\normalsubscripts{\catcode`\_=8 }
 \upsubscripts
@@ -153,14 +152,22 @@
       \ifx\@shorttitle\@empty\@title\else\@shorttitle\fi
     }%
   }
-  {\parbox[b]{\sls@headwidth}{\LaTeXraggedleft\leftmark}}
+  {
+    \parbox[b]{\sls@headwidth}{
+      \LaTeXraggedleft
+      \leftmark
+    }%
+  }
   {
     \parbox[b]{.45\sls@headwidth}{
       \LaTeXraggedright
       \ifx\@shorttitle\@empty\@title\else\@shorttitle\fi
     }%
     \hfill
-    \parbox[b]{.45\sls@headwidth}{\LaTeXraggedleft\headmark}%
+    \parbox[b]{.45\sls@headwidth}{
+      \LaTeXraggedleft
+      \headmark
+    }%
   }
   (\textwidth,.1pt)
 }{

src/HsH-report.cls

@@ -140,7 +140,6 @@
 %% typesetting indexes upright or standart
 \def\subinrm#1{\sb{\mathrm{#1}}}
 {\catcode`\_=13 \global\let_=\subinrm}
-\mathcode`_="8000
 \newcommand\upsubscripts{\catcode`\_=12 }
 \newcommand\normalsubscripts{\catcode`\_=8 }
 \upsubscripts
@@ -153,14 +152,22 @@
       \ifx\@shorttitle\@empty\@title\else\@shorttitle\fi
     }%
   }
-  {\parbox[b]{\sls@headwidth}{\LaTeXraggedleft\leftmark}}
+  {
+    \parbox[b]{\sls@headwidth}{
+      \LaTeXraggedleft
+      \leftmark
+    }%
+  }
   {
     \parbox[b]{.45\sls@headwidth}{
       \LaTeXraggedright
       \ifx\@shorttitle\@empty\@title\else\@shorttitle\fi
     }%
     \hfill
-    \parbox[b]{.45\sls@headwidth}{\LaTeXraggedleft\headmark}%
+    \parbox[b]{.45\sls@headwidth}{
+      \LaTeXraggedleft
+      \headmark
+    }%
   }
   (\textwidth,.1pt)
 }{

src/HsH-standalone.cls

@@ -84,7 +84,6 @@
 %% typesetting indexes upright or standart
 \def\subinrm#1{\sb{\mathrm{#1}}}
 {\catcode`\_=13 \global\let_=\subinrm}
-\mathcode`_="8000
 \newcommand\upsubscripts{\catcode`\_=12 }
 \newcommand\normalsubscripts{\catcode`\_=8 }
 \upsubscripts