summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/vftovp.ch
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2020-05-05 16:14:13 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2020-05-05 16:14:13 +0000
commit88d5f13ac212b295beed6f128c37d7b8e87753c6 (patch)
tree6b8966a4fa0e8dcecf0690480901e30641312eef /Build/source/texk/web2c/vftovp.ch
parentaf9ae578a0fcb6d471ca5703da7a249bc45cc972 (diff)
Fix section numbering for MFT and VFTOVP.
git-svn-id: svn://tug.org/texlive/trunk@55028 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/vftovp.ch')
-rw-r--r--Build/source/texk/web2c/vftovp.ch8
1 files changed, 8 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/vftovp.ch b/Build/source/texk/web2c/vftovp.ch
index 7db1128a8bb..389255f9c10 100644
--- a/Build/source/texk/web2c/vftovp.ch
+++ b/Build/source/texk/web2c/vftovp.ch
@@ -268,6 +268,14 @@ default_directory:=default_directory_name;
@z
@x [44] Don't append `.tfm' here, and keep lowercase.
+@ The string |cur_name| is supposed to be set to the external name of the
+\.{TFM} file for the current font. This usually means that we need to
+prepend the name of the default directory, and
+to append the suffix `\.{.TFM}'. Furthermore, we change lower case letters
+to upper case, since |cur_name| is a \PASCAL\ string.
+@^system dependencies@>
+
+@<Move font name into the |cur_name| string@>=
for k:=1 to name_length do cur_name[k]:=' ';
if a=0 then
begin for k:=1 to default_directory_name_length do