diff options
| author | समीर सिंह Sameer Singh <lumarzeli30@gmail.com> | 2022-05-23 00:24:14 +0530 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-05-23 14:46:43 +0300 |
| commit | a3fce23e3b01fca9cf06205a0b18c86bdcde76a3 (patch) | |
| tree | 11b91e3f213f8a6c0bb930f6d0b3cf34723024b1 /lisp/language/philippine.el | |
| parent | e5d76634a2159bc2ae6d1af859b736b834f63f30 (diff) | |
| download | emacs-a3fce23e3b01fca9cf06205a0b18c86bdcde76a3.tar.gz emacs-a3fce23e3b01fca9cf06205a0b18c86bdcde76a3.tar.bz2 emacs-a3fce23e3b01fca9cf06205a0b18c86bdcde76a3.zip | |
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.
Diffstat (limited to 'lisp/language/philippine.el')
| -rw-r--r-- | lisp/language/philippine.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/lisp/language/philippine.el b/lisp/language/philippine.el index 28c4616af9b..2a4b17a1c7e 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 |