texlive[55739] Build/source/texk/web2c/xetexdir: [XeTeX] Fix |code|

[commits+ascherer at tug.org]

Revision: 55739
          http://tug.org/svn/texlive?view=revision&revision=55739
Author:   ascherer
Date:     2020-07-03 08:53:42 +0200 (Fri, 03 Jul 2020)
Log Message:
-----------
[XeTeX] Fix |code| snippets in {comments}.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/xetexdir/ChangeLog
    trunk/Build/source/texk/web2c/xetexdir/xetex.web

Modified: trunk/Build/source/texk/web2c/xetexdir/ChangeLog
===================================================================
--- trunk/Build/source/texk/web2c/xetexdir/ChangeLog	2020-07-03 06:53:40 UTC (rev 55738)
+++ trunk/Build/source/texk/web2c/xetexdir/ChangeLog	2020-07-03 06:53:42 UTC (rev 55739)
@@ -1,3 +1,7 @@
+2020-07-03  Andreas Scherer  <https://ascherer.github.io>
+
+	* xetex.web: Fix |code| snippets in {comments}.
+
 2020-07-03  David Jones  <dmj at ams.org>
 
 	* XeTeXOTMath.cpp: New implementation of get_ot_math_kern().

Modified: trunk/Build/source/texk/web2c/xetexdir/xetex.web
===================================================================
--- trunk/Build/source/texk/web2c/xetexdir/xetex.web	2020-07-03 06:53:40 UTC (rev 55738)
+++ trunk/Build/source/texk/web2c/xetexdir/xetex.web	2020-07-03 06:53:42 UTC (rev 55739)
@@ -18415,7 +18415,7 @@
 @<Construct a sub/superscript combination box |x|...@>=
 begin
 save_f:=cur_f;
-      
+
     script_head := subscr(q);
 
     @<Fetch first character of a sub/superscript@>;
@@ -18474,15 +18474,15 @@
 
     this_math_style := sub_style(cur_style);
 
-    { Loop through the sub_mlist looking for the first character-like
+    { Loop through the |sub_mlist| looking for the first character-like
       thing.  Ignore kerns or glue so that, for example, changing
       $P_j$ to $P_{\!j}$ will have a predictable effect.  Intercept
-      style_nodes and execute them.  If we encounter a choice_node,
+      |style_nodes| and execute them.  If we encounter a |choice_node|,
       follow the appropriate branch.  Anything else halts the search
       and inhibits OpenType kerning. }
 
     { Don't try to do anything clever if the nucleus of the
-      script_head is empty, e.g., $P_{^j}$ and the such. }
+      |script_head| is empty, e.g., $P_{^j}$ and the such. }
 
     if math_type(script_head) = sub_mlist then
         begin
@@ -18518,7 +18518,7 @@
                                 2: script_ptr := script_mlist(script_ptr);
                                 3: script_ptr := script_script_mlist(script_ptr);
                             end
-                        else 
+                        else
                             script_ptr := link(script_ptr);
                 end;
         end;
@@ -18548,7 +18548,7 @@
             @<Set up the values of |cur_size| and |cur_mu|, based on |cur_style|@>;
         end;
 
-    { The remaining case is math_type(script_head) = sub_box.
+    { The remaining case is |math_type(script_head) = sub_box|.
       Although it would be possible to deconstruct the box node to
       find the first glyph, it will most likely be from a text font
       without MATH kerning, so there's probably no point. }