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:
parent
b5dc0513d5
commit
90c3a25eb1
@ -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]")
|
||||
|
@ -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)
|
||||
|
||||
|
@ -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]")
|
||||
|
Loading…
Reference in New Issue
Block a user