From b18b76ec605c0d853c3084f771c0e32d2aecc0fe Mon Sep 17 00:00:00 2001
From: Andreas Scherer <andreas_tex@freenet.de>
Date: Wed, 19 Aug 2020 11:17:19 +0000
Subject: [XeTeX] Fix math operator in Pascal comment.

git-svn-id: svn://tug.org/texlive/trunk@56132 c570f23f-e606-0410-a88d-b1316a301751
---
 Build/source/texk/web2c/xetexdir/ChangeLog | 4 ++++
 Build/source/texk/web2c/xetexdir/xetex.web | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/Build/source/texk/web2c/xetexdir/ChangeLog b/Build/source/texk/web2c/xetexdir/ChangeLog
index 4400966472e..7161f3fc26f 100644
--- a/Build/source/texk/web2c/xetexdir/ChangeLog
+++ b/Build/source/texk/web2c/xetexdir/ChangeLog
@@ -1,3 +1,7 @@
+2020-08-19  Andreas Scherer  <https://ascherer.github.io>
+
+	* xetex.web: Fix math operator in Pascal comment.
+
 2020-07-20  Andreas Scherer  <https://ascherer.github.io>
 
 	* char-warning-xetex.ch: WEBify variable in comment.
diff --git a/Build/source/texk/web2c/xetexdir/xetex.web b/Build/source/texk/web2c/xetexdir/xetex.web
index 58abdf37eb5..5eec78ca7a2 100644
--- a/Build/source/texk/web2c/xetexdir/xetex.web
+++ b/Build/source/texk/web2c/xetexdir/xetex.web
@@ -8641,7 +8641,7 @@ else  begin start_cs: k:=loc; cur_chr:=buffer[k]; cat:=cat_code(cur_chr);
     |goto found|@>
   else @<If an expanded code is present, reduce it and |goto start_cs|@>;
   {At this point, we have a single-character cs name in the buffer.
-   But if the character code is > |@"FFFF|, we treat it like a multiletter name
+   But if the character code is ${}>|@"FFFF|$, we treat it like a multiletter name
    for string purposes, because we use UTF-16 in the string pool.}
   if buffer[loc]>@"FFFF then begin
     cur_cs:=id_lookup(loc,1); incr(loc); goto found;
-- 
cgit v1.2.3