From: Kenichi Handa <handa@m17n.org>
Date: Thu, 31 Mar 2005 07:38:37 +0000 (+0000)
Subject: (thai-find-word-ends): Pay attention to
X-Git-Tag: ttn-vms-21-2-B4~1341
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e5729c6cf66d54c620caed4949b6075d254d6b9d;p=emacs.git

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