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

   1 ;;; kannada.el --- Support for Kannada -*- coding: iso-2022-7bit; no-byte-compile: t -*-
   2
   3 ;; Copyright (C) 2003, 2004, 2005, 2006, 2007  Free Software Foundation, Inc.
   4
   5 ;; Maintainer:  CHOWKSEY, Kailash C. <klchxbec@m-net.arbornet.org>
   6 ;; Keywords: multilingual, Indian, Kannada
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  23 ;; Boston, MA 02110-1301, USA.
  24
  25 ;;; Commentary:
  26
  27 ;; This file defines language-info of Kannada script.
  28
  29 ;;; Code:
  30
  31 (set-language-info-alist
  32  "Kannada" '((charset mule-unicode-0100-24ff indian-is13194
  33                          indian-2-column indian-glyph ;; comment out later
  34                          )
  35                 (coding-system mule-utf-8)
  36                 (coding-priority mule-utf-8)
  37                 (input-method . "kannada-itrans")
  38                 (features knd-util)
  39                 (sample-text
  40                  . (kannada-compose-string
  41                     (copy-sequence "Kannada (\e$,1>u?(?M?(?!\e(B) \e$,1?(?.?8?M>u?>?0\e(B")))
  42                 (documentation . "\
  43 Kannada language and script is supported in this language
  44 environment."))
  45  '("Indian"))
  46
  47 ;; For automatic composition.
  48 (set-char-table-range composition-function-table '(#x0c80 . #x0cff)
  49                       'kannada-composition-function)
  50
  51 (provide 'kannada)
  52
  53 ;;; arch-tag: 880ba90b-f6f5-4131-bc1d-930705b78416
  54 ;;; kannada.el ends here