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) |