From db9526912edc27bf064de8704c5443dff3bab384 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?= <lumarzeli30@gmail.com>
Date: Mon, 23 May 2022 00:24:14 +0530
Subject: [PATCH] Add support for the Hanunoo script

* lisp/language/philippine.el ("Hanunoo"): New language environment.
Add composition rules for Hanunoo.  Add sample text and input
method.
* lisp/international/fontset.el (script-representative-chars)
(setup-default-fontset): Support Hanunoo.
* lisp/leim/quail/philippine.el ("hanunoo"): New input method.

* etc/HELLO: Add a Hanunoo greeting.
* etc/NEWS: Announce the new language environment and its
input method.
---
 etc/HELLO                     |  1 +
 etc/NEWS                      |  1 +
 lisp/international/fontset.el |  2 ++
 lisp/language/philippine.el   | 20 ++++++++++++++++++++
 lisp/leim/quail/philippine.el | 30 ++++++++++++++++++++++++++++++
 5 files changed, 54 insertions(+)

diff --git a/etc/HELLO b/etc/HELLO
index 2c4377388c..b87dae90b2 100644
--- a/etc/HELLO
+++ b/etc/HELLO
@@ -57,6 +57,7 @@ Greek (ελληνικά)	Γειά σας
 Greek, ancient (ἑλληνική)	Οὖλέ τε καὶ μέγα χαῖρε
 Gujarati (ગુજરાતી)	નમસ્તે
 Gurmukhi (ਗੁਰਮੁਖੀ)	ਸਤ ਸ੍ਰੀ ਅਕਾਲ
+Hanunoo (ᜱᜨᜳᜨᜳᜢ)	ᜫᜬᜧ᜴ ᜣᜭᜯᜥ᜴ ᜰᜲᜭᜥ᜴
 Hebrew (עִבְרִית)	שָׁלוֹם
 Hindi (हिन्दी)	प्रणाम / पाय लागू
 Hungarian (magyar)	Szép jó napot!
diff --git a/etc/NEWS b/etc/NEWS
index 4331968ba7..e2966ff17d 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -811,6 +811,7 @@ corresponding language environments are:
 **** Syloti Nagri script and language environment
 **** Modi script and language environment
 **** Baybayin script and Tagalog language environment
+**** Hanunoo 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 1fcad765a1..08a0101a5e 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -183,6 +183,7 @@ font-encoding-charset-alist
 	(ogham #x168F)
 	(runic #x16A0)
         (tagalog #x1700)
+        (hanunoo #x1720)
 	(khmer #x1780)
 	(mongolian #x1826)
         (tai-le #x1950)
@@ -750,6 +751,7 @@ setup-default-fontset
 		    ogham
 		    runic
                     tagalog
+                    hanunoo
 		    symbol
 		    braille
 		    yi
diff --git a/lisp/language/philippine.el b/lisp/language/philippine.el
index 28c4616af9..2a4b17a1c7 100644
--- a/lisp/language/philippine.el
+++ b/lisp/language/philippine.el
@@ -37,6 +37,15 @@
 Tagalog language using the Baybayin script is supported in
 this language environment.")))
 
+(set-language-info-alist
+ "Hanunoo" '((charset unicode)
+             (coding-system utf-8)
+             (coding-priority utf-8)
+             (input-method . "hanunoo")
+             (sample-text . "Hanunoo (ᜱᜨᜳᜨᜳᜢ)	ᜫᜬᜧ᜴ ᜣᜭᜯᜥ᜴ ᜰᜲᜭᜥ᜴")
+             (documentation . "\
+Philippine Language Hanunoo is supported in this language environment.")))
+
 ;; Tagalog composition rules
 (let ((akshara              "[\x1700-\x1711\x171F]")
       (vowel                "[\x1712\x1713]")
@@ -55,5 +64,16 @@
                                (concat akshara pamudpod vowel "?")
                                1 'font-shape-gstring))))
 
+;; Hanunoo composition rules
+(let ((akshara              "[\x1720-\x1731]")
+      (vowel                "[\x1732\x1733]")
+      (pamudpod             "\x1734"))
+  (set-char-table-range composition-function-table
+                        '(#x1734 . #x1734)
+                        (list (vector
+                               ;; Akshara pamudpod syllables
+                               (concat akshara pamudpod vowel "?")
+                               1 'font-shape-gstring))))
+
 (provide 'philippine)
 ;;; philippine.el ends here
diff --git a/lisp/leim/quail/philippine.el b/lisp/leim/quail/philippine.el
index 8d8db8be5e..b9dcccea28 100644
--- a/lisp/leim/quail/philippine.el
+++ b/lisp/leim/quail/philippine.el
@@ -62,5 +62,35 @@
  ("N"  ?ᜅ)
  ("m"  ?ᜋ))
 
+(quail-define-package
+ "hanunoo" "Hanunoo" "ᜱ" nil "Hanunoo phonetic input method."
+ nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("q"  ?₱)
+ ("w"  ?ᜯ)
+ ("r"  ?ᜭ)
+ ("t"  ?ᜦ)
+ ("y"  ?ᜬ)
+ ("u"  ?ᜳ)
+ ("U"  ?ᜢ)
+ ("i"  ?ᜲ)
+ ("I"  ?ᜡ)
+ ("p"  ?ᜩ)
+ ("a"  ?ᜠ)
+ ("s"  ?ᜰ)
+ ("d"  ?ᜧ)
+ ("f"  ?᜴)
+ ("g"  ?ᜤ)
+ ("h"  ?ᜱ)
+ ("j"  ?᜵)
+ ("J"  ?᜶)
+ ("k"  ?ᜣ)
+ ("l"  ?ᜮ)
+ ("b"  ?ᜪ)
+ ("n"  ?ᜨ)
+ ("N"  ?ᜥ)
+ ("m"  ?ᜫ))
+
 (provide 'philippine)
 ;;; philippine.el ends here
-- 
2.36.1