Mercurial > hg > xemacs-beta

comparison lisp/mule/cyrillic-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
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 (modify-syntax-entry 'cyrillic-iso8859-5 "w") 27 (modify-syntax-entry 'cyrillic-iso8859-5 "w")
28 (modify-syntax-entry ?,L-(B ".") 28 (modify-syntax-entry ?-L­ ".")-A
29 (modify-syntax-entry ?,Lp(B ".") 29 (modify-syntax-entry ?-Lð ".")-A
30 (modify-syntax-entry ?,L}(B ".") 30 (modify-syntax-entry ?-Lý ".")-A
31 31
32 32
33 33
34 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 34 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
35 ;;; CYRILLIC 35 ;;; CYRILLIC
43 charset-g2 t 43 charset-g2 t
44 charset-g3 t 44 charset-g3 t
45 mnemonic "ISO8/Cyr" 45 mnemonic "ISO8/Cyr"
46 )) 46 ))
47 47
48 ;;(add-hook 'quail-package-alist '("jcuken" "quail/cyrillic")) 48 ;;(add-hook 'quail-package-alist '("jcuken" "quail-cyrillic"))
49 ;;(add-hook 'quail-package-alist '("macedonian" "quail/cyrillic")) 49 ;;(add-hook 'quail-package-alist '("macedonian" "quail-cyrillic"))
50 ;;(add-hook 'quail-package-alist '("serbian" "quail/cyrillic")) 50 ;;(add-hook 'quail-package-alist '("serbian" "quail-cyrillic"))
51 ;;(add-hook 'quail-package-alist '("beylorussian" "quail/cyrillic")) 51 ;;(add-hook 'quail-package-alist '("beylorussian" "quail-cyrillic"))
52 ;;(add-hook 'quail-package-alist '("ukrainian" "quail/cyrillic")) 52 ;;(add-hook 'quail-package-alist '("ukrainian" "quail-cyrillic"))
53 ;;(add-hook 'quail-package-alist '("yawerty" "quail/cyrillic")) 53 (add-hook 'quail-package-alist '("yawerty" "quail-cyrillic"))
54 54
55 (define-language-environment 'cyrillic 55 (define-language-environment 'cyrillic
56 "Cyrillic" 56 "Cyrillic"
57 (lambda () 57 (lambda ()
58 (set-coding-category-system 'iso-8-designate 'iso-8859-5) 58 (set-coding-category-system 'iso-8-designate 'iso-8859-5)
59 (set-coding-priority-list '(iso-8-designate iso-8-1)) 59 (set-coding-priority-list '(iso-8-designate iso-8-1))
60 (set-default-buffer-file-coding-system 'iso-8859-5) 60 (set-default-buffer-file-coding-system 'iso-8859-5)
61 (setq terminal-coding-system 'iso-8859-5) 61 (setq terminal-coding-system 'iso-8859-5)
62 (setq keyboard-coding-system 'iso-8859-5) 62 (setq keyboard-coding-system 'iso-8859-5)
63 ;; (setq-default quail-current-package 63 (setq-default quail-current-package
64 ;; (assoc "yawerty" quail-package-alist)))) 64 (assoc "yawerty" quail-package-alist))
65 )) 65 ))