ucw-ref: Fixed bug in \pageid

[ucwmac.git] / ucw-verb.tex

diff --git a/ucw-verb.tex b/ucw-verb.tex
index 981aebefbb834fa4062d6e10a142aae038c30c3a..a7b19730e145cf83893bec492fe74c0b1ec38f70 100644 (file)
--- a/ucw-verb.tex
+++ b/ucw-verb.tex
@@ -2,6 +2,8 @@
 % Written by Martin Mares <mj@ucw.cz> in 2010 and placed into public domain
 % -------------------------------------------------------------------------
 
+\ucwdefmodule{verb}
+
 % We'll use internal macros of plain TeX
 \catcode`@=11
 
@@ -42,7 +44,7 @@
 
 \def\verb{\relax\def\sv@rb##1{\uccode`~=`##1%
 \uppercase{\catcode`~13\global\let~\endgroup}}%
-\begingroup\setverb@tim\sv@rb}
+\begingroup\setverb@tim\do\|\sv@rb}
 
 % Typesetting of verbatim blocks:
 %      - the block is enclosed in balanced {}'s
@@ -130,7 +132,7 @@
 
 % Input file verbatim
 
-\def\verbinput#1{\begingroup\v@rbparams\verblocaldefs\setupt@bs\startb@x\input #1 \egroup\endgroup}
+\def\verbinput#1{\begingroup\v@rbparams\verblocaldefs\setupt@bs\startb@x\input #1 \v@rbend}
 
 % Let's hide all internal macros
 \catcode`@=12