Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Change "myanmar" to "burmese"

Browse source
This commit is contained in:
Kenichi Handa 2010-03-01 20:34:11 +09:00
parent 4ed28cf4e5
commit d99ea08e06
4 changed files with 21 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/ChangeLog
View file

@ -1,3 +1,16 @@
2010-03-01 Kenichi Handa <handa@m17n.org>
* language/burmese.el (burmese-composable-pattern): Renamed from
myanmar-composable-pattern.
* international/characters.el (script-list): Change myanmar to
burmese.
* international/fontset.el (script-representative-chars): Change
myanmar to burmese.
(otf-script-alist): Likewise.
(setup-default-fontset): Likewise.
2010-02-27 Jeremy Whitlock <jcscoobyrs@gmail.com> (tiny change)
* progmodes/python.el (python-pdbtrack-stack-entry-regexp): Allow

4
lisp/international/characters.el
View file

@ -1124,7 +1124,7 @@ Setup char-width-table appropriate for non-CJK language environment."
(#x0E00 #x0E5F thai)
(#x0E80 #x0EDF lao)
(#x0F00 #x0FFF tibetan)
(#x1000 #x109F myanmar)
(#x1000 #x109F burmese)
(#x10A0 #x10FF georgian)
(#x1100 #x11FF hangul)
(#x1200 #x139F ethiopic)
@ -1151,7 +1151,7 @@ Setup char-width-table appropriate for non-CJK language environment."
(#x3400 #x9FAF han)
(#xA000 #xA4CF yi)
(#xAA00 #xAA5F cham)
(#xAA60 #xAA7B myanmar)
(#xAA60 #xAA7B burmese)
(#xAA80 #xAADF tai-viet)
(#xAC00 #xD7AF hangul)
(#xF900 #xFAFF han)

8
lisp/international/fontset.el
View file

@ -169,7 +169,7 @@
(thai #xE17)
(lao #xEA5)
(tibetan #xF40)
(myanmar #x1000)
(burmese #x1000)
(georgian #x10D3)
(ethiopic #x1208)
(cherokee #x13B6)
@ -260,7 +260,7 @@
(math . mathematical)
(mong . mongolian)
(musc . musical-symbol)
(mymr . myanmar)
(mymr . burmese)
(nko\ . nko)
(ogam . ogham)
(ital . old_italic)
@ -415,8 +415,8 @@
(sinhala ,(font-spec :registry "iso10646-1" :otf '(sinh nil (akhn))))
(malayalam ,(font-spec :registry "iso10646-1" :otf '(mlym nil (akhn))))
(myanmar ,(font-spec :registry "iso10646-1" :otf '(mymr))
,(font-spec :registry "iso10646-1" :script 'myanmar))
(burmese ,(font-spec :registry "iso10646-1" :otf '(mymr))
,(font-spec :registry "iso10646-1" :script 'burmese))
(lao ,(font-spec :registry "iso10646-1" :otf '(lao\ nil nil (mark)))
,(font-spec :registry "iso10646-1" :script 'lao)

4
lisp/language/burmese.el
View file

@ -36,7 +36,7 @@
(sample-text . "Burmese (မ္ရန္‌မာ) မင္‍ဂလာပာ")
(documentation . t)))
(defvar myanmar-composable-pattern
(defvar burmese-composable-pattern
(let ((table
'(("K" . "[\u1004\u105A]\u103A\u1039") ; KINZI sequence
("C" . "[\u1000-\u102A\u103F\u1041-\u1049\u104E\u105A-\u105D\u1061\u1065-\u1066\u106E\u1071\u1075\u1081\u108E\uAA60-\uAA6F\uAA71-\uAA76]") ; consonant and vowel letter
@ -52,7 +52,7 @@
regexp t t))))
regexp))
(let ((elt (list (vector myanmar-composable-pattern 0 'font-shape-gstring)
(let ((elt (list (vector burmese-composable-pattern 0 'font-shape-gstring)
(vector "." 0 'font-shape-gstring))))
(set-char-table-range composition-function-table '(#x1000 . #x107F) elt)
(set-char-table-range composition-function-table '(#xAA60 . #xAA7B) elt))