/[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.27 by miles, Mon Sep 1 15:45:29 2003 UTC revision 1.28 by handa, Fri Mar 18 06:48:58 2005 UTC
# Line 57  Line 57 
57    
58    
59  ;; Register a function to compose Thai characters.  ;; Register a function to compose Thai characters.
60  (let ((patterns '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?"  (let ((patterns '(("\\c0?\\(\\c2\\|\\c3\\|\\c4\\)+"
61                     . thai-composition-function))))                     . thai-composition-function))))
62    (aset composition-function-table (make-char 'thai-tis620) patterns)    (aset composition-function-table (make-char 'thai-tis620) patterns)
63    (dotimes (i (1+ (- #xe7f #xe00)))    (dotimes (i (1+ (- #xe7f #xe00)))

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

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