/[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.22 by wl, Tue Dec 18 17:49:27 2001 UTC revision 1.22.2.1 by handa, Fri Mar 1 02:28:29 2002 UTC
# Line 28  Line 28 
28    
29  ;;; Code:  ;;; Code:
30    
31  (make-coding-system  (define-coding-system 'thai-tis620
32   'thai-tis620 2 ?T    "8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)."
33   "8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)."    :coding-type 'charset
34   '(ascii thai-tis620 nil nil    :mnemonic ?T
35     nil ascii-eol)    :charset-list '(tis620-2533))
  '((safe-charsets ascii thai-tis620)  
    (post-read-conversion . thai-post-read-conversion)))  
36    
37  (define-coding-system-alias 'th-tis620 'thai-tis620)  (define-coding-system-alias 'th-tis620 'thai-tis620)
38  (define-coding-system-alias 'tis620 'thai-tis620)  (define-coding-system-alias 'tis620 'thai-tis620)
# Line 45  Line 43 
43            (charset thai-tis620)            (charset thai-tis620)
44            (coding-system thai-tis620)            (coding-system thai-tis620)
45            (coding-priority thai-tis620)            (coding-priority thai-tis620)
46            (nonascii-translation . thai-tis620)            (nonascii-translation . tis620-2533)
47            (input-method . "thai-kesmanee")            (input-method . "thai-kesmanee")
48            (unibyte-display . thai-tis620)            (unibyte-display . thai-tis620)
49            (features thai-util)            (features thai-util)
# Line 56  Line 54 
54    
55    
56  ;; Register a function to compose Thai characters.  ;; Register a function to compose Thai characters.
57  (let ((patterns '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?"  (set-char-table-range composition-function-table
58                     . thai-composition-function))))                        '(#x0E00 . #x0E7F)
59    (aset composition-function-table (make-char 'thai-tis620) patterns)                        '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?"
60    (dotimes (i (1+ (- #xe7f #xe00)))                           . thai-composition-function)))
     (aset composition-function-table (decode-char 'ucs (+ i #xe00)) patterns)))  
61    
62  (provide 'thai)  (provide 'thai)
63    

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.22.2.1

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