doc/sod.sty: Hack underscores in the labels generated by `describe'.

Turn them into `-' because otherwise everything goes wrong.

diff --git a/doc/sod.sty b/doc/sod.sty
index 105a6c709903f59d979c0d8e7e9f88310b51d21d..7a5260578032c41b744bab6d105b822e65eba14e 100644 (file)
--- a/doc/sod.sty
+++ b/doc/sod.sty
@@ -152,7 +152,10 @@
   \vspace{\bigskipamount}%
   \setbox\z@\hbox{\bfseries[\describecategoryname{#2}]}%
   \dimen@\linewidth\advance\dimen@-\wd\z@%
   \vspace{\bigskipamount}%
   \setbox\z@\hbox{\bfseries[\describecategoryname{#2}]}%
   \dimen@\linewidth\advance\dimen@-\wd\z@%

-  \def\@temp##1 ##2\q@{\message{#2:##1}\label{#2:##1}}%
+  \def\@temp##1 ##2\q@{%
+    \message{#2:##1}%
+    {\def\@uscore####1{-}\edef\@tempb{\noexpand\label{#2:##1}}\@tempb}%
+  }%

   \def\@tempa{#1}\ifx\@tempa\q@\@temp#3 \q@\else\@temp{#1} \q@\fi%
   \edef\@temp{{\the\linewidth}{@{}p{\the\dimen@}%
       @{\extracolsep{\fill}}l@{\extracolsep{0pt}}}}%
   \def\@tempa{#1}\ifx\@tempa\q@\@temp#3 \q@\else\@temp{#1} \q@\fi%
   \edef\@temp{{\the\linewidth}{@{}p{\the\dimen@}%
       @{\extracolsep{\fill}}l@{\extracolsep{0pt}}}}%