diff options
| author | Kenichi Handa | 2004-01-25 07:34:49 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2004-01-25 07:34:49 +0000 |
| commit | 1cd8a17573a6368252eee6f67a3651db48f291dd (patch) | |
| tree | 111494f48e9306b2d015f58879c612f6066a54c0 | |
| parent | c04e918c728576d0e7700a6bcfeb6a68e4f8cf8b (diff) | |
| download | emacs-1cd8a17573a6368252eee6f67a3651db48f291dd.tar.gz emacs-1cd8a17573a6368252eee6f67a3651db48f291dd.zip | |
(japanese-cp932): New coding system.
(cp932): New alias of it.
| -rw-r--r-- | lisp/language/japanese.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el index fa350c562ae..a860450065b 100644 --- a/lisp/language/japanese.el +++ b/lisp/language/japanese.el | |||
| @@ -74,6 +74,14 @@ | |||
| 74 | (define-coding-system-alias 'shift_jis 'japanese-shift-jis) | 74 | (define-coding-system-alias 'shift_jis 'japanese-shift-jis) |
| 75 | (define-coding-system-alias 'sjis 'japanese-shift-jis) | 75 | (define-coding-system-alias 'sjis 'japanese-shift-jis) |
| 76 | 76 | ||
| 77 | (define-coding-system 'japanese-cp932 | ||
| 78 | "CP932 (Microsoft shift-jis)" | ||
| 79 | :coding-type 'charset | ||
| 80 | :mnemonic ?S | ||
| 81 | :charset-list '(ascii katakana-sjis cp932-2-byte)) | ||
| 82 | |||
| 83 | (define-coding-system-alias 'cp932 'japanese-cp932) | ||
| 84 | |||
| 77 | ;; Fixme: AKA Shift-JIS according to | 85 | ;; Fixme: AKA Shift-JIS according to |
| 78 | ;; <URL:http://www.microsoft.com/globaldev/reference/WinCP.asp>. Is | 86 | ;; <URL:http://www.microsoft.com/globaldev/reference/WinCP.asp>. Is |
| 79 | ;; that correct? | 87 | ;; that correct? |