From 3c9b5c2960ae2455180bdb3a4e67bf10175b39af Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Tue, 12 Apr 2011 22:56:39 +0000
Subject: oberdiek (12apr11)

git-svn-id: svn://tug.org/texlive/trunk@22061 c570f23f-e606-0410-a88d-b1316a301751
---
 .../texmf-dist/tex/generic/oberdiek/infwarerr.sty  | 102 ++++++++++++---------
 1 file changed, 58 insertions(+), 44 deletions(-)

(limited to 'Master/texmf-dist/tex/generic/oberdiek/infwarerr.sty')

diff --git a/Master/texmf-dist/tex/generic/oberdiek/infwarerr.sty b/Master/texmf-dist/tex/generic/oberdiek/infwarerr.sty
index c20ab20c5c7..0d0d68483f2 100644
--- a/Master/texmf-dist/tex/generic/oberdiek/infwarerr.sty
+++ b/Master/texmf-dist/tex/generic/oberdiek/infwarerr.sty
@@ -34,14 +34,18 @@
 %%    infwarerr-test1.tex, infwarerr-test2.tex,
 %%    infwarerr-test3.tex.
 %% 
-\begingroup
-  \catcode44 12 % ,
-  \catcode45 12 % -
-  \catcode46 12 % .
-  \catcode58 12 % :
-  \catcode64 11 % @
-  \catcode123 1 % {
-  \catcode125 2 % }
+\begingroup\catcode61\catcode48\catcode32=10\relax%
+  \catcode13=5 % ^^M
+  \endlinechar=13 %
+  \catcode35=6 % #
+  \catcode39=12 % '
+  \catcode44=12 % ,
+  \catcode45=12 % -
+  \catcode46=12 % .
+  \catcode58=12 % :
+  \catcode64=11 % @
+  \catcode123=1 % {
+  \catcode125=2 % }
   \expandafter\let\expandafter\x\csname ver@infwarerr.sty\endcsname
   \ifx\x\relax % plain-TeX, first loading
   \else
@@ -49,7 +53,6 @@
     \ifx\x\empty % LaTeX, first loading,
       % variable is initialized, but \ProvidesPackage not yet seen
     \else
-      \catcode35 6 % #
       \expandafter\ifx\csname PackageInfo\endcsname\relax
         \def\x#1#2{%
           \immediate\write-1{Package #1 Info: #2.}%
@@ -61,21 +64,24 @@
       \aftergroup\endinput
     \fi
   \fi
-\endgroup
-\begingroup
-  \catcode35 6 % #
-  \catcode40 12 % (
-  \catcode41 12 % )
-  \catcode44 12 % ,
-  \catcode45 12 % -
-  \catcode46 12 % .
-  \catcode47 12 % /
-  \catcode58 12 % :
-  \catcode64 11 % @
-  \catcode91 12 % [
-  \catcode93 12 % ]
-  \catcode123 1 % {
-  \catcode125 2 % }
+\endgroup%
+\begingroup\catcode61\catcode48\catcode32=10\relax%
+  \catcode13=5 % ^^M
+  \endlinechar=13 %
+  \catcode35=6 % #
+  \catcode39=12 % '
+  \catcode40=12 % (
+  \catcode41=12 % )
+  \catcode44=12 % ,
+  \catcode45=12 % -
+  \catcode46=12 % .
+  \catcode47=12 % /
+  \catcode58=12 % :
+  \catcode64=11 % @
+  \catcode91=12 % [
+  \catcode93=12 % ]
+  \catcode123=1 % {
+  \catcode125=2 % }
   \expandafter\ifx\csname ProvidesPackage\endcsname\relax
     \def\x#1#2#3[#4]{\endgroup
       \immediate\write-1{Package: #3 #4}%
@@ -94,29 +100,38 @@
   \fi
 \expandafter\x\csname ver@infwarerr.sty\endcsname
 \ProvidesPackage{infwarerr}%
-  [2010/04/08 v1.3 Providing info/warning/message (HO)]
-\begingroup
-  \catcode123 1 % {
-  \catcode125 2 % }
+  [2010/04/08 v1.3 Providing info/warning/message (HO)]%
+\begingroup\catcode61\catcode48\catcode32=10\relax%
+  \catcode13=5 % ^^M
+  \endlinechar=13 %
+  \catcode123=1 % {
+  \catcode125=2 % }
+  \catcode64=11 % @
   \def\x{\endgroup
     \expandafter\edef\csname InfWarErr@AtEnd\endcsname{%
-      \catcode35 \the\catcode35\relax
-      \catcode64 \the\catcode64\relax
-      \catcode123 \the\catcode123\relax
-      \catcode125 \the\catcode125\relax
+      \endlinechar=\the\endlinechar\relax
+      \catcode13=\the\catcode13\relax
+      \catcode32=\the\catcode32\relax
+      \catcode35=\the\catcode35\relax
+      \catcode61=\the\catcode61\relax
+      \catcode64=\the\catcode64\relax
+      \catcode123=\the\catcode123\relax
+      \catcode125=\the\catcode125\relax
     }%
   }%
-\x
-\catcode35 6 % #
-\catcode64 11 % @
-\catcode123 1 % {
-\catcode125 2 % }
+\x\catcode61\catcode48\catcode32=10\relax%
+\catcode13=5 % ^^M
+\endlinechar=13 %
+\catcode35=6 % #
+\catcode64=11 % @
+\catcode123=1 % {
+\catcode125=2 % }
 \def\TMP@EnsureCode#1#2{%
   \edef\InfWarErr@AtEnd{%
     \InfWarErr@AtEnd
-    \catcode#1 \the\catcode#1\relax
+    \catcode#1=\the\catcode#1\relax
   }%
-  \catcode#1 #2\relax
+  \catcode#1=#2\relax
 }
 \TMP@EnsureCode{10}{12}% ^^J
 \TMP@EnsureCode{39}{12}% '
@@ -127,9 +142,9 @@
 \TMP@EnsureCode{46}{12}% .
 \TMP@EnsureCode{58}{12}% :
 \TMP@EnsureCode{60}{12}% <
-\TMP@EnsureCode{61}{12}% =
 \TMP@EnsureCode{62}{12}% >
 \TMP@EnsureCode{94}{7}% ^
+\edef\InfWarErr@AtEnd{\InfWarErr@AtEnd\noexpand\endinput}
 \begingroup
   \let\x=Y%
   \def\check#1{%
@@ -165,9 +180,8 @@
   \let\@ClassWarningNoLine\ClassWarningNoLine
   \let\@PackageError\PackageError
   \let\@ClassError\ClassError
-  \InfWarErr@AtEnd
-  \expandafter\endinput
-\fi
+  \expandafter\InfWarErr@AtEnd
+\fi%
 \begingroup\expandafter\endgroup
 \ifcase\expandafter\ifx\csname inputlineno\endcsname\relax
          0 %
@@ -299,7 +313,7 @@
     See the #1 class documentation for explanation.%
   }{#3}%
 }
-\InfWarErr@AtEnd
+\InfWarErr@AtEnd%
 \endinput
 %%
 %% End of file `infwarerr.sty'.
-- 
cgit v1.2.3

