Mercurial > hg > xemacs-beta

comparison lisp/mule/korean-hooks.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 821dec489c24
children a145efe76779
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
96 (set-process-output-coding-system proc 'euc-korea)))) 96 (set-process-output-coding-system proc 'euc-korea))))
97 (set-file-coding-system-for-read 'autodetect) 97 (set-file-coding-system-for-read 'autodetect)
98 (set-default-file-coding-system 'euc-korea) 98 (set-default-file-coding-system 'euc-korea)
99 (setq keyboard-coding-system 'euc-korea) 99 (setq keyboard-coding-system 'euc-korea)
100 (setq terminal-coding-system 'euc-korea) 100 (setq terminal-coding-system 'euc-korea)
101 (set-charset-registry 'ascii "ksc5636"))) 101 (set-charset-registry 'ascii "ksc5636")
102
103 ;; EGG specific setup 97.02.05 jhod
104 (when (featurep 'egg)
105 (when (not (featurep 'egg-kor))
106 (provide 'egg-kor)
107 (load "its/its-hangul")
108 (setq its:*standard-modes*
109 (cons (its:get-mode-map "hangul") its:*standard-modes*)))
110 (setq-default its:*current-map* (its:get-mode-map "hangul")))
111
102 ; (setq-default quail-current-package 112 ; (setq-default quail-current-package
103 ; (assoc "hangul" quail-package-alist)))) 113 ; (assoc "hangul" quail-package-alist))))
114 ))