名前: 北川 日時: 2009-11-01 19:56:22 IPアドレス: 58.87.195.*
>>53906 WEB ソースをいじってみました．\inhibitglue の後に欧文文字が続いたときや， 改段落時には inhibit_glue_flag をリセットするようにしたつもりです． これではどこか不十分のような気もしますが……． --- ptex-base.ch.orig 2009-11-01 19:32:37.417524048 +0900 +++ ptex-base.ch 2009-11-01 19:43:15.966513450 +0900 @@ -4608,7 +4608,9 @@ main_loop_j:@<Append KANJI-character |cur_chr| to the current hlist in the current font; |goto reswitch| when a non-character has been fetched@>; -main_loop:@<Append character |cur_chr| and the following characters (if~any) +main_loop: +inhibit_glue_flag:=false; +@<Append character |cur_chr| and the following characters (if~any) to the current hlist in the current font; |goto reswitch| when a non-character has been fetched@>; @z @@ -4700,6 +4702,7 @@ if cur_cmd=no_boundary then bchar:=non_char; cur_r:=bchar; lig_stack:=null; goto main_lig_loop; main_loop_lookahead+1: adjust_space_factor; +inhibit_glue_flag:=false; fast_get_avail(lig_stack); font(lig_stack):=main_f; cur_r:=qi(cur_chr); character(lig_stack):=cur_r; if cur_r=false_bchar then cur_r:=non_char {this prevents spurious ligatures} @@ -5075,6 +5078,7 @@ @x [47.1091] l.21782 - pTeX: new_graf, adjust direction push_nest; mode:=hmode; space_factor:=1000; set_cur_lang; clang:=cur_lang; @y +inhibit_glue_flag := false; push_nest; adjust_dir:=abs(direction); mode:=hmode; space_factor:=1000; set_cur_lang; clang:=cur_lang; @z
この書き込みへの返事：