Mercurial > hg > xemacs-beta

comparison lisp/mule/chinese-hooks.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents a145efe76779
children cca96a509cfe
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
172 (lambda () 172 (lambda ()
173 (require 'chinese) 173 (require 'chinese)
174 (set-coding-category-system 'iso-8-2 'euc-china) 174 (set-coding-category-system 'iso-8-2 'euc-china)
175 (set-coding-priority-list '(iso-8-2 big5 iso-8-designate)) 175 (set-coding-priority-list '(iso-8-2 big5 iso-8-designate))
176 (set-pathname-coding-system 'euc-china) 176 (set-pathname-coding-system 'euc-china)
177 (set-default-file-coding-system 'euc-china) ; GB encoding 177 (set-default-buffer-file-coding-system 'euc-china) ; GB encoding
178 (setq terminal-coding-system 'euc-china) 178 (setq terminal-coding-system 'euc-china)
179 (setq keyboard-coding-system 'euc-china) 179 (setq keyboard-coding-system 'euc-china)
180 (add-hook 'comint-exec-hook 180 (add-hook 'comint-exec-hook
181 (lambda () 181 (lambda ()
182 (let ((proc (get-buffer-process (current-buffer)))) 182 (let ((proc (get-buffer-process (current-buffer))))
183 (set-process-input-coding-system proc 'euc-china) 183 (set-process-input-coding-system proc 'euc-china)
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-buffer-file-coding-system-for-read 'autodetect)
186 (set-default-file-coding-system 'euc-china) 186 (set-default-buffer-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 (when (eq 'x (device-type (selected-device))) 189 (when (eq 'x (device-type (selected-device)))
190 (x-use-halfwidth-roman-font 'chinese-gb2312 "gb1988")))) 190 (x-use-halfwidth-roman-font 'chinese-gb2312 "gb1988"))))
191 ;; (when (featurep 'egg) 191 ;; (when (featurep 'egg)