1 |
;;; georgian.el --- language support for Georgian -*- no-byte-compile: t -*- |
;;; georgian.el --- language support for Georgian -*- no-byte-compile: t -*- |
2 |
|
|
3 |
;; Copyright (C) 2001 Free Software Foundation, Inc. |
;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Dave Love <fx@gnu.org> |
;; Author: Dave Love <fx@gnu.org> |
6 |
;; Keywords: i18n |
;; Keywords: i18n |
26 |
|
|
27 |
;;; Code: |
;;; Code: |
28 |
|
|
29 |
|
(define-coding-system 'georgian-ps |
30 |
|
"Georgian PS encoding" |
31 |
|
:coding-type 'charset |
32 |
|
:mnemonic ?G |
33 |
|
:charset-list '(georgian-ps)) |
34 |
|
|
35 |
|
(define-coding-system 'georgian-academy |
36 |
|
"Georgian Academy encoding" |
37 |
|
:coding-type 'charset |
38 |
|
:mnemonic ?G |
39 |
|
:charset-list '(georgian-academy)) |
40 |
|
|
41 |
(set-language-info-alist |
(set-language-info-alist |
42 |
"Georgian" `((coding-system georgian-ps) |
"Georgian" `((coding-system georgian-ps) |
43 |
(coding-priority georgian-ps) |
(coding-priority georgian-ps) |
44 |
(input-method . "georgian") |
(input-method . "georgian") |
45 |
(features code-pages) |
(nonascii-translation . georgian-ps) |
|
(nonascii-translation . ,(get 'decode-georgian-ps |
|
|
'translation-table)) |
|
46 |
(documentation . "Support for georgian-ps character set.")) |
(documentation . "Support for georgian-ps character set.")) |
47 |
'("European")) ; fixme: is this appropriate for |
'("European")) ; fixme: is this appropriate for |
48 |
; a non-Latin script? |
; a non-Latin script? |