(devanagari-range): Renamed from `range'. All calls changed.

[bpt/emacs.git] / lisp / language / thai.el

diff --git a/lisp/language/thai.el b/lisp/language/thai.el
index addb438..30e1c19 100644 (file)
--- a/lisp/language/thai.el
+++ b/lisp/language/thai.el
@@ -1,4 +1,4 @@
-;;; thai.el --- Support for Thai -*- coding: iso-2022-7bit; -*-
+;;; thai.el --- support for Thai -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -49,12 +49,19 @@
          (input-method . "thai-kesmanee")
          (unibyte-display . thai-tis620)
          (features thai-util)
-         (sample-text . "Thai (\e,T@RIRd7B\e(B)          \e,TJ\e0GQ\e1J\e04U\e1$\e0CQ\e1:\e(B, \e,TJ\e0GQ\e1J\e04U\e1\e0$h\e1P\e(B")
+         (sample-text 
+          . (thai-compose-string
+             (copy-sequence "Thai (\e,T@RIRd7B\e(B)              \e,TJ\e0GQ\e1J\e04U\e1$\e0CQ\e1:\e(B, \e,TJ\e0GQ\e1J\e04U\e1\e0$h\e1P\e(B")))
          (documentation . t)))
 
 
 ;; Register a function to compose Thai characters.
-(aset composition-function-table (make-char 'thai-tis620)
-      '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" . thai-composition-function)))
+(let ((patterns '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?"
+                  . thai-composition-function))))
+  (aset composition-function-table (make-char 'thai-tis620) patterns)
+  (dotimes (i (1+ (- #xe7f #xe00)))
+    (aset composition-function-table (decode-char 'ucs (+ i #xe00)) patterns)))
+
+(provide 'thai)
 
 ;;; thai.el ends here