[latex3-commits] [git/LaTeX3-latex3-latex2e] gh963: A couple missing \long (ad46d041)

[PhelypeOleinik]

Repository : https://github.com/latex3/latex2e
On branch  : gh963
Link       : https://github.com/latex3/latex2e/commit/ad46d041ad8051bab6dc3b3b60501455247cb3ad

>---------------------------------------------------------------

commit ad46d041ad8051bab6dc3b3b60501455247cb3ad
Author: PhelypeOleinik <phelype.oleinik at latex-project.org>
Date:   Wed Nov 30 02:05:17 2022 -0300

    A couple missing \long


>---------------------------------------------------------------

ad46d041ad8051bab6dc3b3b60501455247cb3ad
 base/ltdefns.dtx                     | 4 ++--
 base/testfiles-ltcmd/github-0963.lvt | 3 +++
 base/testfiles-ltcmd/github-0963.tlg | 7 +++++++
 3 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/base/ltdefns.dtx b/base/ltdefns.dtx
index a90e6a0f..c604bd96 100644
--- a/base/ltdefns.dtx
+++ b/base/ltdefns.dtx
@@ -2027,7 +2027,7 @@
 %   \cs{showtokens} itself, and the internals of this macro aren't
 %   showed in the context lines.
 %    \begin{macrocode}
-\def\@show at tokens#1{%
+\long\def\@show at tokens#1{%
   \edef\reserved at a{#1}%
   \showtokens\expandafter
     \expandafter\expandafter{\expandafter\reserved at a}}
@@ -2115,7 +2115,7 @@
       \csname\@expl at cs@to at str@@N#1 \endcsname
   \endgroup
   \@show at environment@end#1}
-\def\@show at environment@begin#1{%
+\long\def\@show at environment@begin#1{%
   \typeout{> \string\begin{\@expl at cs@to at str@@N#1}=environment:}%
   \typeout{\@expl at cs@argument at spec@@N#1->%
            \@expl at cs@replacement at spec@@N#1.^^J}}
diff --git a/base/testfiles-ltcmd/github-0963.lvt b/base/testfiles-ltcmd/github-0963.lvt
index f088dcc5..94c060bc 100644
--- a/base/testfiles-ltcmd/github-0963.lvt
+++ b/base/testfiles-ltcmd/github-0963.lvt
@@ -69,4 +69,7 @@
 \DeclareRobustCommand\myfont[1][opt]{\bfseries}
 \ShowEnvironment{myfont}
 
+\typeout{---------- show runaway arg -------}
+\ShowEnvironment{par}
+
 \END
diff --git a/base/testfiles-ltcmd/github-0963.tlg b/base/testfiles-ltcmd/github-0963.tlg
index 8bfbbf5c..dae80d97 100644
--- a/base/testfiles-ltcmd/github-0963.tlg
+++ b/base/testfiles-ltcmd/github-0963.tlg
@@ -122,3 +122,10 @@ l. ...\ShowEnvironment{foo}
 > \end{myfont}=undefined.
 <recently read> }
 l. ...\ShowEnvironment{myfont}
+---------- show runaway arg -------
+> \begin{par}=environment:
+->
+.
+> \end{par}=undefined.
+<recently read> }
+l. ...\ShowEnvironment{par}