code.delx.au - gnu-emacs/blob - lisp/language/tai-viet.el

   1 ;;; tai-viet.el --- support for Tai Viet -*- coding: utf-8; no-byte-compile: t -*-
   2
   3 ;; Copyright (C) 2007
   4 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   5 ;;   Registration Number H13PRO009
   6 ;; Copyright (C) 2007  Free Software Foundation, Inc.
   7
   8 ;; Keywords: multilingual, Tai Viet, i18n
   9
  10 ;; This file is part of GNU Emacs.
  11
  12 ;; GNU Emacs is free software; you can redistribute it and/or modify
  13 ;; it under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation; either version 2, or (at your option)
  15 ;; any later version.
  16
  17 ;; GNU Emacs is distributed in the hope that it will be useful,
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;; GNU General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  25 ;; Boston, MA 02110-1301, USA.
  26
  27 ;;; Commentary:
  28
  29 ;; Tai Viet is being included in the Unicode at the range U+AA80..U+AADF.
  30
  31 ;;; Code:
  32
  33 (set-char-table-range composition-function-table
  34                       '(#xAA80 . #xAADF)
  35                       'tai-viet-composition-function)
  36
  37 (set-language-info-alist
  38  "TaiViet" '((charset unicode)
  39               (coding-system utf-8)
  40               (coding-priority utf-8)
  41               (input-method . "tai-sonla")
  42               (sample-text
  43                "TaiViet (ꪁꪫꪱꪣ ꪽꪕ)\t\tꪅꪰꪙ꫃ ꪨꪮ꫃ ꪁꪫꪱ / ꪅꪾ ꪨ� ꪁꪫꪱ")
  44               (documentation . "\
  45 TaiViet refers to the Tai language used by Tai people in
  46 Vietnam, and also refers to the script used for this language.
  47 Both the script and language have the same origin as that of Thai
  48 language/script used in Thailand, but now they differ from each
  49 other in a significant way (especially the scripts are).
  50
  51 The language name is spelled as \"ꪁꪫꪱꪣ ꪽꪕ\", and the script name is
  52 spelled as \"ꪎ� ꪽꪕ\" in the modern form, \"ꪎꪴ ꪽꪕ\" in the traditional
  53 from.
  54
  55 As the proposal for TaiViet script to the Unicode is still on
  56 the progress, we use the Private Use Area for TaiViet
  57 characters (U+F000..U+F07E).  A TaiViet font encoded accordingly
  58 is available at this web page:
  59     http://www.m17n.org/TaiViet/
  60 ")))
  61
  62 (provide 'tai-viet)
  63
  64 ;; Local Variables:
  65 ;; coding: utf-8
  66 ;; End:
  67
  68 ;; arch-tag: db4e3377-2ba7-47a0-b173-e44420d540c3