X-Git-Url: https://git.distorted.org.uk/~mdw/mdwtools/blobdiff_plain/3a9729b4bec04949ba6bc505358ca10be105c0e0..e8e9e5d812460c19d276d9449a1792e2b384eb20:/sverb.dtx

diff --git a/sverb.dtx b/sverb.dtx
index 144b2b5..8432a04 100644
--- a/sverb.dtx
+++ b/sverb.dtx
@@ -6,20 +6,6 @@
 %
 % (c) 1996 Mark Wooding
 %
-%----- Revision history -----------------------------------------------------
-%
-% $Log: sverb.dtx,v $
-% Revision 1.2  2003/09/05 16:09:30  mdw
-% Make listing formatting more hookable.  Add colour support, and `splitverb'
-% environment.
-%
-% Revision 1.1  2002/02/03 20:49:03  mdw
-% Checkin for new build system.
-%
-% Revision 1.3  1996/11/19 21:01:18  mdw
-% Entered into RCS
-%
-%
 % \end{meta-comment}
 %
 % \begin{meta-comment} <general public licence>
@@ -58,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
@@ -612,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}%
@@ -743,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}%
@@ -1488,7 +1476,7 @@
 % whitespace on the line.
 %
 %    \begin{macrocode}
-\dimendef\svsplit@remain=1 
+\dimendef\svsplit@remain=1
 \dimendef\svsplit@indent=2
 %    \end{macrocode}
 %
@@ -1610,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%