summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/xetexdir/xetex.ch
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/xetexdir/xetex.ch')
-rw-r--r--Build/source/texk/web2c/xetexdir/xetex.ch24
1 files changed, 12 insertions, 12 deletions
diff --git a/Build/source/texk/web2c/xetexdir/xetex.ch b/Build/source/texk/web2c/xetexdir/xetex.ch
index c9c57f3c395..c7fe814adbf 100644
--- a/Build/source/texk/web2c/xetexdir/xetex.ch
+++ b/Build/source/texk/web2c/xetexdir/xetex.ch
@@ -891,6 +891,18 @@ end;
while s>65535 do {first 64K strings don't really exist in the pool!}
@z
+@x [54/web2c.1407] - scan a bgroup/egroup-delimited file name
+ stop_at_space := false; {set |stop_at_space| to false to allow spaces in file names}
+ begin_name;
+ for i:=str_start[s] to str_start[s+1]-1 do
+ dummy := more_name(str_pool[i]); {add each read character to the current file name}
+@y
+ stop_at_space := false; {set |stop_at_space| to false to allow spaces in file names}
+ begin_name;
+ for i:=str_start_macro(s) to str_start_macro(s+1)-1 do
+ dummy := more_name(str_pool[i]); {add each read character to the current file name}
+@z
+
@x
@!mltex_enabled_p:boolean; {enable character substitution}
@y
@@ -940,15 +952,3 @@ exit:end;
@#
@<Declare subroutines for |new_character|@>@;
@z
-
-@x [54/web2c.1407] - scan a bgroup/egroup-delimited file name
- stop_at_space := false; {set |stop_at_space| to false to allow spaces in file names}
- begin_name;
- for i:=str_start[s] to str_start[s+1]-1 do
- dummy := more_name(str_pool[i]); {add each read character to the current file name}
-@y
- stop_at_space := false; {set |stop_at_space| to false to allow spaces in file names}
- begin_name;
- for i:=str_start_macro(s) to str_start_macro(s+1)-1 do
- dummy := more_name(str_pool[i]); {add each read character to the current file name}
-@z