/[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.2.4 by fx, Thu Jun 6 11:32:53 2002 UTC revision 1.22.2.5 by handa, Thu Nov 7 06:32:02 2002 UTC
# Line 50  Line 50 
50            (features thai-util)            (features thai-util)
51            (sample-text            (sample-text
52             . (thai-compose-string             . (thai-compose-string
53                (copy-sequence "Thai (,T@RIRd7B(B)              ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")))                (copy-sequence "Thai (,T@RIRd7B(B)              ,TJGQJ4U$CQ:(B, ,TJGQJ4U$hP(B")))
54            (documentation . t)))            (documentation . t)))
55    
56    
 ;; Register a function to compose Thai characters.  
 (set-char-table-range composition-function-table  
                       '(#x0E00 . #x0E7F)  
                       '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?"  
                          . thai-composition-function)))  
   
57  (define-coding-system 'cp874  (define-coding-system 'cp874
58    "DOS codepage 874 (Thai)"    "DOS codepage 874 (Thai)"
59    :coding-type 'charset    :coding-type 'charset
# Line 76  This is the same as `thai-tis620' with t Line 70  This is the same as `thai-tis620' with t
70    :mime-charset 'iso-8859-11 ; not actually registered as of 2002-05-24    :mime-charset 'iso-8859-11 ; not actually registered as of 2002-05-24
71    :charset-list '(iso-8859-11))    :charset-list '(iso-8859-11))
72    
73    ;; For automatic composition.
74    (let ((chars ",TQTUVWXYZghijklmn(B"))
75      (dotimes (i (length chars))
76        (aset composition-function-table (aref chars i)
77              'thai-composition-function)))
78    
79  (provide 'thai)  (provide 'thai)
80    
81  ;;; thai.el ends here  ;;; thai.el ends here

Legend:
Removed from v.1.22.2.4  
changed lines
  Added in v.1.22.2.5

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