Package: emacs;
Reported by: Robert Alessi <alessi <at> robertalessi.net>
Date: Thu, 18 Jul 2019 13:39:02 UTC
Severity: normal
Tags: notabug
Found in version 25.3
Done: Stefan Kangas <stefan <at> marxist.se>
Bug is archived. No further changes may be made.
View this message in rfc822 format
From: "Basil L. Contovounesios" <contovob <at> tcd.ie> To: Robert Alessi <alessi <at> robertalessi.net> Cc: 36717 <at> debbugs.gnu.org Subject: 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
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.