diff options
| author | समीर सिंह Sameer Singh | 2022-10-08 15:37:00 +0530 |
|---|---|---|
| committer | Eli Zaretskii | 2022-10-09 17:21:33 +0300 |
| commit | 90c3a25eb112f9c2b3d5fe2b5697160f7df10324 (patch) | |
| tree | 96ae91e08cda44595fb586082c509a375fdbb233 /lisp/language | |
| parent | b5dc0513d53cf0e520c8e9c4ca197cb7ccdf2b23 (diff) | |
| download | emacs-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.el | 21 | ||||
| -rw-r--r-- | lisp/language/misc-lang.el | 18 | ||||
| -rw-r--r-- | lisp/language/philippine.el | 12 |
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 . "\ |
| 37 | Balinese language and its script are supported in this language environment."))) | 37 | Balinese 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 . "\ |
| 46 | Javanese language and its script are supported in this language environment."))) | 47 | Javanese 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 . "\ |
| 55 | Sundanese language and its script are supported in this language environment."))) | 57 | Sundanese 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 . "\ |
| 64 | Languages that use the Batak script, such as Karo, Toba, Pakpak, Mandailing | 67 | Languages that use the Batak script, such as Karo, Toba, Pakpak, Mandailing |
| 65 | and Simalungun, are supported in this language environment."))) | 68 | and 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 . "\ |
| 74 | Rejang language and its script are supported in this language environment."))) | 78 | Rejang 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 . "\ |
| 83 | Makassarese language and its script Makasar are supported in this language environment."))) | 88 | Makassarese 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 . "\ |
| 92 | Buginese language and its script Lontara are supported in this language environment."))) | 98 | Buginese 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 . "\ |
| 230 | Rohingya language and its script Hanifi Rohingya are supported | 230 | Rohingya language and its script Hanifi Rohingya are supported |
| 231 | in this language environment."))) | 231 | in 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 . "\ |
| 253 | Language environment for Gāndhārī, Sanskrit, and other languages | 254 | Language environment for Gāndhārī, Sanskrit, and other languages |
| 254 | using the Kharoṣṭhī script."))) | 255 | using 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 . "\ |
| 283 | Fulani language and its script Adlam are supported | 285 | Fulani language and its script Adlam are supported |
| 284 | in this language environment."))) | 286 | in 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 . "\ |
| 305 | Mende language and its script Kikakui are supported | 308 | Mende language and its script Kikakui are supported |
| 306 | in this language environment."))) | 309 | in 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 . "\ |
| 319 | Ancient Gothic language using the Gothic script is supported in this | 323 | Ancient Gothic language using the Gothic script is supported in this |
| 320 | language environment."))) | 324 | language 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 . "\ |
| 333 | Coptic language using the Coptic script is supported in this | 338 | Coptic language using the Coptic script is supported in this |
| 334 | language environment."))) | 339 | language 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 . "\ |
| 37 | Tagalog language using the Baybayin script is supported in | 37 | Tagalog language using the Baybayin script is supported in |
| 38 | this language environment."))) | 38 | this 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 . "\ |
| 47 | Philippine Language Hanunoo is supported in this language environment."))) | 48 | Philippine 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 . "\ |
| 55 | Philippine Language Buhid is supported in this language environment."))) | 57 | Philippine 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 . "\ |
| 64 | Philippine Languages Tagbanwa are supported in this language environment."))) | 67 | Philippine 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]") |