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