emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/leim/quail/georgian.el [gnus-5_10-branch]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/leim/quail/georgian.el [gnus-5_10-branch]
Date: Sat, 04 Sep 2004 08:28:24 -0400

Index: emacs/leim/quail/georgian.el
diff -c /dev/null emacs/leim/quail/georgian.el:1.4.2.1
*** /dev/null   Sat Sep  4 12:01:26 2004
--- emacs/leim/quail/georgian.el        Sat Sep  4 12:01:06 2004
***************
*** 0 ****
--- 1,86 ----
+ ;;; georgian.el --- Quail package for inputting Georgian characters  
-*-coding: utf-8;-*-
+ 
+ ;; Copyright (C) 2001  Free Software Foundation, Inc.
+ 
+ ;; Author: Dave Love <address@hidden>
+ ;; 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
+ ;; <address@hidden>.
+ 
+ ;;; Code:
+ 
+ (require 'quail)
+ 
+ (quail-define-package
+  "georgian" "Georgian" "გ" t
+  "A common Georgian transliteration (using Unicode)"
+  nil t nil nil t 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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]