Mercurial > hg > xemacs-beta

comparison lisp/mule/greek-hooks.el @ 138:6608ceec7cf8 r20-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b3
author cvs
date Mon, 13 Aug 2007 09:31:46 +0200
parents fe104dbd9147
children 3bb7ccffb0c0
comparison
equal deleted inserted replaced
137:cae984061f40 138:6608ceec7cf8
25 25
26 ;; For syntax of Greek 26 ;; For syntax of Greek
27 (loop for c from 54 to 126 27 (loop for c from 54 to 126
28 do (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w")) 28 do (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w"))
29 (modify-syntax-entry (make-char 'greek-iso8859-7 32) "w") ; no-break space 29 (modify-syntax-entry (make-char 'greek-iso8859-7 32) "w") ; no-break space
30 (modify-syntax-entry ?,F7(B ".") 30 (modify-syntax-entry ?-F· ".")-A
31 (modify-syntax-entry ?,F;(B ".") 31 (modify-syntax-entry ?-F» ".")-A
32 (modify-syntax-entry ?,F=(B ".") 32 (modify-syntax-entry ?-F½ ".")-A
33 33
34 34
35 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 35 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
36 ;;; GREEK 36 ;;; GREEK
37 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 37 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
43 charset-g2 t 43 charset-g2 t
44 charset-g3 t 44 charset-g3 t
45 mnemonic "MIME/Grk" 45 mnemonic "MIME/Grk"
46 )) 46 ))
47 47
48 ;;(add-hook 'quail-package-alist '("greek" "quail/greek")) 48 (add-hook 'quail-package-alist '("greek" "quail-greek"))
49 49
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-buffer-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 ))