master a3fce23e3b: Add support for the Hanunoo script (bug#55581)

[Eli Zaretskii]

branch: master
commit a3fce23e3b01fca9cf06205a0b18c86bdcde76a3
Author: समीर सिंह Sameer Singh <lumarzeli30@gmail.com>
Commit: Eli Zaretskii <eliz@gnu.org>

    Add support for the Hanunoo script (bug#55581)
    
    * 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 032450b6ee..9794807441 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -819,6 +819,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 @@
        (ogham #x168F)
        (runic #x16A0)
         (tagalog #x1700)
+        (hanunoo #x1720)
        (khmer #x1780)
        (mongolian #x1826)
         (tai-le #x1950)
@@ -750,6 +751,7 @@
                    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 @@ this language environment.")))
                                (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