Mercurial > hg > xemacs-beta

comparison lisp/mule/japanese-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 0d2f883870bc
children fe104dbd9147
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
178 (set-process-output-coding-system proc 'euc-japan)))) 178 (set-process-output-coding-system proc 'euc-japan))))
179 (set-file-coding-system-for-read 'autodetect) 179 (set-file-coding-system-for-read 'autodetect)
180 (set-default-file-coding-system 'euc-japan) 180 (set-default-file-coding-system 'euc-japan)
181 (setq keyboard-coding-system 'euc-japan) 181 (setq keyboard-coding-system 'euc-japan)
182 (setq terminal-coding-system 'euc-japan) 182 (setq terminal-coding-system 'euc-japan)
183 (set-charset-registry 'ascii "JISX0201") 183 (when (eq 'x (device-type (selected-device)))
184 (x-use-halfwidth-roman-font 'japanese-jisx0208 "jisx0201"))
184 185
185 (when (eq system-type 'ms-dos) 186 (when (eq system-type 'ms-dos)
186 ;; Shift-JIS is the standard coding system under Japanese MS-DOS 187 ;; Shift-JIS is the standard coding system under Japanese MS-DOS
187 ;; This isn't really code - just a hint to future implementors 188 ;; This isn't really code - just a hint to future implementors
188 (setq keyboard-coding-system 'shift-jis-dos) 189 (setq keyboard-coding-system 'shift-jis-dos)