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 |
|
|
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 |
|
|