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

Previous Next

Full log

Message #20 received at 36717 <at> debbugs.gnu.org (full text, mbox):

From: "Basil L. Contovounesios" <contovob <at> tcd.ie>
To: Robert Alessi <alessi <at> robertalessi.net>
Cc: 36717 <at> debbugs.gnu.org
Subject: Re: bug#36717: 25.3; greek.el: deprecated vowel+oxia combinations
 should be replaced with vowel+tonos counterparts
Date: Thu, 18 Jul 2019 19:16:39 +0100

[Message part 1 (text/plain, inline)]

Robert Pluim <rpluim <at> gmail.com> writes:

>>>>>> On Thu, 18 Jul 2019 11:03:10 +0200, Robert Alessi <alessi <at> 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:

[0001-Replace-Greek-vowel-oxia-with-vowel-tonos-in-Quail.patch (text/x-diff, inline)]

From 1e7e52b25d70f827644e179f2c921adda31306fc Mon Sep 17 00:00:00 2001
From: "Basil L. Contovounesios" <contovob <at> 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

[Message part 3 (text/plain, inline)]

> 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

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.