Mercurial > hg > xemacs-beta

comparison lisp/language/greek.el @ 197:acd284d43ca1 r20-3b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents 3bb7ccffb0c0
children e45d5e7c476e
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
1 ;;; greek.el --- Support for Greek 1 ;;; greek.el --- Support for Greek
2 2
3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 1997 MORIOKA Tomohiko 5 ;; Copyright (C) 1997 MORIOKA Tomohiko
6 6
7 ;; Keywords: multilingual, Greek 7 ;; Keywords: multilingual, Greek
8 8
9 ;; This file is part of XEmacs. 9 ;; This file is part of XEmacs.
40 40
41 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 41 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
42 ;;; GREEK 42 ;;; GREEK
43 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 43 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
44 44
45 (define-language-environment 'greek 45 ;; (define-language-environment 'greek
46 "Greek" 46 ;; "Greek"
47 (lambda () 47 ;; (lambda ()
48 (set-coding-category-system 'iso-8-designate 'iso-8859-7) 48 ;; (set-coding-category-system 'iso-8-designate 'iso-8859-7)
49 (set-coding-priority-list '(iso-8-designate iso-8-1)) 49 ;; (set-coding-priority-list '(iso-8-designate iso-8-1))
50 (set-default-buffer-file-coding-system 'iso-8859-7) 50 ;; (set-default-buffer-file-coding-system 'iso-8859-7)
51 (setq terminal-coding-system 'iso-8859-7) 51 ;; (setq terminal-coding-system 'iso-8859-7)
52 (setq keyboard-coding-system 'iso-8859-7) 52 ;; (setq keyboard-coding-system 'iso-8859-7)
53 ;; (setq-default quail-current-package 53 ;; ;; (setq-default quail-current-package
54 ;; (assoc "greek" quail-package-alist)) 54 ;; ;; (assoc "greek" quail-package-alist))
55 )) 55 ;; ))
56 56
57 ;; (make-coding-system 57 ;; (make-coding-system
58 ;; 'iso-8859-7 2 ?7 "MIME ISO-8859-7" 58 ;; 'iso-8859-7 2 ?7 "MIME ISO-8859-7"
59 ;; '((ascii t) (greek-iso8859-7 t) nil nil 59 ;; '((ascii t) (greek-iso8859-7 t) nil nil
60 ;; nil ascii-eol ascii-cntl nil nil nil nil)) 60 ;; nil ascii-eol ascii-cntl nil nil nil nil))
66 charset-g2 t 66 charset-g2 t
67 charset-g3 t 67 charset-g3 t
68 mnemonic "Grk" 68 mnemonic "Grk"
69 )) 69 ))
70 70
71 (register-input-method
72 "Greek" '("quail-greek" quail-use-package "quail/greek"))
73
74 (defun setup-greek-environment () 71 (defun setup-greek-environment ()
75 "Setup multilingual environment (MULE) for Greek." 72 "Setup multilingual environment (MULE) for Greek."
76 (interactive) 73 (interactive)
77 (setq coding-category-iso-8-1 'iso-8859-7) 74 (setup-8-bit-environment "Greek" 'greek-iso8859-7 'greek-iso-8bit
78 75 "greek"))
79 (set-coding-priority
80 '(coding-category-iso-7
81 coding-category-iso-8-1))
82
83 (setq-default buffer-file-coding-system 'iso-8859-7)
84 (set-terminal-coding-system 'iso-8859-7)
85 (set-keyboard-coding-system 'iso-8859-7)
86
87 (setq default-input-method '("Greek" . "quail-greek"))
88 )
89
90 (defun describe-greek-support ()
91 "Describe how Emacs supports Greek."
92 (interactive)
93 (describe-language-support-internal "Greek"))
94 76
95 (set-language-info-alist 77 (set-language-info-alist
96 "Greek" '((setup-function . setup-greek-environment) 78 "Greek" '((setup-function . setup-greek-environment)
97 (describe-function. describe-greek-support)
98 (charset . (greek-iso8859-7)) 79 (charset . (greek-iso8859-7))
99 (coding-system . (iso-8859-7)) 80 (coding-system . (iso-8859-7))
100 (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B") 81 (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B")
101 (documentation . nil))) 82 (documentation . t)))
102 83
103 ;;; greek.el ends here 84 ;;; greek.el ends here