Mercurial > emacs
comparison lisp/language/burmese.el @ 107307:b1fd8a6d130f
Change "myanmar" to "burmese"
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 01 Mar 2010 20:34:11 +0900 |
parents | f24a9a68524d |
children | 376148b31b5e |
comparison
equal
deleted
inserted
replaced
107306:8dc9cd276d24 | 107307:b1fd8a6d130f |
---|---|
34 (coding-system utf-8) | 34 (coding-system utf-8) |
35 (coding-priority utf-8) | 35 (coding-priority utf-8) |
36 (sample-text . "Burmese (မ္ရန္မာ) မင္ဂလာပာ") | 36 (sample-text . "Burmese (မ္ရန္မာ) မင္ဂလာပာ") |
37 (documentation . t))) | 37 (documentation . t))) |
38 | 38 |
39 (defvar myanmar-composable-pattern | 39 (defvar burmese-composable-pattern |
40 (let ((table | 40 (let ((table |
41 '(("K" . "[\u1004\u105A]\u103A\u1039") ; KINZI sequence | 41 '(("K" . "[\u1004\u105A]\u103A\u1039") ; KINZI sequence |
42 ("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 | 42 ("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 |
43 ("V" . "\u1039") ; VIRAMA | 43 ("V" . "\u1039") ; VIRAMA |
44 ("A" . "\u103A") ; ASAT | 44 ("A" . "\u103A") ; ASAT |
50 (dolist (elt table) | 50 (dolist (elt table) |
51 (setq regexp (replace-regexp-in-string (car elt) (cdr elt) | 51 (setq regexp (replace-regexp-in-string (car elt) (cdr elt) |
52 regexp t t)))) | 52 regexp t t)))) |
53 regexp)) | 53 regexp)) |
54 | 54 |
55 (let ((elt (list (vector myanmar-composable-pattern 0 'font-shape-gstring) | 55 (let ((elt (list (vector burmese-composable-pattern 0 'font-shape-gstring) |
56 (vector "." 0 'font-shape-gstring)))) | 56 (vector "." 0 'font-shape-gstring)))) |
57 (set-char-table-range composition-function-table '(#x1000 . #x107F) elt) | 57 (set-char-table-range composition-function-table '(#x1000 . #x107F) elt) |
58 (set-char-table-range composition-function-table '(#xAA60 . #xAA7B) elt)) | 58 (set-char-table-range composition-function-table '(#xAA60 . #xAA7B) elt)) |
59 | 59 |
60 ;; arch-tag: 8ba5f4cd-ef89-4008-b784-397edd0cb32e | 60 ;; arch-tag: 8ba5f4cd-ef89-4008-b784-397edd0cb32e |