Merge from emacs--devo--0

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

diff --git a/lisp/language/georgian.el b/lisp/language/georgian.el
index 0b61bae504ad59b47ee1ca22e966b50b9afbd090..983a8921e77a69d87e1ed3e4060da22bb3c4ac42 100644 (file)
--- a/lisp/language/georgian.el
+++ b/lisp/language/georgian.el
@@ -27,13 +27,23 @@
 
 ;;; 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?