memoir fixes for no more mempatch.sty, tex4ht r395

git-svn-id: svn://tug.org/texlive/trunk@47752 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 56 insertions, 1 deletions

diff --git a/Master/texmf-dist/tex/generic/tex4ht/memoir.4ht b/Master/texmf-dist/tex/generic/tex4ht/memoir.4ht
index a729e0100f7..380c9f8be95 100644
--- a/Master/texmf-dist/tex/generic/tex4ht/memoir.4ht
+++ b/Master/texmf-dist/tex/generic/tex4ht/memoir.4ht
@@ -1,4 +1,4 @@
-% memoir.4ht (2018-05-02-14:52), generated from tex4ht-4ht.tex
+% memoir.4ht (2018-05-11-14:26), generated from tex4ht-4ht.tex
 % Copyright 2003-2009 Eitan M. Gurari
 % Copyright 2009-2018 TeX Users Group
 %
@@ -58,6 +58,61 @@
    \append:def\thepoemline{\b:poemline}}
 \append:defII\getthelinenumber{\let\thepoemline\sv:thepoemline}
 
+   \let\no@Msect\M@sect
+\NewConfigure{@sec @ssect}[1]{%
+   \def\rdef:sec##1{#1\csname no@##1\endcsname}}
+\:CheckOption{sections-}     \if:Option
+   \Configure{@sec @ssect}{}
+\else
+   \Configure{@sec @ssect}{%
+      \let\sv:Sc\:Sc \let\sv:sect\@sect \let\sv:ssect\@ssect
+\let\sv:Msect\M@sect
+\let\:Sc\:gobble
+      \def\M@sect##1##2##3##4##5##6[##7][##8]##9{%
+   \ifx \o:@seccntformat:\:UnDef
+  \let\o:@seccntformat:\@seccntformat
+\fi
+\let\@seccntformat\:gobble
+%
+   \let\M@sect\no@Msect   \xdef\c:secnumdepth{##2}%
+   {\SkipRefstepAnchor \let\addcontentsline\:gobbleIII \let\mark\:gobble
+    \no@Msect{##1}{##2}{##3}{##4}{##5}{##6}[{##7}][{##8}]{}}%
+   \let\:Sc\sv:Sc \let\@sect\sv:sect \let\@ssect\sv:ssect
+\let\M@sect\sv:Msect
+%
+   \let\@seccntformat=\o:@seccntformat:
+%
+   \HtmlEnv    \Toc:Title{##8}\csname no:#1\endcsname{##9}}%
+%
+      \def\@sect##1##2##3##4##5##6[##7]##8{%
+   \ifx \o:@seccntformat:\:UnDef
+  \let\o:@seccntformat:\@seccntformat
+\fi
+\let\@seccntformat\:gobble
+%
+   \let\@sect\no@sect   \xdef\c:secnumdepth{##2}%
+   {\SkipRefstepAnchor \let\addcontentsline\:gobbleIII \let\mark\:gobble
+    \no@sect{##1}{##2}{##3}{##4}{##5}{##6}[{##7}]{}}%
+   \let\:Sc\sv:Sc \let\@sect\sv:sect \let\@ssect\sv:ssect
+\let\M@sect\sv:Msect
+%
+   \let\@seccntformat=\o:@seccntformat:
+%
+   \HtmlEnv    \Toc:Title{##7}\csname no:#1\endcsname{##8}}%
+%
+      \def\@ssect##1##2##3##4##5{%
+   \gdef\ssect:ttl{##5}%
+%
+   \let\@ssect\no@ssect
+   {\def\addcontentsline####1####2####3{}%
+    \no@ssect{##1}{##2}{##3}{##4}{}}%
+   \let\:Sc\sv:Sc \let\@sect\sv:sect \let\@ssect\sv:ssect
+\let\M@sect\sv:Msect
+%
+   \HtmlEnv   \csname :like#1\endcsname{##5}}%
+\IgnorePar}
+\fi
+
 \fi
 \Hinput{memoir}
 \endinput