(thai-find-word-ends): Pay attention to

the case that we reach the end of buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a0a670300dc484963b6786de367023e8fa440f9d..de590d8833c9e4a75b5a8b46697fcb32504c6e98 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2005-03-31  Kenichi Handa  <handa@etlken2>
 
+       * language/thai-word.el (thai-find-word-ends): Pay attention to
+       the case that we reach the end of buffer.
+
        * textmodes/fill.el (fill-text-properties-at): New function.
        (fill-newline): Use fill-text-properties-at instead of
        text-properties-at.

diff --git a/lisp/language/thai-word.el b/lisp/language/thai-word.el
index 9c3ba81859e91554d3ef2d5298e422a0cc12f411..2548a44ea8029b1096e8f111a7695e54569cd7cc 100644 (file)
--- a/lisp/language/thai-word.el
+++ b/lisp/language/thai-word.el
@@ -10780,7 +10780,7 @@ the current word list."
       ;; character by character.
       (while this
        (setq pos (1+ pos)
-             char (char-after pos)
+             char (or (char-after pos) 0)
              category-set (char-category-set char))
        ;; If the current sequence is recorded in `thai-word-table'
        ;; (i.e. (car THIS) is 1) and the following Thai character is