diff options
| author | Kenichi Handa | 2009-12-02 08:01:02 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2009-12-02 08:01:02 +0000 |
| commit | 1ff4cb9823e61aed80bd74d4c10e532b734a1be3 (patch) | |
| tree | 3c8b3554d907786b7ac2ea83d585dd4567425739 /lisp/language | |
| parent | bb12edf129de7f0c9cb5eca4bbc58f4d04051d8d (diff) | |
| download | emacs-1ff4cb9823e61aed80bd74d4c10e532b734a1be3.tar.gz emacs-1ff4cb9823e61aed80bd74d4c10e532b734a1be3.zip | |
Include ZWJ and ZWNJ in the patterns to shape for all Indic scripts.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/indian.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/language/indian.el b/lisp/language/indian.el index 3ea28f0c125..841ec26eb9c 100644 --- a/lisp/language/indian.el +++ b/lisp/language/indian.el | |||
| @@ -165,15 +165,15 @@ South Indian language Malayalam is supported in this language environment.")) | |||
| 165 | "Regexp matching a composable sequence of Malayalam characters.") | 165 | "Regexp matching a composable sequence of Malayalam characters.") |
| 166 | 166 | ||
| 167 | (let ((script-regexp-alist | 167 | (let ((script-regexp-alist |
| 168 | `((devanagari . ,devanagari-composable-pattern) | 168 | `((devanagari . "[\x900-\x97F\x200C\x200D]+") |
| 169 | (bengali . "[\x980-\x9FF\x200C\x200D]+") | 169 | (bengali . "[\x980-\x9FF\x200C\x200D]+") |
| 170 | (gurmukhi . "[\xA00-\xA7F\x200C\x200D]+") | 170 | (gurmukhi . "[\xA00-\xA7F\x200C\x200D]+") |
| 171 | (gujarati . "[\xA80-\xAFF\x200C\x200D]+") | 171 | (gujarati . "[\xA80-\xAFF\x200C\x200D]+") |
| 172 | (oriya . "[\xB00-\xB7F\x200C\x200D]+") | 172 | (oriya . "[\xB00-\xB7F\x200C\x200D]+") |
| 173 | (tamil . ,tamil-composable-pattern) | 173 | (tamil . "[\xB80-\xBFF\x200C\x200D]+") |
| 174 | (telugu . "[\xC00-\xC7F\x200C\x200D]+") | 174 | (telugu . "[\xC00-\xC7F\x200C\x200D]+") |
| 175 | (kannada . ,kannada-composable-pattern) | 175 | (kannada . "[\xC80-\xCFF\x200C\x200D]+") |
| 176 | (malayalam . ,malayalam-composable-pattern)))) | 176 | (malayalam . "[\xD00-\xD7F\x200C\x200D]+")))) |
| 177 | (map-char-table | 177 | (map-char-table |
| 178 | #'(lambda (key val) | 178 | #'(lambda (key val) |
| 179 | (let ((slot (assq val script-regexp-alist))) | 179 | (let ((slot (assq val script-regexp-alist))) |