doc/sod.sty: Get `\@scripts' to cope if `_' isn't active.

diff --git a/doc/sod.sty b/doc/sod.sty
index 45d623e..de9bf3b 100644 (file)
--- a/doc/sod.sty
+++ b/doc/sod.sty
@@ -106,7 +106,7 @@
 %% conditionally.
 \def\@scripts{\futurelet\@ch\@scripts@i}
 \begingroup\lccode`\~=`\_\lowercase{\endgroup
-\def\@scripts@i{\if1\ifx\@ch~1\else\ifx\@ch^1\else0\fi\fi%
+\def\@scripts@i{\if1\ifx\@ch~1\else\ifx\@ch_1\else\ifx\@ch^1\else0\fi\fi\fi%
   \expandafter\@scripts@ii\else\expandafter\m@maybe@end\fi}}
 \def\@scripts@ii#1#2{\m@maybe#1{#2}\@scripts}