X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/c1473b4cfeb477ced05d457868c5e1eb97a58eb0..d355a0b79173c5d479fed0c7b1b7b81cc652b42c:/lisp/language/thai-word.el

diff --git a/lisp/language/thai-word.el b/lisp/language/thai-word.el
index ab34d2f032..3e382e34fc 100644
--- a/lisp/language/thai-word.el
+++ b/lisp/language/thai-word.el
@@ -1,6 +1,6 @@
 ;;; thai-word.el -- find Thai word boundaries
 
-;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
+;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
 ;;   Registration Number H14PRO021
 
@@ -10748,8 +10748,7 @@ the current word list."
 	(coding-system-for-read 'thai-tis620)
 	(table (if append thai-word-table (list 'thai-words))))
     (unwind-protect
-	(save-excursion
-	  (set-buffer buf)
+	(with-current-buffer buf
 	  (insert-file-contents file)
 	  (goto-char (point-min))
 	  (while (re-search-forward "\\ct+" nil t)