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. |