texinfo update (Wed Jun 27 03:23:01 EDT 2007)

[Karl Berry]

Index: ChangeLog
===================================================================
RCS file: /sources/texinfo/texinfo/ChangeLog,v
retrieving revision 1.710
retrieving revision 1.712
diff -u -r1.710 -r1.712
--- ChangeLog   24 Jun 2007 21:34:05 -0000      1.710
+++ ChangeLog   27 Jun 2007 07:11:19 -0000      1.712
@@ -1,3 +1,10 @@
+2007-06-27  Oleg Katsitadze  <address@hidden>
+
+       * texinfo.tex (\setnonasciicharscatcodenonglobal): new macro.
+       (\scanctxt):  in case of non-ASCII encodings, un-activate 8-bit
+       chars to avoid their expansion.  Report from John Mandereau on
+       bug-texinfo, Jun 22, 2007 at 05:26:09PM +0200.
+
 2007-06-24  Karl Berry  <address@hidden>
 
        * texinfo.tex (\internalpagesizes): must reset \pdfhorigin and
Index: doc/texinfo.tex
===================================================================
RCS file: /sources/texinfo/texinfo/doc/texinfo.tex,v
retrieving revision 1.240
retrieving revision 1.241
diff -u -r1.240 -r1.241
--- doc/texinfo.tex     24 Jun 2007 21:34:05 -0000      1.240
+++ doc/texinfo.tex     27 Jun 2007 07:03:26 -0000      1.241
@@ -3,7 +3,7 @@
 % Load plain if necessary, i.e., if running under initex.
 \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
 %
-\def\texinfoversion{2007-06-24.14}
+\def\texinfoversion{2007-06-27.09}
 %
 % Copyright (C) 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995,
 % 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
@@ -6332,6 +6332,10 @@
 % all characters are catcode 10, 11 or 12, except \ which is active
 % (as in normal texinfo). It is necessary to change the definition of \.
 
+% Non-ASCII encodings make 8-bit characters active, so un-activate
+% them to avoid their expansion.  Must do this non-globally, to
+% confine the change to the current group.
+
 % It's necessary to have hard CRs when the macro is executed. This is
 % done by  making ^^M (\endlinechar) catcode 12 when reading the macro
 % body, and then making it the \newlinechar in \scanmacro.
@@ -6346,6 +6350,7 @@
   \catcode`\_=\other
   \catcode`\|=\other
   \catcode`\~=\other
+  \ifx\declaredencoding\ascii \else \setnonasciicharscatcodenonglobal\other \fi
 }
 
 \def\scanargctxt{%
@@ -7483,6 +7488,14 @@
    \repeat
 }
 
+\def\setnonasciicharscatcodenonglobal#1{%
+   \count255=128
+   \loop\ifnum\count255<256
+      \catcode\count255=#1
+      \advance\count255 by 1
+   \repeat
+}
+
 % @documentencoding sets the definition of non-ASCII characters
 % according to the specified encoding.
 %
P ChangeLog
P doc/texinfo.tex