Mercurial > hg > xemacs-beta

comparison lisp/mule/greek-hooks.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 54cc21c15cbb
children 6608ceec7cf8
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
50 (define-language-environment 'greek 50 (define-language-environment 'greek
51 "Greek" 51 "Greek"
52 (lambda () 52 (lambda ()
53 (set-coding-category-system 'iso-8-designate 'iso-8859-7) 53 (set-coding-category-system 'iso-8-designate 'iso-8859-7)
54 (set-coding-priority-list '(iso-8-designate iso-8-1)) 54 (set-coding-priority-list '(iso-8-designate iso-8-1))
55 (set-default-file-coding-system 'iso-8859-7) 55 (set-default-buffer-file-coding-system 'iso-8859-7)
56 (setq terminal-coding-system 'iso-8859-7) 56 (setq terminal-coding-system 'iso-8859-7)
57 (setq keyboard-coding-system 'iso-8859-7) 57 (setq keyboard-coding-system 'iso-8859-7)
58 ;; (setq-default quail-current-package 58 ;; (setq-default quail-current-package
59 ;; (assoc "greek" quail-package-alist)))) 59 ;; (assoc "greek" quail-package-alist))))
60 )) 60 ))