Mercurial > hg > xemacs-beta

comparison lisp/mule/korean-hooks.el @ 88:821dec489c24 r20-0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0
author cvs
date Mon, 13 Aug 2007 09:09:59 +0200
parents 131b0175ea99
children 0d2f883870bc
comparison
equal deleted inserted replaced
87:7df2982f5c17 88:821dec489c24
40 ; (load "its-hangul") 40 ; (load "its-hangul")
41 ; (setq its:*standard-modes* 41 ; (setq its:*standard-modes*
42 ; (cons (its:get-mode-map "hangul") its:*standard-modes*)) 42 ; (cons (its:get-mode-map "hangul") its:*standard-modes*))
43 ; (setq-default its:*current-map* (its:get-mode-map "hangul")))) 43 ; (setq-default its:*current-map* (its:get-mode-map "hangul"))))
44 44
45 (add-hook 'quail-package-alist '("hangul" "quail/hangul")) 45 ;(add-hook 'quail-package-alist '("hangul" "quail/hangul"))
46 (add-hook 'quail-package-alist '("hangul3" "quail/hangul3")) 46 ;(add-hook 'quail-package-alist '("hangul3" "quail/hangul3"))
47 (add-hook 'quail-package-alist '("hanja-jis" "quail/hanja-jis")) 47 ;(add-hook 'quail-package-alist '("hanja-jis" "quail/hanja-jis"))
48 (add-hook 'quail-package-alist '("hanja-ksc" "quail/hanja-ksc")) 48 ;(add-hook 'quail-package-alist '("hanja-ksc" "quail/hanja-ksc"))
49 49
50 (make-coding-system 50 (make-coding-system
51 'euc-korea 'iso2022 51 'euc-korea 'iso2022
52 "Coding-system of Korean EUC (Extended Unix Code)." 52 "Coding-system of Korean EUC (Extended Unix Code)."
53 '(charset-g0 ascii 53 '(charset-g0 ascii
54 charset-g1 korean-ksc5601 54 charset-g1 korean-ksc5601
55 mnemonic "EUC/Kor" 55 mnemonic "EUC/Ko"
56 eol-type lf 56 eol-type lf
57 )) 57 ))
58 58
59 (copy-coding-system 'euc-korea 'euc-kr) 59 (copy-coding-system 'euc-korea 'euc-kr)
60 60
64 '(charset-g0 ascii 64 '(charset-g0 ascii
65 charset-g1 korean-ksc5601 65 charset-g1 korean-ksc5601
66 force-g1-on-output t 66 force-g1-on-output t
67 seven t 67 seven t
68 lock-shift t 68 lock-shift t
69 mnemonic "Mail/Kor" 69 mnemonic "Mail/Ko"
70 eol-type lf 70 eol-type lf
71 )) 71 ))
72 72
73 (copy-coding-system 'iso-2022-kr 'korean-mail) 73 (copy-coding-system 'iso-2022-kr 'korean-mail)
74 74
78 '(charset-g0 ascii 78 '(charset-g0 ascii
79 charset-g1 korean-ksc5601 79 charset-g1 korean-ksc5601
80 short t 80 short t
81 seven t 81 seven t
82 lock-shift t 82 lock-shift t
83 mnemonic "ISO7/Kor" 83 mnemonic "ISO7/Ko"
84 )) 84 ))
85 85
86 (define-language-environment 'korean 86 (define-language-environment 'korean
87 "Korean" 87 "Korean"
88 (lambda () 88 (lambda ()
89 (set-coding-category-system 'iso-8-2 'euc-korea) 89 (set-coding-category-system 'iso-8-2 'euc-korea)
90 (set-coding-priority-list '(iso-8-2 iso-8-designate)) 90 (set-coding-priority-list '(iso-8-2 iso-7 iso-8-designate))
91 (set-default-file-coding-system 'iso-2022-kr) 91 (set-pathname-coding-system 'euc-korea)
92 (setq-default quail-current-package 92 (add-hook 'comint-exec-hook
93 (assoc "hangul" quail-package-alist)))) 93 (lambda ()
94 (let ((proc (get-buffer-process (current-buffer))))
95 (set-process-input-coding-system proc 'euc-korea)
96 (set-process-output-coding-system proc 'euc-korea))))
97 (set-file-coding-system-for-read 'autodetect)
98 (set-default-file-coding-system 'euc-korea)
99 (setq keyboard-coding-system 'euc-korea)
100 (setq terminal-coding-system 'euc-korea)
101 (set-charset-registry 'ascii "ksc5636")))
102 ; (setq-default quail-current-package
103 ; (assoc "hangul" quail-package-alist))))