From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 5 Aug 2019 17:06:45 +0000 (+0100)
Subject: doc/sod.sty: Get `@--...' to typeset a sequence of dashes properly.
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/a859637761d7aba58f55383d90c2ba67c2a9d9cb

doc/sod.sty: Get `@--...' to typeset a sequence of dashes properly.

Now we can replace the explicit `--\,--' bodge.
---

diff --git a/doc/concepts.tex b/doc/concepts.tex
index 7e3c1c5..970b710 100644
--- a/doc/concepts.tex
+++ b/doc/concepts.tex
@@ -1127,7 +1127,7 @@ counting system, as follows.
     [role = around]                                             \\
     int obj.teardown()                                          \\
     \{                                                          \\ \ind
-      if (--\,--me@->ref.nref) return (1);                      \\
+      if (@--me@->ref.nref) return (1);                           \\
       else return (CALL_NEXT_METHOD);                         \-\\
     \}                                                        \-\\
   \}
diff --git a/doc/sod.sty b/doc/sod.sty
index 1cfc065..e88f2d5 100644
--- a/doc/sod.sty
+++ b/doc/sod.sty
@@ -141,6 +141,9 @@
   \ifx\ch@>%
     --\raisebox{.4pt}{>}%
     \def\next@{\@firstoftwo{\egroup\penalty200\relax}}%
+  \else\ifx\ch@-%
+    --\,%
+    \def\next@{\@firstoftwo{\futurelet\ch@\@dash}}%
   \else%
     --%
     \let\next@\egroup%