diff options
| author | Kenichi Handa <[email protected]> | 1997-02-26 13:11:47 +0000 |
|---|---|---|
| committer | Kenichi Handa <[email protected]> | 1997-02-26 13:11:47 +0000 |
| commit | a7f2c2168ffc79b9b1b2263d10e95c57ac9dced0 (patch) | |
| tree | 3415b14c1da47cf20090b205708a349a3de6a278 /lisp/language/greek.el | |
| parent | ae54d28781e2ee8842e06f62aa406fbde54751d9 (diff) | |
Remove prefix "coding-system-" from coding system symbol names.
Diffstat (limited to 'lisp/language/greek.el')
| -rw-r--r-- | lisp/language/greek.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/language/greek.el b/lisp/language/greek.el index f707ecc8a5..c922258b1a 100644 --- a/lisp/language/greek.el +++ b/lisp/language/greek.el @@ -29,7 +29,7 @@ ;;; Code: (make-coding-system - 'coding-system-iso-8859-7 2 ?7 "MIME ISO-8859-7" + 'iso-8859-7 2 ?7 "MIME ISO-8859-7" '((ascii t) (greek-iso8859-7 t) nil nil nil ascii-eol ascii-cntl nil nil nil nil)) @@ -37,15 +37,15 @@ "Greek" '("quail-greek" quail-use-package "quail/greek")) (defun setup-greek-environment () - (setq coding-category-iso-8-1 'coding-system-iso-8859-7) + (setq coding-category-iso-8-1 'iso-8859-7) (set-coding-priority '(coding-category-iso-7 coding-category-iso-8-1)) - (setq-default buffer-file-coding-system 'coding-system-iso-8859-7) - (set-terminal-coding-system 'coding-system-iso-8859-7) - (set-keyboard-coding-system 'coding-system-iso-8859-7) + (setq-default buffer-file-coding-system 'iso-8859-7) + (set-terminal-coding-system 'iso-8859-7) + (set-keyboard-coding-system 'iso-8859-7) (setq default-input-method '("Greek" . "quail-greek")) ) @@ -53,7 +53,7 @@ (set-language-info-alist "Greek" '((setup-function . setup-greek-environment) (charset . (greek-iso8859-7)) - (coding-system . (coding-system-iso-8859-7)) + (coding-system . (iso-8859-7)) (documentation . t) (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B"))) |