[latex3-commits] [git/LaTeX3-latex3-latex3] master: Extend Greek eta-acute code to polytonic case (13b501640)

[Joseph Wright]

Repository : https://github.com/latex3/latex3
On branch  : master
Link       : https://github.com/latex3/latex3/commit/13b501640dada58ac34f4c49d8032cb556227192

>---------------------------------------------------------------

commit 13b501640dada58ac34f4c49d8032cb556227192
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Thu Oct 22 18:22:48 2020 +0100

    Extend Greek eta-acute code to polytonic case
    
    After discussion with AS.


>---------------------------------------------------------------

13b501640dada58ac34f4c49d8032cb556227192
 l3kernel/l3text-case.dtx                | 6 +++++-
 l3kernel/testfiles/m3text002.luatex.tlg | 2 ++
 l3kernel/testfiles/m3text002.lvt        | 2 +-
 l3kernel/testfiles/m3text002.tlg        | 2 ++
 l3kernel/testfiles/m3text002.uptex.tlg  | 2 ++
 l3kernel/testfiles/m3text002.xetex.tlg  | 2 ++
 6 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/l3kernel/l3text-case.dtx b/l3kernel/l3text-case.dtx
index 88cbfa286..c7f84f05c 100644
--- a/l3kernel/l3text-case.dtx
+++ b/l3kernel/l3text-case.dtx
@@ -1051,7 +1051,11 @@
       {
         \bool_lazy_or:nnTF
           { \token_if_cs_p:N #3 }
-          { ! \int_compare_p:nNn { `#3 } = { "03AE } }
+          {
+            ! \bool_lazy_or_p:nn
+              { \int_compare_p:nNn { `#3 } = { "03AE } }
+              { \int_compare_p:nNn { `#3 } = { "1F22 } }
+          }
           { \@@_change_case_loop:nnw }
           { \@@_change_case_space_upper_el:nnNw }
             {#1} {#2} #3
diff --git a/l3kernel/testfiles/m3text002.luatex.tlg b/l3kernel/testfiles/m3text002.luatex.tlg
index 2984cb99a..20d3c262c 100644
--- a/l3kernel/testfiles/m3text002.luatex.tlg
+++ b/l3kernel/testfiles/m3text002.luatex.tlg
@@ -158,6 +158,8 @@ TEST 14: Greek
 ΝΟΜΙΚΟΥ Ή ΔΙΕΘΝΟΥΣ
 ἘΠΕΙΔῊ Ἡ ἈΝΑΓΝΏΡΙΣΗ
 ΕΠΕΙΔΗ Η ΑΝΑΓΝΩΡΙΣΗ
+ΝΟΜΙΚΟΥ͂ Ἢ ΔΙΕΘΝΟΥ͂Σ
+ΝΟΜΙΚΟΥ Ή ΔΙΕΘΝΟΥΣ
 ΝΈΟ, ΔΗΜΙΟΥΡΓΊΑ
 ΝΕΟ, ΔΗΜΙΟΥΡΓΙΑ
 ΕΛΆΤΕ ΝΑ ΦΆΤΕ ΤΑ ΚΑΛΎΤΕΡΑ ΠΑΪΔΆΚΙΑ!
diff --git a/l3kernel/testfiles/m3text002.lvt b/l3kernel/testfiles/m3text002.lvt
index 65a49cd8e..1542b1487 100644
--- a/l3kernel/testfiles/m3text002.lvt
+++ b/l3kernel/testfiles/m3text002.lvt
@@ -170,7 +170,7 @@
     \greektest:n { Επειδή~η~αναγνώριση~της~αξιοπρέπειας } \NEWLINE
     \greektest:n { νομικού~ή~διεθνούς }                   \NEWLINE
     \greektest:n { Ἐπειδὴ~ἡ~ἀναγνώριση }                  \NEWLINE
-%    \greektest:n { νομικοῦ~ἢ~διεθνοῦς }                   \NEWLINE
+    \greektest:n { νομικοῦ~ἢ~διεθνοῦς }                   \NEWLINE
     \greektest:n { Νέο,~Δημιουργία }                      \NEWLINE
     \greektest:n { Ελάτε~να~φάτε~τα~καλύτερα~παϊδάκια! }  \NEWLINE
     \greektest:n { Μαΐου,~τρόλεϊ }                        \NEWLINE
diff --git a/l3kernel/testfiles/m3text002.tlg b/l3kernel/testfiles/m3text002.tlg
index 3bf29c2b8..d5e3a5e4b 100644
--- a/l3kernel/testfiles/m3text002.tlg
+++ b/l3kernel/testfiles/m3text002.tlg
@@ -154,6 +154,8 @@ TEST 14: Greek
 ^^ce^^9d^^ce^^9f^^ce^^9c^^ce^^99^^ce^^9a^^ce^^9f^^ce^^8e ^^ce^^89 ^^ce^^94^^ce^^99^^ce^^95^^ce^^98^^ce^^9d^^ce^^9f^^ce^^8e^^ce^^a3
 ^^e1^^bc^^98^^ce^^a0^^ce^^95^^ce^^99^^ce^^94^^e1^^bf^^8a ^^e1^^bc^^a9 ^^e1^^bc^^88^^ce^^9d^^ce^^91^^ce^^93^^ce^^9d^^ce^^8f^^ce^^a1^^ce^^99^^ce^^a3^^ce^^97
 ^^e1^^bc^^98^^ce^^a0^^ce^^95^^ce^^99^^ce^^94^^e1^^bf^^8a ^^e1^^bc^^a9 ^^e1^^bc^^88^^ce^^9d^^ce^^91^^ce^^93^^ce^^9d^^ce^^8f^^ce^^a1^^ce^^99^^ce^^a3^^ce^^97
+^^ce^^9d^^ce^^9f^^ce^^9c^^ce^^99^^ce^^9a^^ce^^9f^^e1^^bf^^a6 ^^e1^^bc^^aa ^^ce^^94^^ce^^99^^ce^^95^^ce^^98^^ce^^9d^^ce^^9f^^e1^^bf^^a6^^ce^^a3
+^^ce^^9d^^ce^^9f^^ce^^9c^^ce^^99^^ce^^9a^^ce^^9f^^e1^^bf^^a6 ^^e1^^bc^^aa ^^ce^^94^^ce^^99^^ce^^95^^ce^^98^^ce^^9d^^ce^^9f^^e1^^bf^^a6^^ce^^a3
 ^^ce^^9d^^ce^^88^^ce^^9f, ^^ce^^94^^ce^^97^^ce^^9c^^ce^^99^^ce^^9f^^ce^^a5^^ce^^a1^^ce^^93^^ce^^8a^^ce^^91
 ^^ce^^9d^^ce^^88^^ce^^9f, ^^ce^^94^^ce^^97^^ce^^9c^^ce^^99^^ce^^9f^^ce^^a5^^ce^^a1^^ce^^93^^ce^^8a^^ce^^91
 ^^ce^^95^^ce^^9b^^ce^^86^^ce^^a4^^ce^^95 ^^ce^^9d^^ce^^91 ^^ce^^a6^^ce^^86^^ce^^a4^^ce^^95 ^^ce^^a4^^ce^^91 ^^ce^^9a^^ce^^91^^ce^^9b^^ce^^8e^^ce^^a4^^ce^^95^^ce^^a1^^ce^^91 ^^ce^^a0^^ce^^91^^ce^^aa^^ce^^94^^ce^^86^^ce^^9a^^ce^^99^^ce^^91!
diff --git a/l3kernel/testfiles/m3text002.uptex.tlg b/l3kernel/testfiles/m3text002.uptex.tlg
index 36f7b39dd..501325cf2 100644
--- a/l3kernel/testfiles/m3text002.uptex.tlg
+++ b/l3kernel/testfiles/m3text002.uptex.tlg
@@ -158,6 +158,8 @@ TEST 14: Greek
 ΝΟΜΙΚΟΎ Ή ΔΙΕΘΝΟΎΣ
 ἘΠΕΙΔῊ Ἡ ἈΝΑΓΝΏΡΙΣΗ
 ἘΠΕΙΔῊ Ἡ ἈΝΑΓΝΏΡΙΣΗ
+ΝΟΜΙΚΟῦ Ἢ ΔΙΕΘΝΟῦΣ
+ΝΟΜΙΚΟῦ Ἢ ΔΙΕΘΝΟῦΣ
 ΝΈΟ, ΔΗΜΙΟΥΡΓΊΑ
 ΝΈΟ, ΔΗΜΙΟΥΡΓΊΑ
 ΕΛΆΤΕ ΝΑ ΦΆΤΕ ΤΑ ΚΑΛΎΤΕΡΑ ΠΑΪΔΆΚΙΑ!
diff --git a/l3kernel/testfiles/m3text002.xetex.tlg b/l3kernel/testfiles/m3text002.xetex.tlg
index 4e8ec7f9a..132e1fb9a 100644
--- a/l3kernel/testfiles/m3text002.xetex.tlg
+++ b/l3kernel/testfiles/m3text002.xetex.tlg
@@ -154,6 +154,8 @@ TEST 14: Greek
 ΝΟΜΙΚΟΥ Ή ΔΙΕΘΝΟΥΣ
 ἘΠΕΙΔῊ Ἡ ἈΝΑΓΝΏΡΙΣΗ
 ΕΠΕΙΔΗ Η ΑΝΑΓΝΩΡΙΣΗ
+ΝΟΜΙΚΟΥ͂ Ἢ ΔΙΕΘΝΟΥ͂Σ
+ΝΟΜΙΚΟΥ Ή ΔΙΕΘΝΟΥΣ
 ΝΈΟ, ΔΗΜΙΟΥΡΓΊΑ
 ΝΕΟ, ΔΗΜΙΟΥΡΓΙΑ
 ΕΛΆΤΕ ΝΑ ΦΆΤΕ ΤΑ ΚΑΛΎΤΕΡΑ ΠΑΪΔΆΚΙΑ!