10780 |
;; character by character. |
;; character by character. |
10781 |
(while this |
(while this |
10782 |
(setq pos (1+ pos) |
(setq pos (1+ pos) |
10783 |
char (char-after pos) |
char (or (char-after pos) 0) |
10784 |
category-set (char-category-set char)) |
category-set (char-category-set char)) |
10785 |
;; If the current sequence is recorded in `thai-word-table' |
;; If the current sequence is recorded in `thai-word-table' |
10786 |
;; (i.e. (car THIS) is 1) and the following Thai character is |
;; (i.e. (car THIS) is 1) and the following Thai character is |