Mercurial > emacs
view leim/quail/georgian.el @ 53300:2cabf526af0e
(Documentation Tips): Add anchor.
author | Luc Teirlinck <teirllm@auburn.edu> |
---|---|
date | Thu, 25 Dec 2003 04:00:56 +0000 (2003-12-25) |
parents | 695cf19ef79e |
children | 6165248b32a6 375f2633d815 |
line wrap: on
line source
;;; georgian.el --- Quail package for inputting Georgian characters -*-coding: utf-8;-*- ;; Copyright (C) 2001 Free Software Foundation, Inc. ;; Author: Dave Love <fx@gnu.org> ;; Keywords: i18n ;; This file is part of GNU Emacs. ;; This file 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 2, or (at your option) ;; any later version. ;; This file 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., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; Georgian input following the Yudit map from Mark Leisher ;; <mleisher@crl.nmsu.edu>. ;;; Code: (require 'quail) (quail-define-package "georgian" "Georgian" "��" t "A common Georgian transliteration (using Unicode)" nil t nil nil nil nil nil nil nil nil t) (quail-define-rules ("a" ?��) ("b" ?��) ("g" ?��) ("d" ?��) ("e" ?��) ("v" ?��) ("z" ?��) ("t" ?��) ("i" ?��) (".k" ?��) ("l" ?��) ("m" ?��) ("n" ?��) ("o" ?��) (".p" ?��) ("\+z" ?��) ("r" ?��) ("s" ?��) (".t" ?��) ("u" ?��) ("p" ?��) ("k" ?��) (".g" ?��) ("q" ?��) ("\+s" ?��) ("\+c" ?��) ("c" ?��) ("j" ?��) (".c" ?��) (".\+c" ?��) ("x" ?��) ("\+j" ?��) ("h" ?��) ("q1" ?��) ("e0" ?��) ("o1" ?��) ("i1" ?��) ("w" ?��) ("f" ?��) ;; Presumably, these are GEORGIAN LETTER YN, GEORGIAN LETTER ELIFI, ;; accepted for U+10F7, U+10F8 -- fx ("y" ?��) ;; Letter not in Unicode (private use code). ("e1" ?��) ;; Letter not in Unicode (private use code). ) ;;; arch-tag: 7b26f205-7091-435e-a2cf-8778f899dc8a ;;; georgian.el ends here