Mercurial > hg > xemacs-beta

comparison lisp/mule/cyrillic-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 Cyrillic 26 ;; For syntax of Cyrillic
27 (let ((c 33)) 27 (modify-syntax-entry 'cyrillic-iso8859-5 "w")
28 (while (< c 128)
29 (modify-syntax-entry (make-char 'cyrillic c) "w")
30 (setq c (1+ c))))
31 (modify-syntax-entry (make-char 'cyrillic 32) "w") ; no-break space
32 (modify-syntax-entry ?,L-(B ".") 28 (modify-syntax-entry ?,L-(B ".")
33 (modify-syntax-entry ?,Lp(B ".") 29 (modify-syntax-entry ?,Lp(B ".")
34 (modify-syntax-entry ?,L}(B ".") 30 (modify-syntax-entry ?,L}(B ".")
35 31
36 32
41 37
42 (make-coding-system 38 (make-coding-system
43 'iso-8859-5 'iso2022 39 'iso-8859-5 'iso2022
44 "MIME ISO-8859-5" 40 "MIME ISO-8859-5"
45 '(charset-g0 ascii 41 '(charset-g0 ascii
46 charset-g1 cyrillic 42 charset-g1 cyrillic-iso8859-5
47 charset-g2 t 43 charset-g2 t
48 charset-g3 t 44 charset-g3 t
49 mnemonic "ISO8/Cyr" 45 mnemonic "ISO8/Cyr"
50 )) 46 ))
51 47
52 (add-hook 'quail-package-alist '("jcuken" "quail/cyrillic")) 48 ;;(add-hook 'quail-package-alist '("jcuken" "quail/cyrillic"))
53 (add-hook 'quail-package-alist '("macedonian" "quail/cyrillic")) 49 ;;(add-hook 'quail-package-alist '("macedonian" "quail/cyrillic"))
54 (add-hook 'quail-package-alist '("serbian" "quail/cyrillic")) 50 ;;(add-hook 'quail-package-alist '("serbian" "quail/cyrillic"))
55 (add-hook 'quail-package-alist '("beylorussian" "quail/cyrillic")) 51 ;;(add-hook 'quail-package-alist '("beylorussian" "quail/cyrillic"))
56 (add-hook 'quail-package-alist '("ukrainian" "quail/cyrillic")) 52 ;;(add-hook 'quail-package-alist '("ukrainian" "quail/cyrillic"))
57 (add-hook 'quail-package-alist '("yawerty" "quail/cyrillic")) 53 ;;(add-hook 'quail-package-alist '("yawerty" "quail/cyrillic"))
58 54
59 (define-language-environment 'cyrillic 55 (define-language-environment 'cyrillic
60 "Cyrillic" 56 "Cyrillic"
61 (lambda () 57 (lambda ()
62 (set-coding-category-system 'iso-8-designate 'iso-8859-5) 58 (set-coding-category-system 'iso-8-designate 'iso-8859-5)
63 (set-coding-priority-list '(iso-8-designate iso-8-1)) 59 (set-coding-priority-list '(iso-8-designate iso-8-1))
64 (set-default-file-coding-system 'iso-8859-5) 60 (set-default-file-coding-system 'iso-8859-5)
65 (setq terminal-coding-system 'iso-8859-5) 61 (setq terminal-coding-system 'iso-8859-5)
66 (setq keyboard-coding-system 'iso-8859-5) 62 (setq keyboard-coding-system 'iso-8859-5)
67 (setq-default quail-current-package 63 ;; (setq-default quail-current-package
68 (assoc "yawerty" quail-package-alist)))) 64 ;; (assoc "yawerty" quail-package-alist))))
65 ))