Mercurial > emacs
comparison lisp/language/greek.el @ 28906:60eb71a9f901
Remove all the setup-...-environment functions.
author | Dave Love <fx@gnu.org> |
---|---|
date | Sun, 14 May 2000 15:21:41 +0000 |
parents | 5fef9d1a7fc2 |
children | 6d966e8b4bbe |
comparison
equal
deleted
inserted
replaced
28905:e96880caf4e5 | 28906:60eb71a9f901 |
---|---|
36 '((safe-charsets ascii greek-iso8859-7) | 36 '((safe-charsets ascii greek-iso8859-7) |
37 (mime-charset . iso-8859-7))) | 37 (mime-charset . iso-8859-7))) |
38 | 38 |
39 (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit) | 39 (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit) |
40 | 40 |
41 (defun setup-greek-environment () | |
42 "Setup multilingual environment (MULE) for Greek." | |
43 (interactive) | |
44 (set-language-environment "Greek")) | |
45 | |
46 (set-language-info-alist | 41 (set-language-info-alist |
47 "Greek" '((charset . (greek-iso8859-7)) | 42 "Greek" '((charset . (greek-iso8859-7)) |
48 (coding-system . (greek-iso-8bit)) | 43 (coding-system . (greek-iso-8bit)) |
49 (coding-priority greek-iso-8bit) | 44 (coding-priority greek-iso-8bit) |
50 (nonascii-translation . greek-iso8859-7) | 45 (nonascii-translation . greek-iso8859-7) |