;;; georgian.el --- language support for Georgian -*- no-byte-compile: t -*-
-;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008
;; Free Software Foundation, Inc.
;; Author: Dave Love <fx@gnu.org>
;; 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)
+;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;;; 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?