diff options
author | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2017-11-30 21:51:10 +0000 |
---|---|---|
committer | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2017-11-30 21:51:10 +0000 |
commit | 39af8997e26ac2314daefda6c8ebd203ae5aa2d0 (patch) | |
tree | 1d972060f293920fa98721911c3d157ca5b17462 /Build/source/texk/web2c/ptexdir/ptex-base.ch | |
parent | 2ebfbead9105c6376be7f265fdf2a3a74329ffd8 (diff) |
ptex-base.ch: suppress a space character after multibyte control symbol
git-svn-id: svn://tug.org/texlive/trunk@45950 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/ptex-base.ch')
-rw-r--r-- | Build/source/texk/web2c/ptexdir/ptex-base.ch | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/ptexdir/ptex-base.ch b/Build/source/texk/web2c/ptexdir/ptex-base.ch index 1600827d507..0b32a4d49b0 100644 --- a/Build/source/texk/web2c/ptexdir/ptex-base.ch +++ b/Build/source/texk/web2c/ptexdir/ptex-base.ch @@ -1410,6 +1410,30 @@ end; tats @z +@x [17.???] l.???? - pTeX multibyte control symbol +procedure print_cs(@!p:integer); {prints a purported control sequence} +@y +procedure print_cs(@!p:integer); {prints a purported control sequence} +var j, l:pool_pointer; @!cat:0..max_char_code; +@z + +@x +else begin print_esc(text(p)); + print_char(" "); + end; +@y +else begin l:=text(p); + print_esc(l); j:=str_start[l]; l:=str_start[l+1]; + if l>j+1 then begin + if l-j=multistrlen(ustringcast(str_pool), l, j) then + begin cat:=kcat_code(kcatcodekey(fromBUFF(ustringcast(str_pool), l, j))); + if (cat<>other_kchar) then print_char(" "); + end + else print_char(" "); end + else print_char(" "); + end; +@z + @x [18.265] l.5903 - pTeX: \jfont \tfont primitive("font",def_font,0);@/ @!@:font_}{\.{\\font} primitive@> |