summaryrefslogtreecommitdiff
path: root/lisp/language/georgian.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/language/georgian.el')
-rw-r--r--lisp/language/georgian.el16
1 files changed, 13 insertions, 3 deletions
diff --git a/lisp/language/georgian.el b/lisp/language/georgian.el
index 9fd25ae5ed3..92acff8aaca 100644
--- 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?