Mercurial > emacs
annotate lisp/language/georgian.el @ 91697:056e52861ec3
*** empty log message ***
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 09 Feb 2008 10:53:10 +0000 |
parents | 606f2d163a64 |
children | 1e3a407766b9 |
rev | line source |
---|---|
47726
33d53d287ee4
Add "no-byte-compile: t" in first line.
Juanma Barranquero <lekktu@gmail.com>
parents:
46673
diff
changeset
|
1 ;;; georgian.el --- language support for Georgian -*- no-byte-compile: t -*- |
42057 | 2 |
79711 | 3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 |
74544 | 4 ;; Free Software Foundation, Inc. |
42057 | 5 |
6 ;; Author: Dave Love <fx@gnu.org> | |
7 ;; Keywords: i18n | |
8 | |
42320 | 9 ;; This file is part of GNU Emacs. |
10 | |
45357 | 11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
42057 | 12 ;; it under the terms of the GNU General Public License as published by |
78236
9355f9b7bbff
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75347
diff
changeset
|
13 ;; the Free Software Foundation; either version 3, or (at your option) |
42057 | 14 ;; any later version. |
15 | |
45357 | 16 ;; GNU Emacs is distributed in the hope that it will be useful, |
42057 | 17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
45357 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
24 ;; Boston, MA 02110-1301, USA. | |
42057 | 25 |
26 ;;; Commentary: | |
27 | |
28 ;;; Code: | |
29 | |
89391
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
30 (define-coding-system 'georgian-ps |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
31 "Georgian PS encoding" |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
32 :coding-type 'charset |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
33 :mnemonic ?G |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
34 :charset-list '(georgian-ps)) |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
35 |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
36 (define-coding-system 'georgian-academy |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
37 "Georgian Academy encoding" |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
38 :coding-type 'charset |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
39 :mnemonic ?G |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
40 :charset-list '(georgian-academy)) |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
41 |
42057 | 42 (set-language-info-alist |
43 "Georgian" `((coding-system georgian-ps) | |
44 (coding-priority georgian-ps) | |
45 (input-method . "georgian") | |
88807
15a8da83223b
("Georgian"): Delete code-pages feature,
Dave Love <fx@gnu.org>
parents:
42320
diff
changeset
|
46 (nonascii-translation . georgian-ps) |
42057 | 47 (documentation . "Support for georgian-ps character set.")) |
48 '("European")) ; fixme: is this appropriate for | |
49 ; a non-Latin script? | |
50 | |
51 (provide 'georgian) | |
52 | |
52401 | 53 ;;; arch-tag: 15499fbb-26d4-4a13-9d78-135eef7d32f5 |
42057 | 54 ;;; georgian.el ends here |