annotate lisp/language/georgian.el @ 91151:6120724e072b

*** empty log message ***
author Kenichi Handa <handa@m17n.org>
date Sat, 01 Dec 2007 04:18:25 +0000
parents f55f9811f5d7
children 606f2d163a64
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
2
75347
e3694f1cb928 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74544
diff changeset
3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007
74544
43cc94d955c2 Update copyright years.
Glenn Morris <rgm@gnu.org>
parents: 64085
diff changeset
4 ;; Free Software Foundation, Inc.
42057
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
5
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
6 ;; Author: Dave Love <fx@gnu.org>
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
7 ;; Keywords: i18n
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
8
42320
44b4a14ae7fc Fix Lisp headers.
Pavel Janík <Pavel@Janik.cz>
parents: 42057
diff changeset
9 ;; This file is part of GNU Emacs.
44b4a14ae7fc Fix Lisp headers.
Pavel Janík <Pavel@Janik.cz>
parents: 42057
diff changeset
10
45357
a0eaee1a642d Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 42320
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
42057
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
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
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
14 ;; any later version.
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
15
45357
a0eaee1a642d Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 42320
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
42057
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
20
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
45357
a0eaee1a642d Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 42320
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
24 ;; Boston, MA 02110-1301, USA.
42057
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
25
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
27
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
28 ;;; Code:
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
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
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
42 (set-language-info-alist
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
43 "Georgian" `((coding-system georgian-ps)
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
44 (coding-priority georgian-ps)
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
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
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
47 (documentation . "Support for georgian-ps character set."))
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
48 '("European")) ; fixme: is this appropriate for
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
49 ; a non-Latin script?
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
50
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
51 (provide 'georgian)
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
52
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49044
diff changeset
53 ;;; arch-tag: 15499fbb-26d4-4a13-9d78-135eef7d32f5
42057
45cfc4479aca *** empty log message ***
Dave Love <fx@gnu.org>
parents:
diff changeset
54 ;;; georgian.el ends here