/[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.19 by wl, Tue Dec 18 17:49:01 2001 UTC revision 1.19.2.1 by handa, Fri Mar 1 02:28:29 2002 UTC
# Line 28  Line 28 
28    
29  ;;; Code:  ;;; Code:
30    
31  (make-coding-system  (define-coding-system 'greek-iso-8bit
32   'greek-iso-8bit 2 ?7    "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)."
33   "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)."    :coding-type 'charset
34   '(ascii greek-iso8859-7 nil nil    :mnemonic ?7
35     nil nil nil nil nil nil nil)    :charset-list'(iso-8859-7)
36   '((safe-charsets ascii greek-iso8859-7)    :plist '(mime-charset iso-8859-7))
    (mime-charset . iso-8859-7)))  
37    
38  (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)  (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)
39    
40  (set-language-info-alist  (set-language-info-alist
41   "Greek" '((charset . (greek-iso8859-7))   "Greek" '((charset iso-8859-7)
42             (coding-system . (greek-iso-8bit))             (coding-system . (greek-iso-8bit))
43             (coding-priority greek-iso-8bit)             (coding-priority greek-iso-8bit)
44             (nonascii-translation . greek-iso8859-7)             (nonascii-translation . iso-8859-7)
45             (input-method . "greek")             (input-method . "greek")
46             (unibyte-display . greek-iso-8bit)             (unibyte-display . greek-iso-8bit)
47             (documentation . t)))             (documentation . t)))

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.19.2.1

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