Patch LaTeX's \set@fontsize (Not feature equivalent yet)
This commit is contained in:
parent
7fad736461
commit
6c134b57a6
@ -16,4 +16,29 @@
|
|||||||
\global\def\eTeXrevision{.2}
|
\global\def\eTeXrevision{.2}
|
||||||
\endgroup
|
\endgroup
|
||||||
|
|
||||||
|
\let\LMLTsaveddump\dump
|
||||||
|
\let\dump\relax
|
||||||
\input latex.ltx
|
\input latex.ltx
|
||||||
|
\let\dump\LMLTsaveddump
|
||||||
|
%
|
||||||
|
\makeatletter
|
||||||
|
\def\set@fontsize#1#2#3{%
|
||||||
|
\@defaultunits\@tempdimb#2pt\relax\@nnil
|
||||||
|
\edef\f@size{\strip@pt\@tempdimb}%
|
||||||
|
\@defaultunits\@tempdimc#3pt\relax\@nnil
|
||||||
|
\edef\f@baselineskip{\the\@tempdimc}%
|
||||||
|
\edef\f@linespread{#1}%
|
||||||
|
\let\baselinestretch\f@linespread
|
||||||
|
\def\size@update{%
|
||||||
|
\baselineskip\f@baselineskip\relax
|
||||||
|
\baselineskip\f@linespread\baselineskip
|
||||||
|
\normalbaselineskip\baselineskip
|
||||||
|
\setbox\strutbox\hbox{%
|
||||||
|
\vrule\@height.7\baselineskip
|
||||||
|
\@depth.3\baselineskip
|
||||||
|
\@width\z@}%
|
||||||
|
\let\size@update\relax}%
|
||||||
|
}
|
||||||
|
\makeatother
|
||||||
|
%
|
||||||
|
\dump
|
||||||
|
Loading…
Reference in New Issue
Block a user