/[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.19 by fx, Wed Nov 22 19:28:28 2000 UTC revision 1.19.2.1 by fx, Thu Nov 22 10:47:35 2001 UTC
# Line 1  Line 1 
1  ;;; thai.el --- Support for Thai -*- coding: iso-2022-7bit; -*-  ;;; thai.el --- support for Thai -*- coding: iso-2022-7bit; -*-
2    
3  ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.  ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4  ;; Licensed to the Free Software Foundation.  ;; Licensed to the Free Software Foundation.
5    ;; Copyright (C) 2001  Free Software Foundation, Inc.
6    
7  ;; Keywords: multilingual, Thai  ;; Keywords: multilingual, Thai, i18n
8    
9  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
10    
# Line 56  Line 57 
57    
58    
59  ;; Register a function to compose Thai characters.  ;; Register a function to compose Thai characters.
60  (aset composition-function-table (make-char 'thai-tis620)  (let ((patterns '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?"
61        '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" . thai-composition-function)))                     . thai-composition-function))))
62      (aset composition-function-table (make-char 'thai-tis620) patterns)
63      (dotimes (i (1+ (- #xe7f #xe00)))
64        (aset composition-function-table (decode-char 'ucs (+ i #xe00)) patterns)))
65    
66  (provide 'thai)  (provide 'thai)
67    

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.19.2.1

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