Mercurial > emacs
annotate lisp/language/georgian.el @ 97349:71b3b925a155
(Log Buffer): Describe C-c C-d.
(Diff Mode): Describe C-x 4 A.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Thu, 07 Aug 2008 05:21:28 +0000 |
parents | 55b7f25d920a |
children | a9dc0e7c3f2b |
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 | |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
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 |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; (at your option) any later version. |
42057 | 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 | |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
42057 | 23 |
24 ;;; Commentary: | |
25 | |
26 ;;; Code: | |
27 | |
89391
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
28 (define-coding-system 'georgian-ps |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
29 "Georgian PS encoding" |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
30 :coding-type 'charset |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
31 :mnemonic ?G |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
32 :charset-list '(georgian-ps)) |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
33 |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
34 (define-coding-system 'georgian-academy |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
35 "Georgian Academy encoding" |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
36 :coding-type 'charset |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
37 :mnemonic ?G |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
38 :charset-list '(georgian-academy)) |
f33adafd7c55
(georgian-ps, georgian-academy): New coding
Dave Love <fx@gnu.org>
parents:
88807
diff
changeset
|
39 |
42057 | 40 (set-language-info-alist |
41 "Georgian" `((coding-system georgian-ps) | |
42 (coding-priority georgian-ps) | |
43 (input-method . "georgian") | |
88807
15a8da83223b
("Georgian"): Delete code-pages feature,
Dave Love <fx@gnu.org>
parents:
42320
diff
changeset
|
44 (nonascii-translation . georgian-ps) |
42057 | 45 (documentation . "Support for georgian-ps character set.")) |
46 '("European")) ; fixme: is this appropriate for | |
47 ; a non-Latin script? | |
48 | |
49 (provide 'georgian) | |
50 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
51 ;; arch-tag: 15499fbb-26d4-4a13-9d78-135eef7d32f5 |
42057 | 52 ;;; georgian.el ends here |