Mercurial > emacs
annotate lisp/language/greek.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:
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, |
79711 | 5 ;; 2005, 2006, 2007, 2008 |
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 | |
17 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
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 | 20 ;; any later version. |
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 | |
17071 | 28 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 29 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
30 ;; Boston, MA 02110-1301, USA. | |
17052 | 31 |
32 ;;; Commentary: | |
33 | |
34 ;; For Greek, the character set ISO8859-7 is supported. | |
35 | |
36 ;;; Code: | |
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 | 43 :mime-charset 'iso-8859-7) |
17052 | 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 | 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 | 80 (coding-system greek-iso-8bit windows-1253 cp851 cp869) |
22622 | 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 | 85 |
33778 | 86 (provide 'greek) |
87 | |
52401 | 88 ;;; arch-tag: 9ba48d79-84bc-45e1-9318-685dc3921410 |
17052 | 89 ;;; greek.el ends here |