/[emacs]/emacs/lisp/language/thai.el
ViewVC logotype

Diff of /emacs/lisp/language/thai.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by pj, Sun Jul 15 19:53:53 2001 UTC revision 1.21 by fx, Tue Dec 11 18:00:08 2001 UTC
# Line 56  Line 56 
56    
57    
58  ;; Register a function to compose Thai characters.  ;; Register a function to compose Thai characters.
59  (aset composition-function-table (make-char 'thai-tis620)  (let ((patterns '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?"
60        '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" . thai-composition-function)))                     . thai-composition-function))))
61      (aset composition-function-table (make-char 'thai-tis620) patterns)
62      (dotimes (i (1+ (- #xe7f #xe00)))
63        (aset composition-function-table (decode-char 'ucs (+ i #xe00)) patterns)))
64    
65  (provide 'thai)  (provide 'thai)
66    

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26