annotate lisp/language/greek.el @ 91473:d9afb7a33dc0

*** empty log message ***
author Juanma Barranquero <lekktu@gmail.com>
date Sat, 02 Feb 2008 18:42:05 +0000
parents 606f2d163a64
children 1e3a407766b9
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: 42152
diff changeset
1 ;;; greek.el --- support for Greek -*- no-byte-compile: t -*-
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
88557
601020f7bce8 (windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents: 88513
diff changeset
3 ;; Copyright (C) 2002 Free Software Foundation, Inc.
74605
6ee41fdd69ff Update AIST copyright years.
Kenichi Handa <handa@m17n.org>
parents: 64085
diff changeset
4 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
79711
b5d3fc1c4afe Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78309
diff changeset
5 ;; 2005, 2006, 2007, 2008
62396
197607499a29 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
6 ;; National Institute of Advanced Industrial Science and Technology (AIST)
197607499a29 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
7 ;; Registration Number H14PRO021
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89153
diff changeset
9 ;; Copyright (C) 2003
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89153
diff changeset
10 ;; National Institute of Advanced Industrial Science and Technology (AIST)
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89153
diff changeset
11 ;; Registration Number H13PRO009
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13 ;; Keywords: multilingual, Greek
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15 ;; This file is part of GNU Emacs.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17 ;; GNU Emacs is free software; you can redistribute it and/or modify
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; it under the terms of the GNU General Public License as published by
78309
0938de05f510 Restore comma mistakenly removed in last change.
Glenn Morris <rgm@gnu.org>
parents: 78300
diff changeset
19 ;; the Free Software Foundation; either version 3, or (at your option)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20 ;; any later version.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
21
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
22 ;; GNU Emacs is distributed in the hope that it will be useful,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
23 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
24 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
25 ;; GNU General Public License for more details.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27 ;; You should have received a copy of the GNU General Public License
17071
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
28 ;; 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: 62396
diff changeset
29 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62396
diff changeset
30 ;; Boston, MA 02110-1301, USA.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
32 ;;; Commentary:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
33
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
34 ;; For Greek, the character set ISO8859-7 is supported.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
35
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
36 ;;; Code:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37
88414
fad0f879877f Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents: 42152
diff changeset
38 (define-coding-system 'greek-iso-8bit
fad0f879877f Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents: 42152
diff changeset
39 "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)."
fad0f879877f Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents: 42152
diff changeset
40 :coding-type 'charset
fad0f879877f Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents: 42152
diff changeset
41 :mnemonic ?7
88479
b22b2b59667b (greek-iso-8bit): Fix typo.
Kenichi Handa <handa@m17n.org>
parents: 88414
diff changeset
42 :charset-list '(iso-8859-7)
88513
bafe04d82c5d Fix :mime-charset properties.
Dave Love <fx@gnu.org>
parents: 88479
diff changeset
43 :mime-charset 'iso-8859-7)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
44
18520
383d11185239 Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents: 18377
diff changeset
45 (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)
18203
0745f30aec66 Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents: 17993
diff changeset
46
88557
601020f7bce8 (windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents: 88513
diff changeset
47 (define-coding-system 'windows-1253
601020f7bce8 (windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents: 88513
diff changeset
48 "windows-1253 encoding for Greek"
601020f7bce8 (windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents: 88513
diff changeset
49 :coding-type 'charset
601020f7bce8 (windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents: 88513
diff changeset
50 :mnemonic ?g
601020f7bce8 (windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents: 88513
diff changeset
51 :charset-list '(windows-1253)
601020f7bce8 (windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents: 88513
diff changeset
52 :mime-charset 'windows-1253)
601020f7bce8 (windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents: 88513
diff changeset
53 (define-coding-system-alias 'cp1253 'windows-1253)
601020f7bce8 (windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents: 88513
diff changeset
54
89153
8e27ca682098 ("Greek"): Remove unibyte-syntax property.
Dave Love <fx@gnu.org>
parents: 88719
diff changeset
55 (define-coding-system 'cp737
8e27ca682098 ("Greek"): Remove unibyte-syntax property.
Dave Love <fx@gnu.org>
parents: 88719
diff changeset
56 "Codepage 737 (PC Greek)"
8e27ca682098 ("Greek"): Remove unibyte-syntax property.
Dave Love <fx@gnu.org>
parents: 88719
diff changeset
57 :coding-type 'charset
8e27ca682098 ("Greek"): Remove unibyte-syntax property.
Dave Love <fx@gnu.org>
parents: 88719
diff changeset
58 :mnemonic ?D
8e27ca682098 ("Greek"): Remove unibyte-syntax property.
Dave Love <fx@gnu.org>
parents: 88719
diff changeset
59 :charset-list '(cp737)
8e27ca682098 ("Greek"): Remove unibyte-syntax property.
Dave Love <fx@gnu.org>
parents: 88719
diff changeset
60 :mime-charset 'cp737)
8e27ca682098 ("Greek"): Remove unibyte-syntax property.
Dave Love <fx@gnu.org>
parents: 88719
diff changeset
61
88618
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
62 (define-coding-system 'cp851
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
63 "DOS codepage 851 (Greek)"
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
64 :coding-type 'charset
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
65 :mnemonic ?D
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
66 :charset-list '(cp851)
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
67 :mime-charset 'cp851)
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
68 (define-coding-system-alias 'ibm851 'cp851)
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
69
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
70 (define-coding-system 'cp869
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
71 "DOS codepage 869 (Greek)"
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
72 :coding-type 'charset
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
73 :mnemonic ?D
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
74 :charset-list '(cp869)
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
75 :mime-charset 'cp869)
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
76 (define-coding-system-alias 'ibm869 'cp869)
bc872894c0a7 (cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents: 88557
diff changeset
77
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
78 (set-language-info-alist
88414
fad0f879877f Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents: 42152
diff changeset
79 "Greek" '((charset iso-8859-7)
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89153
diff changeset
80 (coding-system greek-iso-8bit windows-1253 cp851 cp869)
22622
63c2279a26c4 Add coding-priority.
Kenichi Handa <handa@m17n.org>
parents: 20742
diff changeset
81 (coding-priority greek-iso-8bit)
88414
fad0f879877f Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents: 42152
diff changeset
82 (nonascii-translation . iso-8859-7)
22982
5fef9d1a7fc2 (setup-XXX-environment): Just call set-language-environment. If
Kenichi Handa <handa@m17n.org>
parents: 22622
diff changeset
83 (input-method . "greek")
17841
084d922fcd78 Coding system names changed as follows:
Kenichi Handa <handa@m17n.org>
parents: 17772
diff changeset
84 (documentation . t)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
85
33778
6d966e8b4bbe Use provide.
Dave Love <fx@gnu.org>
parents: 28906
diff changeset
86 (provide 'greek)
6d966e8b4bbe Use provide.
Dave Love <fx@gnu.org>
parents: 28906
diff changeset
87
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 48388
diff changeset
88 ;;; arch-tag: 9ba48d79-84bc-45e1-9318-685dc3921410
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
89 ;;; greek.el ends here