/[emacs]/emacs/lisp/language/greek.el
ViewVC logotype

Diff of /emacs/lisp/language/greek.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by handa, Mon Nov 18 00:06:30 2002 UTC revision 1.21.6.1 by handa, Mon Sep 8 12:53:41 2003 UTC
# Line 1  Line 1 
1  ;;; greek.el --- support for Greek -*- no-byte-compile: t -*-  ;;; greek.el --- support for Greek -*- no-byte-compile: t -*-
2    
3  ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.  ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4  ;; Licensed to the Free Software Foundation.  ;;   Licensed to the Free Software Foundation.
5    ;; Copyright (C) 2002 Free Software Foundation, Inc.
6    ;; Copyright (C) 2003
7    ;;   National Institute of Advanced Industrial Science and Technology (AIST)
8    ;;   Registration Number H13PRO009
9    
10  ;; Keywords: multilingual, Greek  ;; Keywords: multilingual, Greek
11    
# Line 28  Line 32 
32    
33  ;;; Code:  ;;; Code:
34    
35  (make-coding-system  (define-coding-system 'greek-iso-8bit
36   'greek-iso-8bit 2 ?7    "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)."
37   "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)."    :coding-type 'charset
38   '(ascii greek-iso8859-7 nil nil    :mnemonic ?7
39     nil nil nil nil nil nil nil nil nil nil nil t)    :charset-list '(iso-8859-7)
40   '((safe-charsets ascii greek-iso8859-7)    :mime-charset 'iso-8859-7)
    (mime-charset . iso-8859-7)))  
41    
42  (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)  (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)
43    
44    (define-coding-system 'windows-1253
45      "windows-1253 encoding for Greek"
46      :coding-type 'charset
47      :mnemonic ?g
48      :charset-list '(windows-1253)
49      :mime-charset 'windows-1253)
50    (define-coding-system-alias 'cp1253 'windows-1253)
51    
52    (define-coding-system 'cp737
53      "Codepage 737 (PC Greek)"
54      :coding-type 'charset
55      :mnemonic ?D
56      :charset-list '(cp737)
57      :mime-charset 'cp737)
58    
59    (define-coding-system 'cp851
60      "DOS codepage 851 (Greek)"
61      :coding-type 'charset
62      :mnemonic ?D
63      :charset-list '(cp851)
64      :mime-charset 'cp851)
65    (define-coding-system-alias 'ibm851 'cp851)
66    
67    (define-coding-system 'cp869
68      "DOS codepage 869 (Greek)"
69      :coding-type 'charset
70      :mnemonic ?D
71      :charset-list '(cp869)
72      :mime-charset 'cp869)
73    (define-coding-system-alias 'ibm869 'cp869)
74    
75  (set-language-info-alist  (set-language-info-alist
76   "Greek" '((charset . (greek-iso8859-7))   "Greek" '((charset iso-8859-7)
77             (coding-system . (greek-iso-8bit))             (coding-system greek-iso-8bit windows-1253 cp851 cp869)
78             (coding-priority greek-iso-8bit)             (coding-priority greek-iso-8bit)
79             (nonascii-translation . greek-iso8859-7)             (nonascii-translation . iso-8859-7)
80             (input-method . "greek")             (input-method . "greek")
            (unibyte-display . greek-iso-8bit)  
81             (documentation . t)))             (documentation . t)))
82    
83  (provide 'greek)  (provide 'greek)

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.21.6.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26