X-Git-Url: https://git.distorted.org.uk/~mdw/mdwtools/blobdiff_plain/baa9f3563a25ec9040d59b44a86d62f4d9786258..d3d35d4b9cd15420d2111264dab1977517b1d02e:/sverb.dtx

diff --git a/sverb.dtx b/sverb.dtx
index f579d4a..99b5549 100644
--- a/sverb.dtx
+++ b/sverb.dtx
@@ -44,7 +44,7 @@
 %<+split>                [2003/09/04 1.4 Verbatim, but with line breaking]
 % \end{meta-comment}
 %
-% \CheckSum{1009}
+% \CheckSum{1011}
 %% \CharacterTable
 %%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
 %%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
@@ -598,7 +598,7 @@
 %
 %    \begin{macrocode}
 \def\verbinput{\listinghook\@ifstar{\verbinput@\@input}{\verbinput@\input}}
-\def\verbinput@#1#2{%  
+\def\verbinput@#1#2{%
   \sv@startlisting%
   \setbox\z@\hbox\bgroup%
   #1{#2}%
@@ -729,9 +729,11 @@
 % expand to a space character which is not active.  Neat, huh?
 %
 %    \begin{macrocode}
+\begingroup
 \lccode`\~32
 \lccode`\!32
 \lowercase{%
+  \endgroup
   \def\@isspaces#1{%
     \ifx#1\relax%
       \def\@tempb{\@tempswafalse}%
@@ -898,7 +900,7 @@
 % If you say \syntax{"\\sv@readenv{"<macro-name>"}"}, it will expand do
 % \begin{listinglist} \listingsize \synshorts
 % <macro-name>"{\\"$_{12}$"end{"$_{12}$<current-env-name>"}"$_{12}$"}"^^A
-%		"{\\end{"<current-env-name>"}}"
+%               "{\\end{"<current-env-name>"}}"
 % \end{listinglist}
 % Easy, no?
 %
@@ -1474,7 +1476,7 @@
 % whitespace on the line.
 %
 %    \begin{macrocode}
-\dimendef\svsplit@remain=1 
+\dimendef\svsplit@remain=1
 \dimendef\svsplit@indent=2
 %    \end{macrocode}
 %
@@ -1596,7 +1598,7 @@
 %    \end{macrocode}
 %
 % Otherwise it's a normal character.  If there's not enough space then force
-% a break.  
+% a break.
 %
 %    \begin{macrocode}
     \else%