summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c
diff options
context:
space:
mode:
authorAndreas Scherer <andreas_tex@freenet.de>2024-07-01 17:04:43 +0000
committerAndreas Scherer <andreas_tex@freenet.de>2024-07-01 17:04:43 +0000
commit3c360c7398fefaaefd3978bb36ae789f47fc8583 (patch)
tree177005627b255a080c84c74d333aa364bd61e93c /Build/source/texk/web2c
parenta91586b507d4f290cdbf2abea91f742dadd415c5 (diff)
[HiTeX] Fix some very obscure spacing errors.
In some rare cases, CWEAVE inserts '\7' instead of '\6' after preprocessor commands (maybe related to '@!' as well). git-svn-id: svn://tug.org/texlive/trunk@71678 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c')
-rw-r--r--Build/source/texk/web2c/hitexdir/hitex.w9
1 files changed, 6 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/hitexdir/hitex.w b/Build/source/texk/web2c/hitexdir/hitex.w
index d9eb157d012..7351c672e2d 100644
--- a/Build/source/texk/web2c/hitexdir/hitex.w
+++ b/Build/source/texk/web2c/hitexdir/hitex.w
@@ -5707,8 +5707,9 @@ print_char('=');print_scaled(eqtb[n].sc);print("pt");
@ Here is a procedure that displays the contents of |eqtb[n]|
symbolically.
-@p @t\4@>@<Declare the procedure called |print_cmd_chr|@>@;@/
+@p @<Declare the procedure called |print_cmd_chr|@>@;
#ifdef @!STAT
+@+@t}\6\4\4{@>
static void show_eqtb(pointer @!n)
{@+if (n < active_base) print_char('?'); /*this can't happen*/
else if (n < glue_base) @<Show equivalent |n|, in region 1 or 2@>@;
@@ -10794,6 +10795,7 @@ static str_number b_make_name_string(byte_file *f)
{@+return make_name_string();
}
#ifdef @!INIT
+@+@t}\6\4\4{@>
static str_number w_make_name_string(word_file *f)
{@+return make_name_string();
}
@@ -32109,7 +32111,7 @@ static void hint_open(void)
output_file_name=make_name_string();
DBG(DBGBASIC,"Output file %s opened\n",(char *)name_of_file+1);
}
-
+@#
#define HITEX_VERSION "1.1"
static void hput_definitions();
extern int option_global;
@@ -35167,8 +35169,9 @@ static bool b_open_out(byte_file *f) /*open a binary file for output*/
{@+f->f=open_out((char *)name_of_file+1,"wb");
return f->f!=NULL && ferror(f->f)==0;@+
}
-
+@#
#ifdef @!INIT
+@+@t}\6\4\4{@>
static bool w_open_out(word_file *f) /*open a word file for output*/
{@+f->f=open_out((char *)name_of_file+1,"wb");
return f->f!=NULL && ferror(f->f)==0;@+