Mercurial > emacs

comparison lisp/language/burmese.el @ 107307:b1fd8a6d130f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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