Mercurial > emacs
comparison lisp/language/greek.el @ 89153:8e27ca682098
("Greek"): Remove unibyte-syntax property.
(cp737): New coding system.
author | Dave Love <fx@gnu.org> |
---|---|
date | Sat, 05 Oct 2002 19:10:39 +0000 |
parents | 5c9662a7b7f6 |
children | 2f877ed80fa6 |
comparison
equal
deleted
inserted
replaced
89152:a2fead5d3c2e | 89153:8e27ca682098 |
---|---|
44 :mnemonic ?g | 44 :mnemonic ?g |
45 :charset-list '(windows-1253) | 45 :charset-list '(windows-1253) |
46 :mime-charset 'windows-1253) | 46 :mime-charset 'windows-1253) |
47 (define-coding-system-alias 'cp1253 'windows-1253) | 47 (define-coding-system-alias 'cp1253 'windows-1253) |
48 | 48 |
49 (define-coding-system 'cp737 | |
50 "Codepage 737 (PC Greek)" | |
51 :coding-type 'charset | |
52 :mnemonic ?D | |
53 :charset-list '(cp737) | |
54 :mime-charset 'cp737) | |
55 | |
49 (define-coding-system 'cp851 | 56 (define-coding-system 'cp851 |
50 "DOS codepage 851 (Greek)" | 57 "DOS codepage 851 (Greek)" |
51 :coding-type 'charset | 58 :coding-type 'charset |
52 :mnemonic ?D | 59 :mnemonic ?D |
53 :charset-list '(cp851) | 60 :charset-list '(cp851) |
66 "Greek" '((charset iso-8859-7) | 73 "Greek" '((charset iso-8859-7) |
67 (coding-system . (greek-iso-8bit windows-1253 cp851 cp869)) | 74 (coding-system . (greek-iso-8bit windows-1253 cp851 cp869)) |
68 (coding-priority greek-iso-8bit) | 75 (coding-priority greek-iso-8bit) |
69 (nonascii-translation . iso-8859-7) | 76 (nonascii-translation . iso-8859-7) |
70 (input-method . "greek") | 77 (input-method . "greek") |
71 (unibyte-display . greek-iso-8bit) | |
72 (documentation . t))) | 78 (documentation . t))) |
73 | 79 |
74 (provide 'greek) | 80 (provide 'greek) |
75 | 81 |
76 ;;; greek.el ends here | 82 ;;; greek.el ends here |