groff/doc/texinfo.tex

5555 \newtoks\macname    % Macro name
5643   \getargs{#1}%           now \macname is the macname and \argl the arglist
5649   \if1\csname ismacro.\the\macname\endcsname
5650      \message{Warning: redefining \the\macname}%
5652      \expandafter\ifx\csname \the\macname\endcsname \relax
5653      \else \errmessage{Macro name \the\macname\space already defined}\fi
5654      \global\cslet{macsave.\the\macname}{\the\macname}%
5655      \global\expandafter\let\csname ismacro.\the\macname\endcsname=1%
5659        \expandafter\noexpand\csname\the\macname\endcsname}%
5697 \def\getmacname #1 #2\relax{\macname={#1}}
5742       \expandafter\xdef\csname\the\macname\endcsname{%
5745       \expandafter\xdef\csname\the\macname\endcsname{%
5748          \expandafter\noexpand\csname\the\macname xxx\endcsname}%
5749       \expandafter\xdef\csname\the\macname xxx\endcsname##1{%
5752       \expandafter\xdef\csname\the\macname\endcsname{%
5754          \noexpand\csname\the\macname xx\endcsname}%
5755       \expandafter\xdef\csname\the\macname xx\endcsname##1{%
5756           \expandafter\noexpand\csname\the\macname xxx\endcsname ##1,}%
5760         \csname\the\macname xxx\endcsname
5766       \expandafter\xdef\csname\the\macname\endcsname{%
5767         \noexpand\norecurse{\the\macname}%
5770       \expandafter\xdef\csname\the\macname\endcsname{%
5773          \expandafter\noexpand\csname\the\macname xxx\endcsname}%
5774       \expandafter\xdef\csname\the\macname xxx\endcsname##1{%
5776         \noexpand\norecurse{\the\macname}%
5779       \expandafter\xdef\csname\the\macname\endcsname{%
5781          \expandafter\noexpand\csname\the\macname xx\endcsname}%
5782       \expandafter\xdef\csname\the\macname xx\endcsname##1{%
5783           \expandafter\noexpand\csname\the\macname xxx\endcsname ##1,}%
5787       \csname\the\macname xxx\endcsname
5790           \noexpand\norecurse{\the\macname}%