Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-95

[gnu-emacs] / lisp / language / georgian.el

diff --git a/lisp/language/georgian.el b/lisp/language/georgian.el
index c106fea1d65a6d1f62067adf5af2cb833107e6ce..9d330256a039a4c15f333118a1d02cdd749f0dc1 100644 (file)
--- a/lisp/language/georgian.el
+++ b/lisp/language/georgian.el
@@ -1,6 +1,6 @@
 ;;; georgian.el --- language support for Georgian -*- no-byte-compile: t -*-
 
-;; Copyright (C) 2001  Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2003  Free Software Foundation, Inc.
 
 ;; Author: Dave Love <fx@gnu.org>
 ;; Keywords: i18n
@@ -19,20 +19,30 @@
 
 ;; 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.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, 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")
-             (features code-pages)
-             (nonascii-translation . ,(get 'decode-georgian-ps
-                                           'translation-table))
+             (nonascii-translation . georgian-ps)
              (documentation . "Support for georgian-ps character set."))
  '("European"))                                ; fixme: is this appropriate for
                                        ; a non-Latin script?