[Emacs-diffs] Changes to emacs/lisp/language/thai.el

[Dave Love]

Index: emacs/lisp/language/thai.el
diff -c emacs/lisp/language/thai.el:1.20 emacs/lisp/language/thai.el:1.21
*** emacs/lisp/language/thai.el:1.20    Sun Jul 15 15:53:53 2001
--- emacs/lisp/language/thai.el Tue Dec 11 13:00:08 2001
***************
*** 56,63 ****
  
  
  ;; Register a function to compose Thai characters.
! (aset composition-function-table (make-char 'thai-tis620)
!       '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" . 
thai-composition-function)))
  
  (provide 'thai)
  
--- 56,66 ----
  
  
  ;; Register a function to compose Thai characters.
! (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)