Mercurial > hg > xemacs-beta

comparison lisp/mule/greek.el @ 398:74fd4e045ea6 r21-2-29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-29
author cvs
date Mon, 13 Aug 2007 11:13:30 +0200
parents 4f79e16b1112
children 697ef44129c6
comparison
equal deleted inserted replaced
397:f4aeb21a5bad 398:74fd4e045ea6
31 31
32 ;; For syntax of Greek 32 ;; For syntax of Greek
33 (loop for c from 54 to 126 33 (loop for c from 54 to 126
34 do (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w")) 34 do (modify-syntax-entry (make-char 'greek-iso8859-7 c) "w"))
35 (modify-syntax-entry (make-char 'greek-iso8859-7 32) "w") ; no-break space 35 (modify-syntax-entry (make-char 'greek-iso8859-7 32) "w") ; no-break space
36 (modify-syntax-entry ?,F7(B ".") 36 (modify-syntax-entry ?.FN7 ".")
37 (modify-syntax-entry ?,F;(B ".") 37 (modify-syntax-entry ?N; ".")
38 (modify-syntax-entry ?,F=(B ".") 38 (modify-syntax-entry ?N= ".")
39 39
40 40
41 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 41 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
42 ;;; GREEK 42 ;;; GREEK
43 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 43 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
44 44
45 ;; (define-language-environment 'greek
46 ;; "Greek"
47 ;; (lambda ()
48 ;; (set-coding-category-system 'iso-8-designate 'iso-8859-7)
49 ;; (set-coding-priority-list '(iso-8-designate iso-8-1))
50 ;; (set-default-buffer-file-coding-system 'iso-8859-7)
51 ;; (setq terminal-coding-system 'iso-8859-7)
52 ;; (setq keyboard-coding-system 'iso-8859-7)
53 ;; ;; (setq-default quail-current-package
54 ;; ;; (assoc "greek" quail-package-alist))
55 ;; ))
56 45
57 ;; (make-coding-system 46 ;; (make-coding-system
58 ;; 'iso-8859-7 2 ?7 "MIME ISO-8859-7" 47 ;; 'greek-iso-8bit 2 ?7
59 ;; '((ascii t) (greek-iso8859-7 t) nil nil 48 ;; "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)"
60 ;; nil ascii-eol ascii-cntl nil nil nil nil)) 49 ;; '(ascii greek-iso8859-7 nil nil
50 ;; nil nil nil nil nil nil nil)
51 ;; '((safe-charsets ascii greek-iso8859-7)
52 ;; (mime-charset . iso-8859-7)))
53
54 ;; (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)
61 55
62 (make-coding-system 56 (make-coding-system
63 'iso-8859-7 'iso2022 "MIME ISO-8859-7" 57 'iso-8859-7 'iso2022 "MIME ISO-8859-7"
64 '(charset-g0 ascii 58 '(charset-g0 ascii
65 charset-g1 greek-iso8859-7 59 charset-g1 greek-iso8859-7
69 )) 63 ))
70 64
71 (defun setup-greek-environment () 65 (defun setup-greek-environment ()
72 "Setup multilingual environment (MULE) for Greek." 66 "Setup multilingual environment (MULE) for Greek."
73 (interactive) 67 (interactive)
74 (setup-8-bit-environment "Greek" 'greek-iso8859-7 'iso-8859-7 "greek") 68 (set-language-environment "Greek"))
75 )
76 69
77 (set-language-info-alist 70 (set-language-info-alist
78 "Greek" '((setup-function . setup-greek-environment) 71 "Greek" '((charset greek-iso8859-7)
79 (charset . (greek-iso8859-7)) 72 (coding-system iso-8859-7)
80 (coding-system . (iso-8859-7)) 73 (coding-priority iso-8859-7)
81 (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B") 74 (input-method . "greek")
75 (sample-text . "Greek (NGNkNkN]NmNiNjNa) NCNeNiN\ NsNaNr")
82 (documentation . t))) 76 (documentation . t)))
83 77
84 ;;; greek.el ends here 78 ;;; greek.el ends here