From 1e7e52b25d70f827644e179f2c921adda31306fc Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" 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" ?ὶ) @@ -561,12 +561,12 @@ "greek-babel" ("<~i" ?ἷ) (">~i" ?ἶ) ("\"i" ?ϊ) - ("\"'i" ?ΐ) + ("\"'i" ?ΐ) ("\"`i" ?ῒ) ("I" ?Ἰ) - ("'I" ?Ί) + ("'I" ?Ί) ("<'I" ?Ἵ) (">'I" ?Ἴ) ("`I" ?Ὶ) @@ -587,7 +587,7 @@ "greek-babel" ("e" ?ἐ) - ("'e" ?έ) + ("'e" ?έ) ("<'e" ?ἕ) (">'e" ?ἔ) ("`e" ?ὲ) @@ -596,7 +596,7 @@ "greek-babel" ("E" ?Ἐ) - ("'E" ?Έ) + ("'E" ?Έ) ("<'E" ?Ἕ) (">'E" ?Ἔ) ("`E" ?Ὲ) @@ -605,7 +605,7 @@ "greek-babel" ("a" ?ἀ) - ("'a" ?ά) + ("'a" ?ά) ("<'a" ?ἅ) (">'a" ?ἄ) ("`a" ?ὰ) @@ -617,7 +617,7 @@ "greek-babel" ("A" ?Ἀ) - ("'A" ?Ά) + ("'A" ?Ά) ("<'A" ?Ἅ) (">'A" ?Ἄ) ("`A" ?Ὰ) @@ -654,7 +654,7 @@ "greek-babel" ("h" ?ἠ) - ("'h" ?ή) + ("'h" ?ή) ("<'h" ?ἥ) (">'h" ?ἤ) ("`h" ?ὴ) @@ -666,7 +666,7 @@ "greek-babel" ("H" ?Ἠ) - ("'H" ?Ή) + ("'H" ?Ή) ("<'H" ?Ἥ) (">'H" ?Ἤ) ("`H" ?Ὴ) @@ -700,7 +700,7 @@ "greek-babel" ("o" ?ὀ) - ("'o" ?ό) + ("'o" ?ό) ("<'o" ?ὅ) (">'o" ?ὄ) ("`o" ?ὸ) @@ -709,7 +709,7 @@ "greek-babel" ("O" ?Ὀ) - ("'O" ?Ό) + ("'O" ?Ό) ("<'O" ?Ὅ) (">'O" ?Ὄ) ("`O" ?Ὸ) @@ -718,7 +718,7 @@ "greek-babel" ("u" ?ὐ) - ("'u" ?ύ) + ("'u" ?ύ) ("<'u" ?ὕ) (">'u" ?ὔ) ("`u" ?ὺ) @@ -728,11 +728,11 @@ "greek-babel" ("<~u" ?ὗ) (">~u" ?ὖ) ("\"u" ?ϋ) - ("\"'u" ?ΰ) + ("\"'u" ?ΰ) ("`\"u" ?ῢ) ("w" ?ὠ) - ("'w" ?ώ) + ("'w" ?ώ) ("<'w" ?ὥ) (">'w" ?ὤ) ("`w" ?ὼ) @@ -753,7 +753,7 @@ "greek-babel" ("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