Mercurial > emacs
comparison lisp/language/sinhala.el @ 107906:3a8a36c9aede
Merge from mainline.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Tue, 30 Mar 2010 21:52:49 +0000 |
parents | 9898924b98ed |
children | 376148b31b5e |
comparison
equal
deleted
inserted
replaced
107905:eacc14a376e7 | 107906:3a8a36c9aede |
---|---|
31 (documentation . t))) | 31 (documentation . t))) |
32 | 32 |
33 (set-char-table-range | 33 (set-char-table-range |
34 composition-function-table | 34 composition-function-table |
35 '(#xD80 . #xDFF) | 35 '(#xD80 . #xDFF) |
36 (list (vector "[\xD80-\xDFF\x200C\x200D]+" 0 'font-shape-gstring))) | 36 (list (vector |
37 ;; C:consonant, H:HALANT, J:ZWJ, v:vowel sign, | |
38 ;; V:independent vowel, a:ANUSVARA .. VISARGA | |
39 (concat | |
40 ;; C(HJC)*v*H?a?, or | |
41 "[\u0D9A-\u0DC6]\\(?:\u0DCA\u200D[\u0D9A-\u0DC6]\\)*[\u0DCF-\u0DDF\u0DF2-\u0DF3]*\u0DCA?[\u0D82-\u0D83]?\\|" | |
42 ;; Va?, or | |
43 "[\u0D85-\u0D96][\u0D82-\u0D83]?\\|" | |
44 ;; any other singleton characters | |
45 "[\u0D80-\u0DFF]") | |
46 0 'font-shape-gstring))) | |
37 | 47 |
38 ;; arch-tag: 87b9ad3b-5090-422f-b942-eb85b9d52e7c | 48 ;; arch-tag: 87b9ad3b-5090-422f-b942-eb85b9d52e7c |
39 ;; sinhala.el ends here | 49 ;; sinhala.el ends here |