@ 機種依存文字を取り込む

M-x install-elisp
http://nijino.homelinux.net/emacs/cp5022x.el
C-c
;; ------------------------------------------------------------------------
;; @ 機種依存文字を取り込む
;; http://d.hatena.ne.jp/vmi/searchdiary?word=%2A%5BEmacs%5D
(require 'cp5022x)
(define-coding-system-alias 'euc-jp 'cp51932)
;; decode-translation-table の設定
(coding-system-put 'euc-jp :decode-translation-table
     (get 'japanese-ucs-jis-to-cp932-map 'translation-table))
(coding-system-put 'iso-2022-jp :decode-translation-table
     (get 'japanese-ucs-jis-to-cp932-map 'translation-table))
(coding-system-put 'utf-8 :decode-translation-table
     (get 'japanese-ucs-jis-to-cp932-map 'translation-table))
(coding-system-put 'utf-8 :encode-translation-table
     (get 'japanese-ucs-jis-to-cp932-map 'translation-table))