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

the case that we reach the end of buffer.

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a0a670300dc..de590d8833c 100644
--- 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 9c3ba81859e..2548a44ea80 100644
--- 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