Subject: Re: [PATCH] Add support for the Gothic script

From: समीर सिंह Sameer Singh<[email-masked]>
Date: Fri, 30 Sep 2022 18:52:00 +0530

On Fri, Sep 30, 2022 at 6:49 PM समीर सिंह Sameer Singh <
[email-masked]> wrote:

> The Gothic script is added to Emacs this time.
>
> Please review the patch
> Thanks
>
From e19f7e4fb2a7a9fa7cba91beb8d1f4933d025b84 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E0=A4=B8=E0=A4=AE=E0=A5=80=E0=A4=B0=20=E0=A4=B8=E0=A4=BF?=
 =?UTF-8?q?=E0=A4=82=E0=A4=B9=20Sameer=20Singh?= <[email-masked]>
Date: Fri, 30 Sep 2022 18:46:56 +0530
Subject: [PATCH] Add support for the Gothic script (bug#58194)

* lisp/language/misc-lang.el ("Gothic"): New language environment.
Add sample text and input method.
* lisp/international/fontset.el (script-representative-chars)
(setup-default-fontset): Support gothic.
* lisp/leim/quail/misc-lang.el ("gothic"): New input method.

* etc/HELLO: Add Gothic greetings.
* etc/NEWS: Announce the new language environment.
---
 etc/HELLO                     |  1 +
 etc/NEWS                      |  1 +
 lisp/international/fontset.el |  2 ++
 lisp/language/misc-lang.el    | 14 ++++++++++++++
 lisp/leim/quail/misc-lang.el  | 33 +++++++++++++++++++++++++++++++++
 5 files changed, 51 insertions(+)

diff --git a/etc/HELLO b/etc/HELLO
index f0dcb45d38..7ddaed44b9 100644
--- a/etc/HELLO
+++ b/etc/HELLO
@@ -57,6 +57,7 @@ Finnish (suomi)	Hei / Hyvää päivää
 French (français)	Bonjour / Salut
 Georgian (ქართული)	გამარჯობა
 German (Deutsch)	Guten Tag / Grüß Gott
+Gothic (𐌲𐌿𐍄𐌹𐍃𐌺𐌰)	𐌷𐌰𐌹𐌻𐍃 / 𐌷𐌰𐌹𐌻𐌰
 Grantha (𑌗𑍍𑌰𑌨𑍍𑌥)	𑌨𑌮𑌸𑍍𑌤𑍇 / 𑌨𑌮𑌸𑍍𑌕𑌾𑌰𑌃
 Greek (ελληνικά)	Γειά σας
 Greek, ancient (ἑλληνική)	Οὖλέ τε καὶ μέγα χαῖρε
diff --git a/etc/NEWS b/etc/NEWS
index aad1a17ae7..05234a0b09 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1272,6 +1272,7 @@ Adlam script and language environment
 Mende Kikakui script and language environment
 Wancho script and language environment
 Toto script and language environment
+Gothic script and language environment
 
 ---
 *** The "Oriya" language environment was renamed to "Odia".
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index aa1477e2ae..6e44b85e6c 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -221,6 +221,7 @@ font-encoding-charset-alist
 	(lycian #x10280)
 	(carian #x102A0)
 	(old-italic #x10300)
+        (gothic #x10330 #x10348)
 	(ugaritic #x10380)
 	(old-permic #x10350)
 	(old-persian #x103A0)
@@ -791,6 +792,7 @@ setup-default-fontset
 		    lycian
 		    carian
 		    old-italic
+                    gothic
 		    ugaritic
 		    old-persian
 		    deseret
diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el
index 1f85c3973f..2708deb940 100644
--- a/lisp/language/misc-lang.el
+++ b/lisp/language/misc-lang.el
@@ -305,6 +305,20 @@ egyptian-shape-grouping
 Mende language and its script Kikakui are supported
 in this language environment.")))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Gothic
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(set-language-info-alist
+ "Gothic" '((charset unicode)
+            (coding-system utf-8)
+            (coding-priority utf-8)
+            (input-method . "gothic")
+            (sample-text . "Gothic (𐌲𐌿𐍄𐌹𐍃𐌺𐌰)	𐌷𐌰𐌹𐌻𐍃 / 𐌷𐌰𐌹𐌻𐌰")
+            (documentation . "\
+Gothic language using the Gothic script is supported in this
+language environment.")))
+
 (provide 'misc-lang)
 
 ;;; misc-lang.el ends here
diff --git a/lisp/leim/quail/misc-lang.el b/lisp/leim/quail/misc-lang.el
index 1bf9de4d8c..8b4fe86dac 100644
--- a/lisp/leim/quail/misc-lang.el
+++ b/lisp/leim/quail/misc-lang.el
@@ -1524,5 +1524,38 @@
  ("nyen"  ?𞣃)
  ("nyon"  ?𞣄))
 
+(quail-define-package
+ "gothic" "Gothic" "𐌰" nil
+ "Gothic script input method." nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("q"  ?𐌵)
+ ("w"  ?𐍅)
+ ("e"  ?𐌴)
+ ("r"  ?𐍂)
+ ("t"  ?𐍄)
+ ("y"  ?𐌸)
+ ("u"  ?𐌿)
+ ("i"  ?𐌹)
+ ("o"  ?𐍉)
+ ("p"  ?𐍀)
+ ("a"  ?𐌰)
+ ("s"  ?𐍃)
+ ("d"  ?𐌳)
+ ("f"  ?𐍆)
+ ("g"  ?𐌲)
+ ("h"  ?𐌷)
+ ("j"  ?𐌾)
+ ("k"  ?𐌺)
+ ("l"  ?𐌻)
+ ("z"  ?𐌶)
+ ("x"  ?𐍇)
+ ("c"  ?𐍈)
+ ("v"  ?𐍁)
+ ("V"  ?𐍊)
+ ("b"  ?𐌱)
+ ("n"  ?𐌽)
+ ("m"  ?𐌼))
+
 (provide 'misc-lang)
 ;;; misc-lang.el ends here
-- 
2.37.3