Mercurial > hg > xemacs-beta
comparison lisp/language/japanese.el @ 207:e45d5e7c476e r20-4b2
Import from CVS: tag r20-4b2
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:03:52 +0200 |
| parents | acd284d43ca1 |
| children | 41ff10fd062f |
comparison
equal
deleted
inserted
replaced
| 206:d3e9274cbc4e | 207:e45d5e7c476e |
|---|---|
| 225 (coding-system . (iso-2022-jp euc-jp | 225 (coding-system . (iso-2022-jp euc-jp |
| 226 shift_jis iso-2022-jp-1978-irv)) | 226 shift_jis iso-2022-jp-1978-irv)) |
| 227 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B") | 227 (sample-text . "Japanese ($BF|K\8l(B) $B$3$s$K$A$O(B, (I:]FAJ(B") |
| 228 (documentation . t))) | 228 (documentation . t))) |
| 229 | 229 |
| 230 ;; for XEmacs (will be obsoleted) | |
| 231 | |
| 232 (define-language-environment 'japanese | |
| 233 "Japanese (includes JIS and EUC)" | |
| 234 (lambda () | |
| 235 (set-coding-category-system 'iso-7 'iso-2022-jp) | |
| 236 (set-coding-category-system 'iso-8-2 'euc-jp) | |
| 237 (set-coding-priority-list '(iso-7 iso-8-2 shift-jis no-conversion)) | |
| 238 ;;'(iso-8-2 iso-8-designate iso-8-1 shift-jis big5) | |
| 239 | |
| 240 ;; Added by mrb, who doesn't speak japanese - so be sceptical... | |
| 241 ;; (when (string-match "solaris\\|sunos" system-configuration) | |
| 242 ;;(set-native-coding-system 'euc-japan) ; someday | |
| 243 (set-pathname-coding-system 'euc-jp) | |
| 244 (add-hook 'comint-exec-hook | |
| 245 (lambda () | |
| 246 (let ((proc (get-buffer-process (current-buffer)))) | |
| 247 (set-process-input-coding-system proc 'euc-jp) | |
| 248 (set-process-output-coding-system proc 'euc-jp)))) | |
| 249 ;;(set-buffer-file-coding-system-for-read 'automatic-conversion) | |
| 250 (set-default-buffer-file-coding-system 'euc-jp) | |
| 251 (setq keyboard-coding-system 'euc-jp) | |
| 252 (setq terminal-coding-system 'euc-jp) | |
| 253 (when (eq 'x (device-type (selected-device))) | |
| 254 (x-use-halfwidth-roman-font 'japanese-jisx0208 "jisx0201")) | |
| 255 | |
| 256 (when (eq system-type 'ms-dos) | |
| 257 ;; Shift-JIS is the standard coding system under Japanese MS-DOS | |
| 258 ;; This isn't really code - just a hint to future implementors | |
| 259 (setq keyboard-coding-system 'shift_jis-dos) | |
| 260 (setq terminal-coding-system 'shift_jis-dos) | |
| 261 (set-default-buffer-file-coding-system 'shift_jis-dos) | |
| 262 ;;(set-default-process-coding-system 'shift_jis-dos 'shift_jis-dos) | |
| 263 ) | |
| 264 )) | |
| 265 | |
| 266 (set-coding-category-system 'shift-jis 'shift_jis) | |
| 267 | |
| 268 ;;; japanese.el ends here | 230 ;;; japanese.el ends here |