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.

diff --git a/etc/HELLO b/etc/HELLO
index 2c4377388c84ef4b96b96153442e654b874c7c16..b87dae90b29507fd97848ebe00048b689805936c 100644 (file)
--- 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 032450b6eef1772663f2d1c1481a9786dea0eb83..979480744112fc21afcd3fb61690e19e7d0f0af2 100644 (file)
--- 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 1fcad765a1bb4fe3dd07d52389c1ad1a605cd8c4..08a0101a5e09d3ae29e1f22b023f90f9e749e6e2 100644 (file)
--- 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 28c4616af9b3a52787a65b664414ca526bfa668f..2a4b17a1c7e9bf7cfb41b141ab27e9de2ce51e9c 100644 (file)
--- 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 8d8db8be5ea661fe8976b4fce27fcb51b6c33083..b9dcccea28213bca522ffbf8bd8724a9a605ebd1 100644 (file)
--- 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