From: Karl Berry <karl@gnu.org>
Date: Sat, 9 Nov 1996 23:37:11 +0000 (+0000)
Subject:  (\set, \value): Allow - and _ in @set variable names.
X-Git-Tag: 3.75.1~59
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=10011ce2890bbac3b5f968a98a9547aa3c8e0823;p=thirdparty%2Fmake.git

 (\set, \value): Allow - and _ in @set variable names.
---

diff --git a/texinfo.tex b/texinfo.tex
index 22d0ae02..8e2ce6ef 100644
--- a/texinfo.tex
+++ b/texinfo.tex
@@ -868,7 +868,9 @@ where each line of input produces a line of output.}
 % didn't need it.  Make sure the catcode of space is correct to avoid
 % losing inside @example, for instance.
 %
-\def\set{\begingroup\catcode` =10 \parsearg\setxxx}
+\def\set{\begingroup\catcode` =10
+  \catcode`\-=12 \catcode`\_=12 % Allow - and _ in VAR.
+  \parsearg\setxxx}
 \def\setxxx#1{\setyyy#1 \endsetyyy}
 \def\setyyy#1 #2\endsetyyy{%
   \def\temp{#2}%
@@ -889,10 +891,16 @@ where each line of input produces a line of output.}
 
 % @value{foo} gets the text saved in variable foo.
 %
-\def\value#1{\expandafter
-                \ifx\csname SET#1\endcsname\relax
-                        {\{No value for ``#1''\}}
-                \else \csname SET#1\endcsname \fi}
+\def\value{\begingroup
+  \catcode`\-=12 \catcode`\_=12 % Allow - and _ in VAR.
+  \parsearg\valuexxx}
+\def\valuexxx#1{%
+  \expandafter\ifx\csname SET#1\endcsname\relax
+    {\{No value for ``#1''\}}%
+  \else
+    \csname SET#1\endcsname
+  \fi
+\endgroup}
 
 % @ifset VAR ... @end ifset reads the `...' iff VAR has been defined
 % with @set.