[Emacs-diffs] Changes to emacs/lisp/language/georgian.el [emacs-unicode-2]

[Kenichi Handa]

Index: emacs/lisp/language/georgian.el
diff -c /dev/null emacs/lisp/language/georgian.el:1.6.6.1
*** /dev/null   Mon Sep  8 08:55:26 2003
--- emacs/lisp/language/georgian.el     Mon Sep  8 08:53:41 2003
***************
*** 0 ****
--- 1,52 ----
+ ;;; georgian.el --- language support for Georgian -*- no-byte-compile: t -*-
+ 
+ ;; Copyright (C) 2001, 2003  Free Software Foundation, Inc.
+ 
+ ;; Author: Dave Love <address@hidden>
+ ;; Keywords: 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 2, 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., 59 Temple Place - Suite 330,
+ ;; Boston, MA 02111-1307, USA.
+ 
+ ;;; Commentary:
+ 
+ ;;; Code:
+ 
+ (define-coding-system 'georgian-ps
+   "Georgian PS encoding"
+   :coding-type 'charset
+   :mnemonic ?G
+   :charset-list '(georgian-ps))
+ 
+ (define-coding-system 'georgian-academy
+   "Georgian Academy encoding"
+   :coding-type 'charset
+   :mnemonic ?G
+   :charset-list '(georgian-academy))
+ 
+ (set-language-info-alist
+  "Georgian" `((coding-system georgian-ps)
+             (coding-priority georgian-ps)
+             (input-method . "georgian")
+             (nonascii-translation . georgian-ps)
+             (documentation . "Support for georgian-ps character set."))
+  '("European"))                               ; fixme: is this appropriate for
+                                       ; a non-Latin script?
+ 
+ (provide 'georgian)
+ 
+ ;;; georgian.el ends here