Mercurial > emacs
changeset 91314:9433091ab2b1
New file.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 07 Jan 2008 12:30:34 +0000 |
| parents | bc228f9f325d |
| children | 37c14c9490a1 |
| files | lisp/language/khmer.el |
| diffstat | 1 files changed, 37 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/lisp/language/khmer.el Mon Jan 07 12:30:34 2008 +0000 @@ -0,0 +1,37 @@ +;;; khmer.el --- support for Khmer -*- coding: utf-8; no-byte-compile: t -*- + +;; Copyright (C) 2008 +;; National Institute of Advanced Industrial Science and Technology (AIST) +;; Registration Number H13PRO009 + +;; Keywords: multilingual, Khmer, i18n + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3, or (at your option) +;; any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. + +;;; Code: + +(set-language-info-alist + "Khmer" '((charset unicode) + (coding-system utf-8) + (coding-priority utf-8) + (sample-text . "Khmer (ភាសាខ្មែរ) ជំរាបសួរ") + (documentation . t))) + +(let ((val '(("[\x1780-\x17FF\x19E0-\x19FF\x200C\x200D]+" . font-shape-text)))) + (set-char-table-range composition-function-table '(#x1780 . #x17FF) val) + (set-char-table-range composition-function-table '(#x19E0 . #x19FF) val))