1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00

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)
This commit is contained in:
समीर सिंह Sameer Singh 2022-10-08 15:37:00 +05:30 committed by Eli Zaretskii
parent b5dc0513d5
commit 90c3a25eb1
3 changed files with 34 additions and 17 deletions

View File

@ -34,7 +34,8 @@
(input-method . "balinese")
(sample-text . "Balinese (ᬅᬓ᭄ᬱᬭᬩᬮᬶ) ᬒᬁᬲ᭄ᬯᬲ᭄ᬢ᭄ᬬᬲ᭄ᬢᬸ")
(documentation . "\
Balinese language and its script are supported in this language environment.")))
Balinese language and its script are supported in this language environment."))
'("Indonesian"))
(set-language-info-alist
"Javanese" '((charset unicode)
@ -43,7 +44,8 @@ Balinese language and its script are supported in this language environment.")))
(input-method . "javanese")
(sample-text . "Javanese (ꦲꦏ꧀ꦱꦫꦗꦮ) ꦲꦭꦺꦴ")
(documentation . "\
Javanese language and its script are supported in this language environment.")))
Javanese language and its script are supported in this language environment."))
'("Indonesian"))
(set-language-info-alist
"Sundanese" '((charset unicode)
@ -52,7 +54,8 @@ Javanese language and its script are supported in this language environment.")))
(input-method . "sundanese")
(sample-text . "Sundanese (ᮃᮊ᮪ᮞᮛᮞᮥᮔ᮪ᮓ) ᮞᮙ᮪ᮕᮥᮛᮞᮥᮔ᮪")
(documentation . "\
Sundanese language and its script are supported in this language environment.")))
Sundanese language and its script are supported in this language environment."))
'("Indonesian"))
(set-language-info-alist
"Batak" '((charset unicode)
@ -62,7 +65,8 @@ Sundanese language and its script are supported in this language environment."))
(sample-text . "Batak (ᯘᯮᯒᯗ᯲ᯅᯗᯂ᯲) ᯂᯬᯒᯘ᯲ / ᯔᯧᯐᯬᯀᯱᯐᯬᯀᯱ")
(documentation . "\
Languages that use the Batak script, such as Karo, Toba, Pakpak, Mandailing
and Simalungun, are supported in this language environment.")))
and Simalungun, are supported in this language environment."))
'("Indonesian"))
(set-language-info-alist
"Rejang" '((charset unicode)
@ -71,7 +75,8 @@ and Simalungun, are supported in this language environment.")))
(input-method . "rejang")
(sample-text . "Rejang (ꥆꤰ꥓ꤼꤽ ꤽꥍꤺꥏ) ꤸꥉꥐꤺꥉꥂꥎ")
(documentation . "\
Rejang language and its script are supported in this language environment.")))
Rejang language and its script are supported in this language environment."))
'("Indonesian"))
(set-language-info-alist
"Makasar" '((charset unicode)
@ -80,7 +85,8 @@ Rejang language and its script are supported in this language environment.")))
(input-method . "makasar")
(sample-text . "Makasar (𑻪𑻢𑻪𑻢) 𑻦𑻤𑻵𑻱")
(documentation . "\
Makassarese language and its script Makasar are supported in this language environment.")))
Makassarese language and its script Makasar are supported in this language environment."))
'("Indonesian"))
(set-language-info-alist
"Buginese" '((charset unicode)
@ -89,7 +95,8 @@ Makassarese language and its script Makasar are supported in this language envir
(input-method . "lontara")
(sample-text . "Buginese (ᨒᨚᨈᨑ) ᨖᨒᨚ")
(documentation . "\
Buginese language and its script Lontara are supported in this language environment.")))
Buginese language and its script Lontara are supported in this language environment."))
'("Indonesian"))
;; Balinese composition rules
(let ((consonant "[\x1B13-\x1B33\x1B45-\x1B4B]")

View File

@ -228,7 +228,8 @@ thin (i.e. 1-dot width) space."
(sample-text . "Hanifi Rohingya (𐴌𐴟𐴇𐴥𐴝𐴚𐴒𐴙𐴝 𐴇𐴝𐴕𐴞𐴉𐴞 𐴓𐴠𐴑𐴤𐴝) 𐴀𐴝𐴏𐴓𐴝𐴀𐴡𐴤𐴛𐴝𐴓𐴝𐴙𐴑𐴟𐴔")
(documentation . "\
Rohingya language and its script Hanifi Rohingya are supported
in this language environment.")))
in this language environment."))
'("Misc"))
;; Hanifi Rohingya composition rules
(set-char-table-range
@ -251,7 +252,8 @@ in this language environment.")))
(sample-text . "Kharoṣṭhī (𐨑𐨪𐨆𐨛𐨁) 𐨣𐨨𐨲𐨪𐨆 𐨐𐨪𐨅𐨨𐨁")
(documentation . "\
Language environment for Gāndhārī, Sanskrit, and other languages
using the Kharoṣṭhī script.")))
using the Kharoṣṭhī script."))
'("Misc"))
(let ((consonant "[\U00010A00\U00010A10-\U00010A35]")
(vowel "[\U00010A01-\U00010A06]")
@ -281,7 +283,8 @@ using the Kharoṣṭhī script.")))
(sample-text . "Adlam (𞤀𞤣𞤤𞤢𞤥) 𞤅𞤢𞤤𞤢𞥄𞤥")
(documentation . "\
Fulani language and its script Adlam are supported
in this language environment.")))
in this language environment."))
'("Misc"))
;; Adlam composition rules
(set-char-table-range
@ -303,7 +306,8 @@ in this language environment.")))
(sample-text . "Mende Kikakui (𞠀𞠁𞠂) 𞠛𞠉")
(documentation . "\
Mende language and its script Kikakui are supported
in this language environment.")))
in this language environment."))
'("Misc"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Gothic
@ -317,7 +321,8 @@ in this language environment.")))
(sample-text . "Gothic (𐌲𐌿𐍄𐌹𐍃𐌺𐌰) 𐌷𐌰𐌹𐌻𐍃 / 𐌷𐌰𐌹𐌻𐌰")
(documentation . "\
Ancient Gothic language using the Gothic script is supported in this
language environment.")))
language environment."))
'("Misc"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Coptic
@ -331,7 +336,8 @@ language environment.")))
(sample-text . "Coptic (ⲘⲉⲧⲢⲉⲙ̀ⲛⲭⲏⲙⲓ) Ⲛⲟⲩϥⲣⲓ")
(documentation . "\
Coptic language using the Coptic script is supported in this
language environment.")))
language environment."))
'("Misc"))
(provide 'misc-lang)

View File

@ -35,7 +35,8 @@
(sample-text . "Tagalog (ᜊᜌ᜔ᜊᜌᜒᜈ᜔) ᜃᜓᜋᜓᜐ᜔ᜆ")
(documentation . "\
Tagalog language using the Baybayin script is supported in
this language environment.")))
this language environment."))
'("Philippine"))
(set-language-info-alist
"Hanunoo" '((charset unicode)
@ -44,7 +45,8 @@ this language environment.")))
(input-method . "hanunoo")
(sample-text . "Hanunoo (ᜱᜨᜳᜨᜳᜢ) ᜫᜬᜧ᜴ ᜣᜭᜯᜥ᜴ ᜰᜲᜭᜥ᜴")
(documentation . "\
Philippine Language Hanunoo is supported in this language environment.")))
Philippine Language Hanunoo is supported in this language environment."))
'("Philippine"))
(set-language-info-alist
"Buhid" '((charset unicode)
@ -52,7 +54,8 @@ Philippine Language Hanunoo is supported in this language environment.")))
(coding-priority utf-8)
(input-method . "buhid")
(documentation . "\
Philippine Language Buhid is supported in this language environment.")))
Philippine Language Buhid is supported in this language environment."))
'("Philippine"))
(set-language-info-alist
"Tagbanwa" '((charset unicode)
@ -61,7 +64,8 @@ Philippine Language Buhid is supported in this language environment.")))
(input-method . "tagbanwa")
(sample-text . "Tagbanwa (ᝦᝪᝯ) ᝫᝩᝬᝥ ᝣᝮᝧᝯ")
(documentation . "\
Philippine Languages Tagbanwa are supported in this language environment.")))
Philippine Languages Tagbanwa are supported in this language environment."))
'("Philippine"))
;; Tagalog composition rules
(let ((akshara "[\x1700-\x1711\x171F]")