procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/language/indian.el: Improve Brahmi composition rules. (bug#58957)

Browse source
This commit is contained in:
समीर सिंह Sameer Singh 2022-11-02 08:05:44 +05:30 • committed by Eli Zaretskii
parent 78ad33bb05
commit 9f7e5584a4
1 changed files with 29 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

40
lisp/language/indian.el
View file

@ -552,24 +552,40 @@ environment."))
char-script-table)) char-script-table))
;; Brahmi composition rules ;; Brahmi composition rules
(let ((consonant "[\U00011013-\U00011034]") (let ((consonant "[\x11013-\x11037\x11075]")
(non-consonant "[^\U00011013-\U00011034\U00011046\U0001107F]") (independent-vowel "[\x11005-\x11012\x11071\x11072]")
(vowel "[\U00011038-\U00011045]") (vowel "[\x11038-\x11045\x11073\x11074]")
(numeral "[\U00011052-\U00011065]") (nasal "[\x11000\x11001]")
(multiplier "[\U00011064\U00011065]") (virama "\x11046")
(virama "\U00011046") (jivhamuliya "\x11003")
(number-joiner "\U0001107F")) (upadhmaniya "\x11004")
(ka-kha "[\x11013\x11014]")
(pa-pha "[\x11027\x11028]")
(number-joiner "\x1107F")
(numeral "[\x11052-\x11065]")
(multiplier "[\x11064\x11065]"))
(set-char-table-range composition-function-table (set-char-table-range composition-function-table
'(#x11046 . #x11046) '(#x11046 . #x11046)
(list (vector (list (vector
;; Consonant conjuncts ;; Consonant based syllables
(concat consonant "\\(?:" virama consonant "\\)+" (concat consonant "\\(?:" virama consonant
vowel "?") "\\)*\\(?:" virama "\\|" vowel "*"
nasal "?\\)")
1 'font-shape-gstring) 1 'font-shape-gstring)
(vector (vector
;; Vowelless consonants ;; Vowel based syllables
(concat consonant virama non-consonant) (concat independent-vowel virama "?" vowel "?" nasal "?")
1 'font-shape-gstring))) 1 'font-shape-gstring)))
(set-char-table-range composition-function-table
'(#x11003 . #x11004)
(list (vector
;; Velar fricative
(concat jivhamuliya ka-kha "?")
0 'font-shape-gstring)
(vector
;; Bilabial fricative
(concat upadhmaniya pa-pha "?")
0 'font-shape-gstring)))
(set-char-table-range composition-function-table (set-char-table-range composition-function-table
'(#x1107F . #x1107F) '(#x1107F . #x1107F)
(list (vector (list (vector