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 479e1456cca693f54f9bc34eab4e4a2ac2a45592..9d330256a039a4c15f333118a1d02cdd749f0dc1 100644 (file)
--- a/lisp/language/georgian.el
+++ b/lisp/language/georgian.el
@@ -1,6 +1,6 @@
-;;; georgian.el --- language support for Georgian
+;;; 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,18 +19,29 @@
 
 ;; 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 . georgian-ps)
              (documentation . "Support for georgian-ps character set."))
  '("European"))                                ; fixme: is this appropriate for
@@ -38,4 +49,5 @@
 
 (provide 'georgian)
 
+;;; arch-tag: 15499fbb-26d4-4a13-9d78-135eef7d32f5
 ;;; georgian.el ends here