Mercurial > hg > xemacs-beta

comparison lisp/mule/greek-hooks.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children fe104dbd9147
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
22 ;; Boston, MA 02111-1307, USA. 22 ;; Boston, MA 02111-1307, USA.
23 23
24 ;;; Synched up with: Mule 2.3. 24 ;;; Synched up with: Mule 2.3.
25 25
26 ;; For syntax of Greek 26 ;; For syntax of Greek
27 (let ((c 54)) 27 (loop for c from 54 to 126
28 (while (< c 127) 28 do (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w"))
29 (modify-syntax-entry (make-char 'greek c) "w") 29 (modify-syntax-entry (make-char 'greek-iso8859-7 32) "w") ; no-break space
30 (setq c (1+ c))))
31 (modify-syntax-entry (make-char 'greek 32) "w") ; no-break space
32 (modify-syntax-entry ?,F7(B ".") 30 (modify-syntax-entry ?,F7(B ".")
33 (modify-syntax-entry ?,F;(B ".") 31 (modify-syntax-entry ?,F;(B ".")
34 (modify-syntax-entry ?,F=(B ".") 32 (modify-syntax-entry ?,F=(B ".")
35 33
36 34
39 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 37 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
40 38
41 (make-coding-system 39 (make-coding-system
42 'iso-8859-7 'iso2022 "MIME ISO-8859-7" 40 'iso-8859-7 'iso2022 "MIME ISO-8859-7"
43 '(charset-g0 ascii 41 '(charset-g0 ascii
44 charset-g1 greek 42 charset-g1 greek-iso8859-7
45 charset-g2 t 43 charset-g2 t
46 charset-g3 t 44 charset-g3 t
47 mnemonic "MIME/Grk" 45 mnemonic "MIME/Grk"
48 )) 46 ))
49 47
50 (add-hook 'quail-package-alist '("greek" "quail/greek")) 48 ;;(add-hook 'quail-package-alist '("greek" "quail/greek"))
51 49
52 (define-language-environment 'greek 50 (define-language-environment 'greek
53 "Greek" 51 "Greek"
54 (lambda () 52 (lambda ()
55 (set-coding-category-system 'iso-8-designate 'iso-8859-7) 53 (set-coding-category-system 'iso-8-designate 'iso-8859-7)
56 (set-coding-priority-list '(iso-8-designate iso-8-1)) 54 (set-coding-priority-list '(iso-8-designate iso-8-1))
57 (set-default-file-coding-system 'iso-8859-7) 55 (set-default-file-coding-system 'iso-8859-7)
58 (setq terminal-coding-system 'iso-8859-7) 56 (setq terminal-coding-system 'iso-8859-7)
59 (setq keyboard-coding-system 'iso-8859-7) 57 (setq keyboard-coding-system 'iso-8859-7)
60 (setq-default quail-current-package 58 ;; (setq-default quail-current-package
61 (assoc "greek" quail-package-alist)))) 59 ;; (assoc "greek" quail-package-alist))))
62 60 ))