diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-12 23:46:03 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-12 23:46:03 +0000 |
commit | 873660d1a83ece926fe7206288dda9c36b349c1b (patch) | |
tree | a48f77125c309a355b5d0eb58d6b24446abe9d62 /Master/texmf-dist/tex/generic/enctex/noprefnt.tex | |
parent | 2939242967231097459df0fc3150fabc2f639111 (diff) |
generic 1
git-svn-id: svn://tug.org/texlive/trunk@613 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/enctex/noprefnt.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/enctex/noprefnt.tex | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/enctex/noprefnt.tex b/Master/texmf-dist/tex/generic/enctex/noprefnt.tex new file mode 100644 index 00000000000..f251ee812bc --- /dev/null +++ b/Master/texmf-dist/tex/generic/enctex/noprefnt.tex @@ -0,0 +1,29 @@ + +% NOPREFNT.TEX, ver. 1, September 1997, by Petr Olsak (Ol\v s\'ak) +% +% This file re-defines the TeX primitive \font by the following way. +% +% You write: The meaning: +% \font\preloaded=*[scaled \magstep?] .... ignore loading +% another cases ... the font is loaded + +\ifx\ignoreload\undefined \else \expandafter\endinput \fi + +\catcode`\{=1 % left brace is begin-group character +\catcode`\}=2 % right brace is end-group character +\catcode`\#=6 % hash mark is macro parameter character + +\let\originalfont\font +\edef\tempb{\string\preloaded} +\def\font#1=#2 {\edef\tempa{\string#1}% + \ifx\tempa\tempb\let\next=\ignoreload + \else \def\next{\originalfont#1=#2 }% + \fi\next} +\long\def\ignoreload#1{\ifx#1s\let\next=\skipscaled + \else\long\def\next{#1}\fi\next} +\def\skipscaled #1\magstep#2{} +\def\restorefont{\let\font\originalfont \let\originalfont\undefined + \let\ignoreload\undefined \let\restorefont\undefined} + +% end of file NOPREFNT.TEX + |