bug#36717: 25.3; greek.el: deprecated vowel+oxia combinations should be replaced with vowel+tonos counterparts

["Basil L. Contovounesios" <contovob@tcd.ie>]

[-- Attachment #1: Type: text/plain, Size: 927 bytes --]

Robert Pluim <rpluim@gmail.com> writes:

>>>>>> On Thu, 18 Jul 2019 11:03:10 +0200, Robert Alessi <alessi@robertalessi.net> said:
>
>     Robert> As of 2016, the latest versions of Unicode (as of 2016) have now
>     Robert> formally deprecated and removed the vowel+oxia combinations from the
>     Robert> Greek extended range, leaving only the vowel+tonos from the basic Greek
>     Robert> and Coptic range.
>
>     Robert> As a result of this deprecation, the sixteen characters found in
>     Robert> greek.el (Quail package for inputting Greek) that use extended
>     Robert> codepoints should be replaced with those that use basic codepoints.  All
>     Robert> affected characters can be found here:
>     --> 
>     Robert> https://wiki.digitalclassicist.org/Greek_Unicode_duplicated_vowels#Affected_characters
>
> I took a look at greek.el, that shouldn't be difficult.

Indeed, it's just a simple search+replace:


[-- Attachment #2: 0001-Replace-Greek-vowel-oxia-with-vowel-tonos-in-Quail.patch --]
[-- Type: text/x-diff, Size: 8570 bytes --]

From 1e7e52b25d70f827644e179f2c921adda31306fc Mon Sep 17 00:00:00 2001
From: "Basil L. Contovounesios" <contovob@tcd.ie>
Date: Thu, 18 Jul 2019 15:52:33 +0100
Subject: [PATCH] Replace Greek vowel+oxia with vowel+tonos in Quail

* lisp/leim/quail/greek.el (greek-mizuochi, greek-babel)
(greek-ibycus4):
* lisp/leim/quail/rfc1345.el (rfc1345): Replace vowel+oxia
characters from the Greek Extended block with their equivalent
vowel+tonos characters from the Greek and Coptic block (bug#36717).
---
 lisp/leim/quail/greek.el   | 82 +++++++++++++++++++-------------------
 lisp/leim/quail/rfc1345.el | 30 +++++++-------
 2 files changed, 56 insertions(+), 56 deletions(-)

diff --git a/lisp/leim/quail/greek.el b/lisp/leim/quail/greek.el
index 66a17a29f5..e5d3100390 100644
--- a/lisp/leim/quail/greek.el
+++ b/lisp/leim/quail/greek.el
@@ -264,7 +264,7 @@ "greek-mizuochi"
 
  ("i`" ?ἱ) ("iV" ?ἱ)
  ("i'" ?ἰ) ("iv" ?ἰ)
- ("i/" ?ί)
+ ("i/" ?ί)
  ("i`/" ?ἵ) ("iV/" ?ἵ) ("i/`" ?ἵ) ("i/V" ?ἵ)
  ("i'/" ?ἴ) ("iv/" ?ἴ) ("i/'" ?ἴ) ("i/v" ?ἴ)
  ("i?" ?ὶ)
@@ -276,7 +276,7 @@ "greek-mizuochi"
  ("i'^"  ?ἶ) ("i'\\" ?ἶ) ("iv^"  ?ἶ) ("iv\\" ?ἶ)
  ("i^'"  ?ἶ) ("i\\'" ?ἶ) ("i^v"  ?ἶ) ("i\\v" ?ἶ)
  ("i\"" ?ϊ)
- ("i/\"" ?ΐ) ("i\"/" ?ΐ)
+ ("i/\"" ?ΐ) ("i\"/" ?ΐ)
  ("i?\"" ?ῒ) ("i\"?" ?ῒ)
 
  ("^`"  ?῟) ("^V"  ?῟) ("\\`" ?῟) ("\\V" ?῟)
@@ -292,7 +292,7 @@ "greek-mizuochi"
 
  ("e`" ?ἑ) ("eV" ?ἑ)
  ("e'" ?ἐ) ("ev" ?ἐ)
- ("e/" ?έ)
+ ("e/" ?έ)
  ("e/`" ?ἕ) ("e/V" ?ἕ) ("e`/" ?ἕ) ("eV/" ?ἕ)
  ("e/'" ?ἔ) ("e/v" ?ἔ) ("e'/" ?ἔ) ("ev/" ?ἔ)
  ("e?" ?ὲ)
@@ -301,7 +301,7 @@ "greek-mizuochi"
 
  ("a`" ?ἁ) ("aV" ?ἁ)
  ("a'" ?ἀ) ("av" ?ἀ)
- ("a/" ?ά)
+ ("a/" ?ά)
  ("a/`" ?ἅ) ("a/V" ?ἅ) ("a`/" ?ἅ) ("aV/" ?ἅ)
  ("a/'" ?ἄ) ("a/v" ?ἄ) ("a'/" ?ἄ) ("av/" ?ἄ)
  ("a?" ?ὰ)
@@ -332,7 +332,7 @@ "greek-mizuochi"
 
  ("h`" ?ἡ) ("hV" ?ἡ)
  ("h'" ?ἠ) ("hv" ?ἠ)
- ("h/" ?ή)
+ ("h/" ?ή)
  ("h/`" ?ἥ) ("h/V" ?ἥ) ("h`/" ?ἥ) ("hV/" ?ἥ)
  ("h/'" ?ἤ) ("h/v" ?ἤ) ("h'/" ?ἤ) ("hv/" ?ἤ)
  ("h?" ?ὴ)
@@ -362,7 +362,7 @@ "greek-mizuochi"
 
  ("o`" ?ὁ) ("oV" ?ὁ)
  ("o'" ?ὀ) ("ov" ?ὀ)
- ("o/" ?ό)
+ ("o/" ?ό)
  ("o/`" ?ὅ) ("o/V" ?ὅ) ("o`/" ?ὅ) ("oV/" ?ὅ)
  ("o/'" ?ὄ) ("o/v" ?ὄ) ("o'/" ?ὄ) ("ov/" ?ὄ)
  ("o?" ?ὸ)
@@ -371,7 +371,7 @@ "greek-mizuochi"
 
  ("u`" ?ὑ) ("uV" ?ὑ)
  ("u'" ?ὐ) ("uv" ?ὐ)
- ("u/" ?ύ)
+ ("u/" ?ύ)
  ("u/`" ?ὕ) ("u/V" ?ὕ) ("u`/" ?ὕ) ("uV/" ?ὕ)
  ("u/'" ?ὔ) ("u/v" ?ὔ) ("u'/" ?ὔ) ("uv/" ?ὔ)
  ("u?" ?ὺ)
@@ -383,12 +383,12 @@ "greek-mizuochi"
  ("u^'"  ?ὖ) ("u^v"  ?ὖ) ("u\\'" ?ὖ) ("u\\v" ?ὖ)
  ("u'^"  ?ὖ) ("uv^"  ?ὖ) ("u'\\" ?ὖ) ("uv\\" ?ὖ)
  ("u\"" ?ϋ)
- ("u\"/" ?ΰ) ("u/\"" ?ΰ)
+ ("u\"/" ?ΰ) ("u/\"" ?ΰ)
  ("u\"?" ?ῢ) ("u?\"" ?ῢ)
 
  ("w`" ?ὡ) ("wV" ?ὡ)
  ("w'" ?ὠ) ("wv" ?ὠ)
- ("w/" ?ώ)
+ ("w/" ?ώ)
  ("w/`" ?ὥ) ("w/V" ?ὥ) ("w`/" ?ὥ) ("wV/" ?ὥ)
  ("w/'" ?ὤ) ("w/v" ?ὤ) ("w'/" ?ὤ) ("wv/" ?ὤ)
  ("w?" ?ὼ)
@@ -551,7 +551,7 @@ "greek-babel"
 
  ("<i" ?ἱ)
  (">i" ?ἰ)
- ("'i" ?ί)
+ ("'i" ?ί)
  ("<'i" ?ἵ)
  (">'i" ?ἴ)
  ("`i" ?ὶ)
@@ -561,12 +561,12 @@ "greek-babel"
  ("<~i"  ?ἷ)
  (">~i"  ?ἶ)
  ("\"i" ?ϊ)
- ("\"'i" ?ΐ)
+ ("\"'i" ?ΐ)
  ("\"`i" ?ῒ)
 
  ("<I" ?Ἱ)
  (">I" ?Ἰ)
- ("'I" ?Ί)
+ ("'I" ?Ί)
  ("<'I" ?Ἵ)
  (">'I" ?Ἴ)
  ("`I" ?Ὶ)
@@ -587,7 +587,7 @@ "greek-babel"
 
  ("<e" ?ἑ)
  (">e" ?ἐ)
- ("'e" ?έ)
+ ("'e" ?έ)
  ("<'e" ?ἕ)
  (">'e" ?ἔ)
  ("`e" ?ὲ)
@@ -596,7 +596,7 @@ "greek-babel"
 
  ("<E" ?Ἑ)
  (">E" ?Ἐ)
- ("'E" ?Έ)
+ ("'E" ?Έ)
  ("<'E" ?Ἕ)
  (">'E" ?Ἔ)
  ("`E" ?Ὲ)
@@ -605,7 +605,7 @@ "greek-babel"
 
  ("<a" ?ἁ)
  (">a" ?ἀ)
- ("'a" ?ά)
+ ("'a" ?ά)
  ("<'a" ?ἅ)
  (">'a" ?ἄ)
  ("`a" ?ὰ)
@@ -617,7 +617,7 @@ "greek-babel"
 
  ("<A" ?Ἁ)
  (">A" ?Ἀ)
- ("'A" ?Ά)
+ ("'A" ?Ά)
  ("<'A" ?Ἅ)
  (">'A" ?Ἄ)
  ("`A" ?Ὰ)
@@ -654,7 +654,7 @@ "greek-babel"
 
  ("<h" ?ἡ)
  (">h" ?ἠ)
- ("'h" ?ή)
+ ("'h" ?ή)
  ("<'h" ?ἥ)
  (">'h" ?ἤ)
  ("`h" ?ὴ)
@@ -666,7 +666,7 @@ "greek-babel"
 
  ("<H" ?Ἡ)
  (">H" ?Ἠ)
- ("'H" ?Ή)
+ ("'H" ?Ή)
  ("<'H" ?Ἥ)
  (">'H" ?Ἤ)
  ("`H" ?Ὴ)
@@ -700,7 +700,7 @@ "greek-babel"
 
  ("<o" ?ὁ)
  (">o" ?ὀ)
- ("'o" ?ό)
+ ("'o" ?ό)
  ("<'o" ?ὅ)
  (">'o" ?ὄ)
  ("`o" ?ὸ)
@@ -709,7 +709,7 @@ "greek-babel"
 
  ("<O" ?Ὁ)
  (">O" ?Ὀ)
- ("'O" ?Ό)
+ ("'O" ?Ό)
  ("<'O" ?Ὅ)
  (">'O" ?Ὄ)
  ("`O" ?Ὸ)
@@ -718,7 +718,7 @@ "greek-babel"
 
  ("<u"   ?ὑ)
  (">u"   ?ὐ)
- ("'u"   ?ύ)
+ ("'u"   ?ύ)
  ("<'u"  ?ὕ)
  (">'u"  ?ὔ)
  ("`u"   ?ὺ)
@@ -728,11 +728,11 @@ "greek-babel"
  ("<~u"  ?ὗ)
  (">~u"  ?ὖ)
  ("\"u"  ?ϋ)
- ("\"'u" ?ΰ)
+ ("\"'u" ?ΰ)
  ("`\"u" ?ῢ)
 
  ("<U"   ?Ὑ)
- ("'U"   ?Ύ)
+ ("'U"   ?Ύ)
  ("<'U"  ?Ὕ)
  ("`U"   ?Ὺ)
  ("<`U"  ?Ὓ)
@@ -741,7 +741,7 @@ "greek-babel"
 
  ("<w"  ?ὡ)
  (">w"  ?ὠ)
- ("'w"  ?ώ)
+ ("'w"  ?ώ)
  ("<'w" ?ὥ)
  (">'w" ?ὤ)
  ("`w"  ?ὼ)
@@ -753,7 +753,7 @@ "greek-babel"
 
  ("<W"  ?Ὡ)
  (">W"  ?Ὠ)
- ("'W"  ?Ώ)
+ ("'W"  ?Ώ)
  ("<'W" ?Ὥ)
  (">'W" ?Ὤ)
  ("`W"  ?Ὼ)
@@ -992,19 +992,19 @@ "greek-ibycus4"
  ("(=W" ?Ὧ)
 
  ("a`" ?ὰ)
- ("a'" ?ά)
+ ("a'" ?ά)
  ("e`" ?ὲ)
- ("e'" ?έ)
+ ("e'" ?έ)
  ("h`" ?ὴ)
- ("h'" ?ή)
+ ("h'" ?ή)
  ("i`" ?ὶ)
- ("i'" ?ί)
+ ("i'" ?ί)
  ("o`" ?ὸ)
- ("o'" ?ό)
+ ("o'" ?ό)
  ("u`" ?ὺ)
- ("u'" ?ύ)
+ ("u'" ?ύ)
  ("w`" ?ὼ)
- ("w'" ?ώ)
+ ("w'" ?ώ)
 
  ("a)|" ?ᾀ)
  ("a(|" ?ᾁ)
@@ -1067,7 +1067,7 @@ "greek-ibycus4"
  ("a=|" ?ᾷ)
 
  ("`A" ?Ὰ)
- ("'A" ?Ά)
+ ("'A" ?Ά)
  ("A|" ?ᾼ)
 
  (")" ?᾿) ; #x1fbf ; psili
@@ -1081,10 +1081,10 @@ "greek-ibycus4"
  ("h=|" ?ῇ)
 
  ("`E" ?Ὲ)
- ("'E" ?Έ)
+ ("'E" ?Έ)
 
  ("`H" ?Ὴ)
- ("'H" ?Ή)
+ ("'H" ?Ή)
  ("H|" ?ῌ)
 
  (")`" ?῍) ; #x1fcd
@@ -1092,19 +1092,19 @@ "greek-ibycus4"
  (")=" ?῏) ; #x1fcf
 
  ("i+`" ?ῒ)
- ("i+'" ?ΐ)
+ ("i+'" ?ΐ)
  ("i=" ?ῖ)
  ("i+=" ?ῗ)
 
  ("`I" ?Ὶ)
- ("'I" ?Ί)
+ ("'I" ?Ί)
 
  ("(`" ?῝) ; #x1fdd
  ("('" ?῞) ; #x1fde
  ("(=" ?῟) ; #x1fdf
 
  ("u+`" ?ῢ)
- ("u+'" ?ΰ)
+ ("u+'" ?ΰ)
 
  ("r)" ?ῤ)
  ("r(" ?ῥ)
@@ -1113,7 +1113,7 @@ "greek-ibycus4"
  ("u+=" ?ῧ)
 
  ("`U" ?Ὺ)
- ("'U" ?Ύ)
+ ("'U" ?Ύ)
 
  ("`R" ?Ῥ)
 
@@ -1128,10 +1128,10 @@ "greek-ibycus4"
  ("w=|" ?ῷ)
 
  ("`O" ?Ὸ)
- ("'O" ?Ό)
+ ("'O" ?Ό)
 
  ("`W" ?Ὼ)
- ("'W" ?Ώ)
+ ("'W" ?Ώ)
  ("W|" ?ῼ)
 
  ("'" ?´) ; #x1ffd ; oxia
diff --git a/lisp/leim/quail/rfc1345.el b/lisp/leim/quail/rfc1345.el
index da1a453a9c..c08fa398c0 100644
--- a/lisp/leim/quail/rfc1345.el
+++ b/lisp/leim/quail/rfc1345.el
@@ -35,7 +35,7 @@
  nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
-;; There doesn't seem to be any point in including ASCII.
+ ;; There doesn't seem to be any point in including ASCII.
  ("&PA" ?\200)
  ("&HO" ?\201)
  ("&BH" ?\202)
@@ -928,19 +928,19 @@
  ("&W*," ?Ὠ)
  ("&W*;" ?Ὡ)
  ("&a*!" ?ὰ)
- ("&a*'" ?ά)
+ ("&a*'" ?ά)
  ("&e*!" ?ὲ)
- ("&e*'" ?έ)
+ ("&e*'" ?έ)
  ("&y*!" ?ὴ)
- ("&y*'" ?ή)
+ ("&y*'" ?ή)
  ("&i*!" ?ὶ)
- ("&i*'" ?ί)
+ ("&i*'" ?ί)
  ("&o*!" ?ὸ)
- ("&o*'" ?ό)
+ ("&o*'" ?ό)
  ("&u*!" ?ὺ)
- ("&u*'" ?ύ)
+ ("&u*'" ?ύ)
  ("&w*!" ?ὼ)
- ("&w*'" ?ώ)
+ ("&w*'" ?ώ)
  ("&a*(" ?ᾰ)
  ("&a*-" ?ᾱ)
  ("&a*j" ?ᾳ)
@@ -948,7 +948,7 @@
  ("&A*(" ?Ᾰ)
  ("&A*-" ?Ᾱ)
  ("&A*!" ?Ὰ)
- ("&A*'" ?Ά)
+ ("&A*'" ?Ά)
  ("&A*J" ?ᾼ)
  ("&)*" ?᾽)
  ("&J3" ?ι)
@@ -957,9 +957,9 @@
  ("&?:" ?῁)
  ("&y*j" ?ῃ)
  ("&y*?" ?ῆ)
- ("&E*'" ?Έ)
+ ("&E*'" ?Έ)
  ("&Y*!" ?Ὴ)
- ("&Y*'" ?Ή)
+ ("&Y*'" ?Ή)
  ("&Y*J" ?ῌ)
  ("&,!" ?῍)
  ("&,'" ?῎)
@@ -970,7 +970,7 @@
  ("&I*(" ?Ῐ)
  ("&I*-" ?Ῑ)
  ("&I*!" ?Ὶ)
- ("&I*'" ?Ί)
+ ("&I*'" ?Ί)
  ("&;!" ?῝)
  ("&;'" ?῞)
  ("&?;" ?῟)
@@ -982,7 +982,7 @@
  ("&U*(" ?Ῠ)
  ("&U*-" ?Ῡ)
  ("&U*!" ?Ὺ)
- ("&U*'" ?Ύ)
+ ("&U*'" ?Ύ)
  ("&R*;" ?Ῥ)
  ("&!:" ?῭)
  ("&:'" ?΅)
@@ -990,9 +990,9 @@
  ("&w*j" ?ῳ)
  ("&w*?" ?ῶ)
  ("&O*!" ?Ὸ)
- ("&O*'" ?Ό)
+ ("&O*'" ?Ό)
  ("&W*!" ?Ὼ)
- ("&W*'" ?Ώ)
+ ("&W*'" ?Ώ)
  ("&W*J" ?ῼ)
  ("&/*" ?´)
  ("&;;" ?῾)
-- 
2.20.1


[-- Attachment #3: Type: text/plain, Size: 395 bytes --]


> What about GREEK OXIA vs GREEK TONOS as standalone characters? Should
> we replace the former with the latter?

I'm not sure; see my other message.  AFAIK vowels composed with oxia
decompose to their tonos counterparts, but not so oxia itself.  I'm
still confused as to what Quail should do with these equivalences.
Should it always use the simplest possible composition?

Thanks,

-- 
Basil