Mercurial > hg > xemacs-beta

comparison lisp/mule/greek.el @ 412:697ef44129c6 r21-2-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-14
author cvs
date Mon, 13 Aug 2007 11:20:41 +0200
parents 74fd4e045ea6
children 95016f13131a
comparison
equal deleted inserted replaced
411:12e008d41344 412:697ef44129c6
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 ?.FN7 ".") 36 (modify-syntax-entry ?,F7(B ".")
37 (modify-syntax-entry ?N; ".") 37 (modify-syntax-entry ?,F;(B ".")
38 (modify-syntax-entry ?N= ".") 38 (modify-syntax-entry ?,F=(B ".")
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 ;; ))
45 56
46 ;; (make-coding-system 57 ;; (make-coding-system
47 ;; 'greek-iso-8bit 2 ?7 58 ;; 'iso-8859-7 2 ?7 "MIME ISO-8859-7"
48 ;; "ISO 2022 based 8-bit encoding for Greek (MIME:ISO-8859-7)" 59 ;; '((ascii t) (greek-iso8859-7 t) nil nil
49 ;; '(ascii greek-iso8859-7 nil nil 60 ;; nil ascii-eol ascii-cntl nil nil 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)
55 61
56 (make-coding-system 62 (make-coding-system
57 'iso-8859-7 'iso2022 "MIME ISO-8859-7" 63 'iso-8859-7 'iso2022 "MIME ISO-8859-7"
58 '(charset-g0 ascii 64 '(charset-g0 ascii
59 charset-g1 greek-iso8859-7 65 charset-g1 greek-iso8859-7
63 )) 69 ))
64 70
65 (defun setup-greek-environment () 71 (defun setup-greek-environment ()
66 "Setup multilingual environment (MULE) for Greek." 72 "Setup multilingual environment (MULE) for Greek."
67 (interactive) 73 (interactive)
68 (set-language-environment "Greek")) 74 (setup-8-bit-environment "Greek" 'greek-iso8859-7 'iso-8859-7 "greek")
75 )
69 76
70 (set-language-info-alist 77 (set-language-info-alist
71 "Greek" '((charset greek-iso8859-7) 78 "Greek" '((setup-function . setup-greek-environment)
72 (coding-system iso-8859-7) 79 (charset . (greek-iso8859-7))
73 (coding-priority iso-8859-7) 80 (coding-system . (iso-8859-7))
74 (input-method . "greek") 81 (sample-text . "Greek (,FGkk]mija(B) ,FCei\(B ,Fsar(B")
75 (sample-text . "Greek (NGNkNkN]NmNiNjNa) NCNeNiN\ NsNaNr")
76 (documentation . t))) 82 (documentation . t)))
77 83
78 ;;; greek.el ends here 84 ;;; greek.el ends here