From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 5 Aug 2019 17:08:08 +0000 (+0100)
Subject: doc/sod.sty: Debug `@;'.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/7dd104a3fdcd6f0094ec2e0f8c6a18564949eb49?ds=sidebyside

doc/sod.sty: Debug `@;'.

OMG.

  * Don't eat the `\\' and then hope to find it.

  * Actually chew through the `;' characters rather than piling them up.

  * Don't eat spaces while looking for more `;'s.
---

diff --git a/doc/sod.sty b/doc/sod.sty
index e88f2d5..45d623e 100644
--- a/doc/sod.sty
+++ b/doc/sod.sty
@@ -154,9 +154,9 @@
 %% Comment setting.
 \def\comment#1{\mbox{\normalfont\itshape\/#1\/}}
 \atdef /*#1*/{/*\comment{#1}*/}
-\def\@semis{\@ifnextchar;{;\@semis}\@semicomment}
+\def\@semis;{\@ifnextchar@preserve;{;\@semis}\@semicomment}
 \def\@semicomment#1\\{\comment{#1}\\}
-\atdef ;#1\\{;\@semis}
+\atdef ;{;\@semis;}
 
 %% Environment for setting programs.  Newlines are explicit, because
 %% otherwise I need comments in weird places to make the vertical spacing