aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/language
diff options
context:
space:
mode:
authorसमीर सिंह Sameer Singh2022-10-08 15:37:00 +0530
committerEli Zaretskii2022-10-09 17:21:33 +0300
commit90c3a25eb112f9c2b3d5fe2b5697160f7df10324 (patch)
tree96ae91e08cda44595fb586082c509a375fdbb233 /lisp/language
parentb5dc0513d53cf0e520c8e9c4ca197cb7ccdf2b23 (diff)
downloademacs-90c3a25eb112f9c2b3d5fe2b5697160f7df10324.tar.gz
emacs-90c3a25eb112f9c2b3d5fe2b5697160f7df10324.zip
Set the PARENTS argument for language environments
* lisp/language/indonesian.el * lisp/language/philippine.el * lisp/language/misc-lang.el (set-language-info-alist): Add PARENTS argument. (Bug#58376)
Diffstat (limited to 'lisp/language')
-rw-r--r--lisp/language/indonesian.el21
-rw-r--r--lisp/language/misc-lang.el18
-rw-r--r--lisp/language/philippine.el12
3 files changed, 34 insertions, 17 deletions
diff --git a/lisp/language/indonesian.el b/lisp/language/indonesian.el
index 699f8192543..5afcd27759d 100644
--- a/lisp/language/indonesian.el
+++ b/lisp/language/indonesian.el
@@ -34,7 +34,8 @@
34 (input-method . "balinese") 34 (input-method . "balinese")
35 (sample-text . "Balinese (ᬅᬓ᭄ᬱᬭᬩᬮᬶ) ᬒᬁᬲ᭄ᬯᬲ᭄ᬢ᭄ᬬᬲ᭄ᬢᬸ") 35 (sample-text . "Balinese (ᬅᬓ᭄ᬱᬭᬩᬮᬶ) ᬒᬁᬲ᭄ᬯᬲ᭄ᬢ᭄ᬬᬲ᭄ᬢᬸ")
36 (documentation . "\ 36 (documentation . "\
37Balinese language and its script are supported in this language environment."))) 37Balinese language and its script are supported in this language environment."))
38 '("Indonesian"))
38 39
39(set-language-info-alist 40(set-language-info-alist
40 "Javanese" '((charset unicode) 41 "Javanese" '((charset unicode)
@@ -43,7 +44,8 @@ Balinese language and its script are supported in this language environment.")))
43 (input-method . "javanese") 44 (input-method . "javanese")
44 (sample-text . "Javanese (ꦲꦏ꧀ꦱꦫꦗꦮ) ꦲꦭꦺꦴ") 45 (sample-text . "Javanese (ꦲꦏ꧀ꦱꦫꦗꦮ) ꦲꦭꦺꦴ")
45 (documentation . "\ 46 (documentation . "\
46Javanese language and its script are supported in this language environment."))) 47Javanese language and its script are supported in this language environment."))
48 '("Indonesian"))
47 49
48(set-language-info-alist 50(set-language-info-alist
49 "Sundanese" '((charset unicode) 51 "Sundanese" '((charset unicode)
@@ -52,7 +54,8 @@ Javanese language and its script are supported in this language environment.")))
52 (input-method . "sundanese") 54 (input-method . "sundanese")
53 (sample-text . "Sundanese (ᮃᮊ᮪ᮞᮛᮞᮥᮔ᮪ᮓ) ᮞᮙ᮪ᮕᮥᮛᮞᮥᮔ᮪") 55 (sample-text . "Sundanese (ᮃᮊ᮪ᮞᮛᮞᮥᮔ᮪ᮓ) ᮞᮙ᮪ᮕᮥᮛᮞᮥᮔ᮪")
54 (documentation . "\ 56 (documentation . "\
55Sundanese language and its script are supported in this language environment."))) 57Sundanese language and its script are supported in this language environment."))
58 '("Indonesian"))
56 59
57(set-language-info-alist 60(set-language-info-alist
58 "Batak" '((charset unicode) 61 "Batak" '((charset unicode)
@@ -62,7 +65,8 @@ Sundanese language and its script are supported in this language environment."))
62 (sample-text . "Batak (ᯘᯮᯒᯗ᯲ᯅᯗᯂ᯲) ᯂᯬᯒᯘ᯲ / ᯔᯧᯐᯬᯀᯱᯐᯬᯀᯱ") 65 (sample-text . "Batak (ᯘᯮᯒᯗ᯲ᯅᯗᯂ᯲) ᯂᯬᯒᯘ᯲ / ᯔᯧᯐᯬᯀᯱᯐᯬᯀᯱ")
63 (documentation . "\ 66 (documentation . "\
64Languages that use the Batak script, such as Karo, Toba, Pakpak, Mandailing 67Languages that use the Batak script, such as Karo, Toba, Pakpak, Mandailing
65and Simalungun, are supported in this language environment."))) 68and Simalungun, are supported in this language environment."))
69 '("Indonesian"))
66 70
67(set-language-info-alist 71(set-language-info-alist
68 "Rejang" '((charset unicode) 72 "Rejang" '((charset unicode)
@@ -71,7 +75,8 @@ and Simalungun, are supported in this language environment.")))
71 (input-method . "rejang") 75 (input-method . "rejang")
72 (sample-text . "Rejang (ꥆꤰ꥓ꤼꤽ ꤽꥍꤺꥏ) ꤸꥉꥐꤺꥉꥂꥎ") 76 (sample-text . "Rejang (ꥆꤰ꥓ꤼꤽ ꤽꥍꤺꥏ) ꤸꥉꥐꤺꥉꥂꥎ")
73 (documentation . "\ 77 (documentation . "\
74Rejang language and its script are supported in this language environment."))) 78Rejang language and its script are supported in this language environment."))
79 '("Indonesian"))
75 80
76(set-language-info-alist 81(set-language-info-alist
77 "Makasar" '((charset unicode) 82 "Makasar" '((charset unicode)
@@ -80,7 +85,8 @@ Rejang language and its script are supported in this language environment.")))
80 (input-method . "makasar") 85 (input-method . "makasar")
81 (sample-text . "Makasar (𑻪𑻢𑻪𑻢) 𑻦𑻤𑻵𑻱") 86 (sample-text . "Makasar (𑻪𑻢𑻪𑻢) 𑻦𑻤𑻵𑻱")
82 (documentation . "\ 87 (documentation . "\
83Makassarese language and its script Makasar are supported in this language environment."))) 88Makassarese language and its script Makasar are supported in this language environment."))
89 '("Indonesian"))
84 90
85(set-language-info-alist 91(set-language-info-alist
86 "Buginese" '((charset unicode) 92 "Buginese" '((charset unicode)
@@ -89,7 +95,8 @@ Makassarese language and its script Makasar are supported in this language envir
89 (input-method . "lontara") 95 (input-method . "lontara")
90 (sample-text . "Buginese (ᨒᨚᨈᨑ) ᨖᨒᨚ") 96 (sample-text . "Buginese (ᨒᨚᨈᨑ) ᨖᨒᨚ")
91 (documentation . "\ 97 (documentation . "\
92Buginese language and its script Lontara are supported in this language environment."))) 98Buginese language and its script Lontara are supported in this language environment."))
99 '("Indonesian"))
93 100
94;; Balinese composition rules 101;; Balinese composition rules
95(let ((consonant "[\x1B13-\x1B33\x1B45-\x1B4B]") 102(let ((consonant "[\x1B13-\x1B33\x1B45-\x1B4B]")
diff --git a/lisp/language/misc-lang.el b/lisp/language/misc-lang.el
index 370be4b4a39..c34017d9b3a 100644
--- a/lisp/language/misc-lang.el
+++ b/lisp/language/misc-lang.el
@@ -228,7 +228,8 @@ thin (i.e. 1-dot width) space."
228 (sample-text . "Hanifi Rohingya (𐴌𐴟𐴇𐴥𐴝𐴚𐴒𐴙𐴝 𐴇𐴝𐴕𐴞𐴉𐴞 𐴓𐴠𐴑𐴤𐴝) 𐴀𐴝𐴏𐴓𐴝𐴀𐴡𐴤𐴛𐴝𐴓𐴝𐴙𐴑𐴟𐴔") 228 (sample-text . "Hanifi Rohingya (𐴌𐴟𐴇𐴥𐴝𐴚𐴒𐴙𐴝 𐴇𐴝𐴕𐴞𐴉𐴞 𐴓𐴠𐴑𐴤𐴝) 𐴀𐴝𐴏𐴓𐴝𐴀𐴡𐴤𐴛𐴝𐴓𐴝𐴙𐴑𐴟𐴔")
229 (documentation . "\ 229 (documentation . "\
230Rohingya language and its script Hanifi Rohingya are supported 230Rohingya language and its script Hanifi Rohingya are supported
231in this language environment."))) 231in this language environment."))
232 '("Misc"))
232 233
233;; Hanifi Rohingya composition rules 234;; Hanifi Rohingya composition rules
234(set-char-table-range 235(set-char-table-range
@@ -251,7 +252,8 @@ in this language environment.")))
251 (sample-text . "Kharoṣṭhī (𐨑𐨪𐨆𐨛𐨁) 𐨣𐨨𐨲𐨪𐨆 𐨐𐨪𐨅𐨨𐨁") 252 (sample-text . "Kharoṣṭhī (𐨑𐨪𐨆𐨛𐨁) 𐨣𐨨𐨲𐨪𐨆 𐨐𐨪𐨅𐨨𐨁")
252 (documentation . "\ 253 (documentation . "\
253Language environment for Gāndhārī, Sanskrit, and other languages 254Language environment for Gāndhārī, Sanskrit, and other languages
254using the Kharoṣṭhī script."))) 255using the Kharoṣṭhī script."))
256 '("Misc"))
255 257
256(let ((consonant "[\U00010A00\U00010A10-\U00010A35]") 258(let ((consonant "[\U00010A00\U00010A10-\U00010A35]")
257 (vowel "[\U00010A01-\U00010A06]") 259 (vowel "[\U00010A01-\U00010A06]")
@@ -281,7 +283,8 @@ using the Kharoṣṭhī script.")))
281 (sample-text . "Adlam (𞤀𞤣𞤤𞤢𞤥) 𞤅𞤢𞤤𞤢𞥄𞤥") 283 (sample-text . "Adlam (𞤀𞤣𞤤𞤢𞤥) 𞤅𞤢𞤤𞤢𞥄𞤥")
282 (documentation . "\ 284 (documentation . "\
283Fulani language and its script Adlam are supported 285Fulani language and its script Adlam are supported
284in this language environment."))) 286in this language environment."))
287 '("Misc"))
285 288
286;; Adlam composition rules 289;; Adlam composition rules
287(set-char-table-range 290(set-char-table-range
@@ -303,7 +306,8 @@ in this language environment.")))
303 (sample-text . "Mende Kikakui (𞠀𞠁𞠂) 𞠛𞠉") 306 (sample-text . "Mende Kikakui (𞠀𞠁𞠂) 𞠛𞠉")
304 (documentation . "\ 307 (documentation . "\
305Mende language and its script Kikakui are supported 308Mende language and its script Kikakui are supported
306in this language environment."))) 309in this language environment."))
310 '("Misc"))
307 311
308;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 312;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
309;; Gothic 313;; Gothic
@@ -317,7 +321,8 @@ in this language environment.")))
317 (sample-text . "Gothic (𐌲𐌿𐍄𐌹𐍃𐌺𐌰) 𐌷𐌰𐌹𐌻𐍃 / 𐌷𐌰𐌹𐌻𐌰") 321 (sample-text . "Gothic (𐌲𐌿𐍄𐌹𐍃𐌺𐌰) 𐌷𐌰𐌹𐌻𐍃 / 𐌷𐌰𐌹𐌻𐌰")
318 (documentation . "\ 322 (documentation . "\
319Ancient Gothic language using the Gothic script is supported in this 323Ancient Gothic language using the Gothic script is supported in this
320language environment."))) 324language environment."))
325 '("Misc"))
321 326
322;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 327;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
323;; Coptic 328;; Coptic
@@ -331,7 +336,8 @@ language environment.")))
331 (sample-text . "Coptic (ⲘⲉⲧⲢⲉⲙ̀ⲛⲭⲏⲙⲓ) Ⲛⲟⲩϥⲣⲓ") 336 (sample-text . "Coptic (ⲘⲉⲧⲢⲉⲙ̀ⲛⲭⲏⲙⲓ) Ⲛⲟⲩϥⲣⲓ")
332 (documentation . "\ 337 (documentation . "\
333Coptic language using the Coptic script is supported in this 338Coptic language using the Coptic script is supported in this
334language environment."))) 339language environment."))
340 '("Misc"))
335 341
336(provide 'misc-lang) 342(provide 'misc-lang)
337 343
diff --git a/lisp/language/philippine.el b/lisp/language/philippine.el
index e52ad6912cd..ce619bdaa1d 100644
--- a/lisp/language/philippine.el
+++ b/lisp/language/philippine.el
@@ -35,7 +35,8 @@
35 (sample-text . "Tagalog (ᜊᜌ᜔ᜊᜌᜒᜈ᜔) ᜃᜓᜋᜓᜐ᜔ᜆ") 35 (sample-text . "Tagalog (ᜊᜌ᜔ᜊᜌᜒᜈ᜔) ᜃᜓᜋᜓᜐ᜔ᜆ")
36 (documentation . "\ 36 (documentation . "\
37Tagalog language using the Baybayin script is supported in 37Tagalog language using the Baybayin script is supported in
38this language environment."))) 38this language environment."))
39 '("Philippine"))
39 40
40(set-language-info-alist 41(set-language-info-alist
41 "Hanunoo" '((charset unicode) 42 "Hanunoo" '((charset unicode)
@@ -44,7 +45,8 @@ this language environment.")))
44 (input-method . "hanunoo") 45 (input-method . "hanunoo")
45 (sample-text . "Hanunoo (ᜱᜨᜳᜨᜳᜢ) ᜫᜬᜧ᜴ ᜣᜭᜯᜥ᜴ ᜰᜲᜭᜥ᜴") 46 (sample-text . "Hanunoo (ᜱᜨᜳᜨᜳᜢ) ᜫᜬᜧ᜴ ᜣᜭᜯᜥ᜴ ᜰᜲᜭᜥ᜴")
46 (documentation . "\ 47 (documentation . "\
47Philippine Language Hanunoo is supported in this language environment."))) 48Philippine Language Hanunoo is supported in this language environment."))
49 '("Philippine"))
48 50
49(set-language-info-alist 51(set-language-info-alist
50 "Buhid" '((charset unicode) 52 "Buhid" '((charset unicode)
@@ -52,7 +54,8 @@ Philippine Language Hanunoo is supported in this language environment.")))
52 (coding-priority utf-8) 54 (coding-priority utf-8)
53 (input-method . "buhid") 55 (input-method . "buhid")
54 (documentation . "\ 56 (documentation . "\
55Philippine Language Buhid is supported in this language environment."))) 57Philippine Language Buhid is supported in this language environment."))
58 '("Philippine"))
56 59
57(set-language-info-alist 60(set-language-info-alist
58 "Tagbanwa" '((charset unicode) 61 "Tagbanwa" '((charset unicode)
@@ -61,7 +64,8 @@ Philippine Language Buhid is supported in this language environment.")))
61 (input-method . "tagbanwa") 64 (input-method . "tagbanwa")
62 (sample-text . "Tagbanwa (ᝦᝪᝯ) ᝫᝩᝬᝥ ᝣᝮᝧᝯ") 65 (sample-text . "Tagbanwa (ᝦᝪᝯ) ᝫᝩᝬᝥ ᝣᝮᝧᝯ")
63 (documentation . "\ 66 (documentation . "\
64Philippine Languages Tagbanwa are supported in this language environment."))) 67Philippine Languages Tagbanwa are supported in this language environment."))
68 '("Philippine"))
65 69
66;; Tagalog composition rules 70;; Tagalog composition rules
67(let ((akshara "[\x1700-\x1711\x171F]") 71(let ((akshara "[\x1700-\x1711\x171F]")