Mercurial > hg > xemacs-beta

comparison lisp/mule/chinese-hooks.el @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents 821dec489c24
children fe104dbd9147
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
184 (set-process-output-coding-system proc 'euc-china)))) 184 (set-process-output-coding-system proc 'euc-china))))
185 (set-file-coding-system-for-read 'autodetect) 185 (set-file-coding-system-for-read 'autodetect)
186 (set-default-file-coding-system 'euc-china) 186 (set-default-file-coding-system 'euc-china)
187 (setq keyboard-coding-system 'euc-china) 187 (setq keyboard-coding-system 'euc-china)
188 (setq terminal-coding-system 'euc-china) 188 (setq terminal-coding-system 'euc-china)
189 (set-charset-registry 'ascii "gb1988"))) 189 (when (eq 'x (device-type (selected-device)))
190 (x-use-halfwidth-roman-font 'chinese-gb2312 "gb1988"))))
190 ;; (when (featurep 'egg) 191 ;; (when (featurep 'egg)
191 ;; (setq-default its:*current-map* (its:get-mode-map "PinYin"))) 192 ;; (setq-default its:*current-map* (its:get-mode-map "PinYin")))
192 ;; (setq-default quail-current-package (assoc "py" quail-package-alist)))) 193 ;; (setq-default quail-current-package (assoc "py" quail-package-alist))))
193 ;; )) 194 ;; ))
194 195