Add support for the Buhid and Tagbanwa scripts (bug#55610)

* lisp/language/philippine.el ("Buhid"): New language environment.
("Tagbanwa"): New language environment.
Add input methods for Buhid and Tagbanwa.
Add sample text for Tagbanwa.
* lisp/international/fontset.el (script-representative-chars)
(setup-default-fontset): Support Buhid and Tagbanwa.
* lisp/leim/quail/philippine.el ("buhid"): New input method.
("tagbanwa"): New input method.

* etc/HELLO: Add a Tagbanwa greeting.
* etc/NEWS: Announce the new language environments and their
input methods.

diff --git a/etc/HELLO b/etc/HELLO
index b87dae90b29507fd97848ebe00048b689805936c..a9653a416415da31a0616ce6928a190de323ad36 100644 (file)
--- a/etc/HELLO
+++ b/etc/HELLO
@@ -92,6 +92,7 @@ Syloti Nagri (ꠍꠤꠟꠐꠤ ꠘꠣꠉꠞꠤ)        ꠀꠌ꠆ꠍꠣꠟꠣꠝꠥ ꠀ
 Tamil (தமிழ்)        வணக்கம்
 Telugu (తెలుగు)    నమస్కారం
 Tagalog (ᜊᜌ᜔ᜊᜌᜒᜈ᜔)     ᜃᜓᜋᜓᜐ᜔ᜆ
+Tagbanwa (ᝦᝪᝯ)   ᝫᝩᝬᝥ ᝣᝮᝧᝯ
 TaiViet (ꪁꪫꪱꪣ ꪼꪕ)  ꪅꪰꪙꫂ ꪨꪮꫂ ꪁꪫꪱ / ꪅꪽ ꪨꪷ ꪁꪫꪱ
 Thai (ภาษาไทย)   สวัสดีครับ / สวัสดีค่ะ
 Tibetan (བོད་སྐད་)     བཀྲ་ཤིས་བདེ་ལེགས༎

diff --git a/etc/NEWS b/etc/NEWS
index 1fa2d086b9acf2fecfc0cebefc00803b5e798a8e..0adb4e289a5aa4339fef9839532d0d585f85f2c4 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -820,6 +820,8 @@ corresponding language environments are:
 **** Modi script and language environment
 **** Baybayin script and Tagalog language environment
 **** Hanunoo script and language environment
+**** Buhid script and language environment
+**** Tagbanwa 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 08a0101a5e09d3ae29e1f22b023f90f9e749e6e2..5967648f36f84fcae16379b05282423a73ada374 100644 (file)
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -184,6 +184,8 @@
        (runic #x16A0)
         (tagalog #x1700)
         (hanunoo #x1720)
+        (buhid #x1740)
+        (tagbanwa #x1760)
        (khmer #x1780)
        (mongolian #x1826)
         (tai-le #x1950)
@@ -752,6 +754,8 @@
                    runic
                     tagalog
                     hanunoo
+                    buhid
+                    tagbanwa
                    symbol
                    braille
                    yi

diff --git a/lisp/language/philippine.el b/lisp/language/philippine.el
index 2a4b17a1c7e9bf7cfb41b141ab27e9de2ce51e9c..e52ad6912cd156a54abff02c3ae6895b514e5dee 100644 (file)
--- a/lisp/language/philippine.el
+++ b/lisp/language/philippine.el
@@ -46,6 +46,23 @@ this language environment.")))
              (documentation . "\
 Philippine Language Hanunoo is supported in this language environment.")))
 
+(set-language-info-alist
+ "Buhid" '((charset unicode)
+           (coding-system utf-8)
+           (coding-priority utf-8)
+           (input-method . "buhid")
+           (documentation . "\
+Philippine Language Buhid is supported in this language environment.")))
+
+(set-language-info-alist
+ "Tagbanwa" '((charset unicode)
+             (coding-system utf-8)
+             (coding-priority utf-8)
+             (input-method . "tagbanwa")
+             (sample-text . "Tagbanwa (ᝦᝪᝯ)      ᝫᝩᝬᝥ ᝣᝮᝧᝯ")
+             (documentation . "\
+Philippine Languages Tagbanwa are supported in this language environment.")))
+
 ;; Tagalog composition rules
 (let ((akshara              "[\x1700-\x1711\x171F]")
       (vowel                "[\x1712\x1713]")

diff --git a/lisp/leim/quail/philippine.el b/lisp/leim/quail/philippine.el
index b9dcccea28213bca522ffbf8bd8724a9a605ebd1..9afbdc354e3c7f47f69fbd11fd4d18a51cb41abf 100644 (file)
--- a/lisp/leim/quail/philippine.el
+++ b/lisp/leim/quail/philippine.el
@@ -92,5 +92,61 @@
  ("N"  ?ᜥ)
  ("m"  ?ᜫ))
 
+(quail-define-package
+ "buhid" "Buhid" "ᝊᝓ" nil "Buhid 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"  ?ᝇ)
+ ("g"  ?ᝄ)
+ ("h"  ?ᝑ)
+ ("j"  ?᜵)
+ ("J"  ?᜶)
+ ("k"  ?ᝃ)
+ ("l"  ?ᝎ)
+ ("b"  ?ᝊ)
+ ("n"  ?ᝈ)
+ ("N"  ?ᝅ)
+ ("m"  ?ᝋ))
+
+(quail-define-package
+ "tagbanwa" "Tagbanwa" "ᝦ" nil "Tagbanwa phonetic input method."
+ nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("q"  ?₱)
+ ("w"  ?ᝯ)
+ ("t"  ?ᝦ)
+ ("y"  ?ᝬ)
+ ("u"  ?ᝳ)
+ ("U"  ?ᝢ)
+ ("i"  ?ᝲ)
+ ("I"  ?ᝡ)
+ ("p"  ?ᝩ)
+ ("a"  ?ᝠ)
+ ("s"  ?ᝰ)
+ ("d"  ?ᝧ)
+ ("g"  ?ᝤ)
+ ("j"  ?᜵)
+ ("J"  ?᜶)
+ ("k"  ?ᝣ)
+ ("l"  ?ᝮ)
+ ("b"  ?ᝪ)
+ ("n"  ?ᝨ)
+ ("N"  ?ᝥ)
+ ("m"  ?ᝫ))
+
 (provide 'philippine)
 ;;; philippine.el ends here