Mercurial > emacs
comparison lisp/language/greek.el @ 18545:90d120c67d6c
(setup-greek-environment): Call setup-8-bit-environment correctly.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 02 Jul 1997 12:58:24 +0000 |
| parents | 383d11185239 |
| children | dce0d588d203 |
comparison
equal
deleted
inserted
replaced
| 18544:ba17f4ded210 | 18545:90d120c67d6c |
|---|---|
| 37 (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit) | 37 (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit) |
| 38 | 38 |
| 39 (defun setup-greek-environment () | 39 (defun setup-greek-environment () |
| 40 "Setup multilingual environment (MULE) for Greek." | 40 "Setup multilingual environment (MULE) for Greek." |
| 41 (interactive) | 41 (interactive) |
| 42 (setup-8-bit-environment 'greek-iso8859-7 'greek-iso-8bit | 42 (setup-8-bit-environment "Greek" 'greek-iso8859-7 'greek-iso-8bit |
| 43 '("Greek" . "quail-greek"))) | 43 "greek")) |
| 44 | 44 |
| 45 (set-language-info-alist | 45 (set-language-info-alist |
| 46 "Greek" '((setup-function . setup-greek-environment) | 46 "Greek" '((setup-function . setup-greek-environment) |
| 47 (charset . (greek-iso8859-7)) | 47 (charset . (greek-iso8859-7)) |
| 48 (coding-system . (greek-iso-8bit)) | 48 (coding-system . (greek-iso-8bit)) |