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

diff --git a/doc/sod.sty b/doc/sod.sty
index 45d623ed77120086b0e1809e415348e22fe64599..de9bf3bfdd8c3d2aef5e3bbd39658ddd9d9dda57 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
 %% 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}
 
   \expandafter\@scripts@ii\else\expandafter\m@maybe@end\fi}}
 \def\@scripts@ii#1#2{\m@maybe#1{#2}\@scripts}