Mercurial > emacs
comparison lisp/language/thai-word.el @ 61157:6dffc0a6ed26
(thai-find-word-ends): Pay attention to
the case that we reach the end of buffer.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 31 Mar 2005 07:38:18 +0000 |
| parents | e40c5e9ccd69 |
| children | e055d02d8b97 4da4a09e8b1b |
comparison
equal
deleted
inserted
replaced
| 61156:b18a0b88ee06 | 61157:6dffc0a6ed26 |
|---|---|
| 10778 positions) | 10778 positions) |
| 10779 ;; Look up the following character sequence in `thai-word-table' | 10779 ;; Look up the following character sequence in `thai-word-table' |
| 10780 ;; character by character. | 10780 ;; character by character. |
| 10781 (while this | 10781 (while this |
| 10782 (setq pos (1+ pos) | 10782 (setq pos (1+ pos) |
| 10783 char (char-after pos) | 10783 char (or (char-after pos) 0) |
| 10784 category-set (char-category-set char)) | 10784 category-set (char-category-set char)) |
| 10785 ;; If the current sequence is recorded in `thai-word-table' | 10785 ;; If the current sequence is recorded in `thai-word-table' |
| 10786 ;; (i.e. (car THIS) is 1) and the following Thai character is | 10786 ;; (i.e. (car THIS) is 1) and the following Thai character is |
| 10787 ;; not an upper-vowel, lower-vowel, or tone-mark, we have | 10787 ;; not an upper-vowel, lower-vowel, or tone-mark, we have |
| 10788 ;; found a possible word ending position. | 10788 ;; found a possible word ending position. |