Add support for the Makasar and Lontara scripts (bug#55734)

* lisp/language/indonesian.el ("Makasar") ("Buginese"):
New language environment. Add composition rules for Makasar
and Lontara. Add sample texts and input methods.
* lisp/international/fontset.el (script-representative-chars)
(setup-default-fontset): Support Makasar and Buginese.
* lisp/leim/quail/indonesian.el ("makasar") ("lontara"):
New input methods.

* etc/HELLO: Add Makasar and Buginese greetings.
* etc/NEWS: Announce the new language environments.

diff --git a/etc/HELLO b/etc/HELLO
index 39cf6c7504709b44971448b89a25b3bff779b8ca..f63f65ff7dd7fd10efadd43b2f2a5f24c7d533ae 100644 (file)
--- a/etc/HELLO
+++ b/etc/HELLO
@@ -34,6 +34,7 @@ Bengali (বাংলা)     নমস্কার
 Brahmi (𑀩𑁆𑀭𑀸𑀳𑁆𑀫𑀻)      𑀦𑀫𑀲𑁆𑀢𑁂
 
 Braille        ⠓⠑⠇⠇⠕
+Buginese (ᨒᨚᨈᨑ)        ᨖᨒᨚ
 Burmese (မြန်မာ)   မင်္ဂလာပါ
 C      printf (<x-color><param>orange red</param>"Hello, world!\n"</x-color>);
 Cham (ꨌꩌ)  ꨦꨤꩌ ꨦꨁꨰ
@@ -73,6 +74,7 @@ Khmer (ភាសាខ្មែរ)   ជំរាបសួរ
 Lakota (Lakȟotiyapi)  Taŋyáŋ yahí!
 Lao (ພາສາລາວ)    ສະບາຍດີ / ຂໍໃຫ້ໂຊກດີ
 Limbu (ᤕᤰᤌᤢᤱ ᤐᤠᤴ)      ᤛᤣᤘᤠᤖᤥ
+Makasar (𑻪𑻢𑻪𑻢)     𑻦𑻤𑻵𑻱
 Malayalam (മലയാളം) നമസ്കാരം
 Maldivian (ދިވެހި)       އައްސަލާމު ޢަލައިކުމް / ކިހިނެހް؟
 Maltese (il-Malti)     Bonġu / Saħħa

diff --git a/etc/NEWS b/etc/NEWS
index 1d37bb84c6514d6e847d7fdeebd8fec45f8fa7aa..166e991c495f9f9f33980a38dd355b0eb73b53ba 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -838,6 +838,8 @@ corresponding language environments are:
 **** Sundanese script and language environment
 **** Batak script and language environment
 **** Rejang script and language environment
+**** Makasar script and language environment
+**** Lontara 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 0c008f90b70103e0cddad716708f656f2bd988f2..425e9dcb41607f76b145075451a98b8bbb38a577 100644 (file)
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -189,6 +189,7 @@
        (khmer #x1780)
        (mongolian #x1826)
         (limbu #x1901 #x1920 #x1936)
+        (buginese #x1A00 #x1A1E)
         (balinese #x1B13 #x1B35 #x1B5E)
         (sundanese #x1B8A #x1BAB #x1CC4)
         (batak #x1BC2 #x1BE7 #x1BFF)
@@ -266,7 +267,7 @@
        (marchen #x11C72)
        (masaram-gondi #x11D00)
        (gunjala-gondi #x11D60)
-       (makasar #x11EE0)
+       (makasar #x11EE0 #x11EF7)
        (cuneiform #x12000)
        (cypro-minoan #x12F90)
        (egyptian #x13000)
@@ -762,6 +763,7 @@
                     buhid
                     tagbanwa
                     limbu
+                    buginese
                     balinese
                     sundanese
                     batak

diff --git a/lisp/language/indonesian.el b/lisp/language/indonesian.el
index efc7b739047ea7173737febd6f5c921b5d2d3447..699f8192543c3bb6a54d1caebacce5e6c9fcc4ee 100644 (file)
--- a/lisp/language/indonesian.el
+++ b/lisp/language/indonesian.el
@@ -73,6 +73,24 @@ and Simalungun, are supported in this language environment.")))
             (documentation . "\
 Rejang language and its script are supported in this language environment.")))
 
+(set-language-info-alist
+ "Makasar" '((charset unicode)
+             (coding-system utf-8)
+             (coding-priority utf-8)
+             (input-method . "makasar")
+             (sample-text . "Makasar (𑻪𑻢𑻪𑻢)    𑻦𑻤𑻵𑻱")
+             (documentation . "\
+Makassarese language and its script Makasar are supported in this language environment.")))
+
+(set-language-info-alist
+ "Buginese" '((charset unicode)
+              (coding-system utf-8)
+              (coding-priority utf-8)
+              (input-method . "lontara")
+              (sample-text . "Buginese (ᨒᨚᨈᨑ)    ᨖᨒᨚ")
+              (documentation . "\
+Buginese language and its script Lontara are supported in this language environment.")))
+
 ;; Balinese composition rules
 (let ((consonant            "[\x1B13-\x1B33\x1B45-\x1B4B]")
       (independent-vowel    "[\x1B05-\x1B12]")
@@ -165,5 +183,15 @@ Rejang language and its script are supported in this language environment.")))
                                        dependant-consonant "?")
                                1 'font-shape-gstring))))
 
+;; Makasar composition rules
+(let ((akshara              "[\x11EE0-\x11EF2]")
+      (vowel                "[\x11EF3-\x11EF6]"))
+  (set-char-table-range composition-function-table
+                        '(#x11EF3 . #x11EF6)
+                        (list (vector
+                               ;; Akshara based syllables
+                               (concat akshara vowel "*")
+                               1 'font-shape-gstring))))
+
 (provide 'indonesian)
 ;;; indonesian.el ends here

diff --git a/lisp/leim/quail/indonesian.el b/lisp/leim/quail/indonesian.el
index 206bcfc5fe349f175215eeb59e1f61bfaab43a6c..8d0d158076ab179d14a86939b26fbe5a216c0148 100644 (file)
--- a/lisp/leim/quail/indonesian.el
+++ b/lisp/leim/quail/indonesian.el
@@ -444,8 +444,8 @@
  ("`m" ?ᯣ))
 
 (quail-define-package
-   "rejang" "Rejang" "ꤽꥍ" nil "Rejang phonetic input method."
-   nil t t t t nil nil nil nil nil t)
+ "rejang" "Rejang" "ꤽꥍ" nil "Rejang phonetic input method."
+ nil t t t t nil nil nil nil nil t)
 
 (quail-define-rules
  ("q" ?꥟)
@@ -486,5 +486,72 @@
  ("m" ?ꤸ)
  ("M" ?ꥂ))
 
+(quail-define-package
+ "makasar" "Makasar" "𑻪" nil "Makasar phonetic input method."
+ nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("q" ?𑻷)
+ ("Q" ?𑻸)
+ ("e" ?𑻵)
+ ("r" ?𑻭)
+ ("t" ?𑻦)
+ ("y" ?𑻬)
+ ("u" ?𑻴)
+ ("i" ?𑻳)
+ ("o" ?𑻶)
+ ("p" ?𑻣)
+ ("a" ?𑻱)
+ ("s" ?𑻰)
+ ("d" ?𑻧)
+ ("g" ?𑻡)
+ ("j" ?𑻪)
+ ("k" ?𑻠)
+ ("l" ?𑻮)
+ ("z" ?𑻢)
+ ("Z" ?𑻲)
+ ("x" ?𑻫)
+ ("c" ?𑻩)
+ ("v" ?𑻯)
+ ("b" ?𑻤)
+ ("n" ?𑻨)
+ ("m" ?𑻥))
+
+(quail-define-package
+ "lontara" "Lontara" "ᨒ" nil "Lontara phonetic input method."
+ nil t t t t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("q" ?᨞)
+ ("Q" ?᨟)
+ ("e" ?ᨙ)
+ ("E" ?ᨛ)
+ ("r" ?ᨑ)
+ ("t" ?ᨈ)
+ ("y" ?ᨐ)
+ ("u" ?ᨘ)
+ ("i" ?ᨗ)
+ ("o" ?ᨚ)
+ ("p" ?ᨄ)
+ ("a" ?ᨕ)
+ ("s" ?ᨔ)
+ ("d" ?ᨉ)
+ ("g" ?ᨁ)
+ ("h" ?ᨖ)
+ ("j" ?ᨍ)
+ ("k" ?ᨀ)
+ ("l" ?ᨒ)
+ ("z" ?ᨂ)
+ ("Z" ?ᨃ)
+ ("x" ?ᨎ)
+ ("X" ?ᨏ)
+ ("c" ?ᨌ)
+ ("v" ?ᨓ)
+ ("b" ?ᨅ)
+ ("n" ?ᨊ)
+ ("N" ?ᨋ)
+ ("m" ?ᨆ)
+ ("M" ?ᨇ))
+
 (provide 'indonesian)
 ;;; indonesian.el ends here