From 7c95a02e0cd08955b7631686666c62c7bfa7ce69 Mon Sep 17 00:00:00 2001
From: Robert Pluim <rpluim@gmail.com>
Date: Mon, 3 Jun 2024 13:29:54 +0200
Subject: [PATCH] Add another iso-transl entry for Euro character

* lisp/international/iso-transl.el (iso-transl-char-map): Add 'C-x 8 E'
to align with the other currency characters.

* etc/NEWS: Announce it.

(cherry picked from commit 3ad2dd7f3bf5309aa5a12aa5d16b0d0d9f9364c4)
---
 etc/NEWS                         | 4 ++++
 lisp/international/iso-transl.el | 3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/etc/NEWS b/etc/NEWS
index 0286defec93..8325b5ef2d6 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -603,6 +603,10 @@ respectively, after activating French language support via
 'iso-transl-set-language'.  Double guillemets were already supported via
 'C-x 8 <' and 'C-x 8 >'
 
+*** Additional 'C-x 8' key translation for Euro "€" currency symbol.
+This can now be entered using 'C-x 8 E' in addition to the existing
+'C-x 8 * E' translation.
+
 
 * Changes in Specialized Modes and Packages in Emacs 30.1
 
diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el
index a3f2dfb9f9e..33a87b51e43 100644
--- a/lisp/international/iso-transl.el
+++ b/lisp/international/iso-transl.el
@@ -164,6 +164,8 @@
     ("?"    . [?¿])
     ("*C"   . [?©])
     ("C"    . [?©])
+    ("*E"   . [?€])
+    ("E"    . [?€])
     ("*L"   . [?£])
     ("L"    . [?£])
     ("*P"   . [?¶])
@@ -290,7 +292,6 @@
     ("**"   . [?•])
     ("*'"   . [?′])
     ("*\""  . [?″])
-    ("*E"   . [?€])
     ("No"   . [?№])
     ("a<"   . [?←])
     ("a>"   . [?→])
-- 
2.39.2