[tex4ht-commits] [SCM] tex4ht updated: r1348 - trunk/lit

[Michal Hoftich]

Author: michal_h21
Date: 2023-07-25 14:18:41 +0000 (Tue, 25 Jul 2023)
New Revision: 1348

Modified:
   trunk/lit/ChangeLog
   trunk/lit/tex4ht-4ht.tex
Log:
Fixed captions in inputed listings

Modified: trunk/lit/ChangeLog
===================================================================
--- trunk/lit/ChangeLog	2023-07-11 20:48:44 UTC (rev 1347)
+++ trunk/lit/ChangeLog	2023-07-25 14:18:41 UTC (rev 1348)
@@ -1,3 +1,8 @@
+2023-07-25  Michal Hoftich  <michal.h21 at gmail.com>
+
+	* tex4ht-4ht.tex (listings.4ht): fixed captions in inputed listings.
+	https://tex.stackexchange.com/a/691965/2891
+
 2023-07-11  Michal Hoftich  <michal.h21 at gmail.com>
 
 	* tex4ht-mathml.tex (mathml.4ht): fixed \tilde accent in MathML.

Modified: trunk/lit/tex4ht-4ht.tex
===================================================================
--- trunk/lit/tex4ht-4ht.tex	2023-07-11 20:48:44 UTC (rev 1347)
+++ trunk/lit/tex4ht-4ht.tex	2023-07-25 14:18:41 UTC (rev 1348)
@@ -32410,7 +32410,10 @@
       \expandafter\lstset\expandafter{\lst at set}% 
       \lsthk at DisplayStyle%
       \catcode\active=\active%
-      \a:lstinputlisting\ht:special{t4ht@[}\lst at Init\relax \let\lst at gobble\z@%
+      \a:lstinputlisting\ht:special{t4ht@[}
+      \pend:def\cptA:{\ht:special{t4ht@]}}
+      \append:def\cptD:{\ht:special{t4ht@[}}
+      \lst at Init\relax \let\lst at gobble\z@%
       \lst at SkipToFirst%
       \lst at ifprint \def\lst at next{\input{#1}}% 
              \else \let\lst at next\@empty \fi%