Mercurial > emacs
annotate lisp/language/greek.el @ 106642:33320786e55e
*** empty log message ***
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 26 Dec 2009 15:56:43 +0000 |
parents | a9dc0e7c3f2b |
children | 1d1d5d9bd884 |
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 | 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, |
100908 | 5 ;; 2005, 2006, 2007, 2008, 2009 |
62396 | 6 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
7 ;; Registration Number H14PRO021 | |
17052 | 8 |
89483 | 9 ;; Copyright (C) 2003 |
10 ;; National Institute of Advanced Industrial Science and Technology (AIST) | |
11 ;; Registration Number H13PRO009 | |
17052 | 12 |
13 ;; Keywords: multilingual, Greek | |
14 | |
15 ;; This file is part of GNU Emacs. | |
16 | |
94665
55b7f25d920a
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
17 ;; GNU Emacs is free software: you can redistribute it and/or modify |
17052 | 18 ;; 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
|
19 ;; 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
|
20 ;; (at your option) any later version. |
17052 | 21 |
22 ;; GNU Emacs is distributed in the hope that it will be useful, | |
23 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
24 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
25 ;; GNU General Public License for more details. | |
26 | |
27 ;; 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
|
28 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
17052 | 29 |
30 ;;; Commentary: | |
31 | |
32 ;; For Greek, the character set ISO8859-7 is supported. | |
33 | |
34 ;;; Code: | |
35 | |
88414
fad0f879877f
Call define-coding-system instead of make-coding-system. All CCL program deleted.
Kenichi Handa <handa@m17n.org>
parents:
42152
diff
changeset
|
36 (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
|
37 "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
|
38 :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
|
39 :mnemonic ?7 |
88479
b22b2b59667b
(greek-iso-8bit): Fix typo.
Kenichi Handa <handa@m17n.org>
parents:
88414
diff
changeset
|
40 :charset-list '(iso-8859-7) |
88513 | 41 :mime-charset 'iso-8859-7) |
17052 | 42 |
18520
383d11185239
Swap args to define-coding-system-alias.
Richard M. Stallman <rms@gnu.org>
parents:
18377
diff
changeset
|
43 (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
|
44 |
88557
601020f7bce8
(windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents:
88513
diff
changeset
|
45 (define-coding-system 'windows-1253 |
601020f7bce8
(windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents:
88513
diff
changeset
|
46 "windows-1253 encoding for Greek" |
601020f7bce8
(windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents:
88513
diff
changeset
|
47 :coding-type 'charset |
601020f7bce8
(windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents:
88513
diff
changeset
|
48 :mnemonic ?g |
601020f7bce8
(windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents:
88513
diff
changeset
|
49 :charset-list '(windows-1253) |
601020f7bce8
(windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents:
88513
diff
changeset
|
50 :mime-charset 'windows-1253) |
601020f7bce8
(windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents:
88513
diff
changeset
|
51 (define-coding-system-alias 'cp1253 'windows-1253) |
601020f7bce8
(windows-1253, cp1253): New coding systems.
Dave Love <fx@gnu.org>
parents:
88513
diff
changeset
|
52 |
89153
8e27ca682098
("Greek"): Remove unibyte-syntax property.
Dave Love <fx@gnu.org>
parents:
88719
diff
changeset
|
53 (define-coding-system 'cp737 |
8e27ca682098
("Greek"): Remove unibyte-syntax property.
Dave Love <fx@gnu.org>
parents:
88719
diff
changeset
|
54 "Codepage 737 (PC Greek)" |
8e27ca682098
("Greek"): Remove unibyte-syntax property.
Dave Love <fx@gnu.org>
parents:
88719
diff
changeset
|
55 :coding-type 'charset |
8e27ca682098
("Greek"): Remove unibyte-syntax property.
Dave Love <fx@gnu.org>
parents:
88719
diff
changeset
|
56 :mnemonic ?D |
8e27ca682098
("Greek"): Remove unibyte-syntax property.
Dave Love <fx@gnu.org>
parents:
88719
diff
changeset
|
57 :charset-list '(cp737) |
8e27ca682098
("Greek"): Remove unibyte-syntax property.
Dave Love <fx@gnu.org>
parents:
88719
diff
changeset
|
58 :mime-charset 'cp737) |
8e27ca682098
("Greek"): Remove unibyte-syntax property.
Dave Love <fx@gnu.org>
parents:
88719
diff
changeset
|
59 |
88618
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
60 (define-coding-system 'cp851 |
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
61 "DOS codepage 851 (Greek)" |
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
62 :coding-type 'charset |
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
63 :mnemonic ?D |
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
64 :charset-list '(cp851) |
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
65 :mime-charset 'cp851) |
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
66 (define-coding-system-alias 'ibm851 'cp851) |
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
67 |
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
68 (define-coding-system 'cp869 |
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
69 "DOS codepage 869 (Greek)" |
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
70 :coding-type 'charset |
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
71 :mnemonic ?D |
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
72 :charset-list '(cp869) |
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
73 :mime-charset 'cp869) |
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
74 (define-coding-system-alias 'ibm869 'cp869) |
bc872894c0a7
(cp851, ibm851, cp869, ibm869): New coding
Dave Love <fx@gnu.org>
parents:
88557
diff
changeset
|
75 |
17052 | 76 (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
|
77 "Greek" '((charset iso-8859-7) |
89483 | 78 (coding-system greek-iso-8bit windows-1253 cp851 cp869) |
22622 | 79 (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
|
80 (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
|
81 (input-method . "greek") |
17841
084d922fcd78
Coding system names changed as follows:
Kenichi Handa <handa@m17n.org>
parents:
17772
diff
changeset
|
82 (documentation . t))) |
17052 | 83 |
33778 | 84 (provide 'greek) |
85 | |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
91327
diff
changeset
|
86 ;; arch-tag: 9ba48d79-84bc-45e1-9318-685dc3921410 |
17052 | 87 ;;; greek.el ends here |